Imports System.Random
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.AppendText("ABCDEFGHIJKLMNOPQRSTUVWXYZ") End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.AppendText("abcdefghijklmnopqrstuvwxyz") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.AppendText("0123456789") End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.AppendText("!""?.,;:/") End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim chars As Char() = TextBox1.Text.ToCharArray() Dim total As Integer = NumericUpDown1.Value Dim cur As Integer = 0 Dim endStr As String = "" Dim r As New Random Do Until cur >= total Dim rr As Integer = r.Next(chars.Count()) endStr &= chars(rr) rr = Nothing cur += 1 Loop MsgBox(endStr) End Sub
Imports System.Random Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim chars As Char() = TextBox1.Text.ToCharArray() Dim total As Integer = NumericUpDown1.Value Dim cur As Integer = 0 Dim endStr As String = "" Dim r As New Random Do Until cur >= total Dim rr As Integer = r.Next(chars.Count()) endStr &= chars(rr) rr = Nothing cur += 1 Loop MsgBox(endStr) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.AppendText("ABCDEFGHIJKLMNOPQRSTUVWXYZ") End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.AppendText("abcdefghijklmnopqrstuvwxyz") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.AppendText("0123456789") End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.AppendText("!""?.,;:/") End Sub End Class