Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Function randomizeletters()
- For i = 1 To 24
- Dim GeneratedRandomletter As New Random
- Dim check As String
- Dim generatedletter = Nothing
- generatedletter = GeneratedRandomletter.Next(1, 26)
- Select Case generatedletter
- Case 1
- check = "A"
- Case 2
- check = "B"
- Case 3
- check = "C"
- Case 4
- check = "D"
- Case 5
- check = "E"
- Case 6
- check = "F"
- Case 7
- check = "G"
- Case 8
- check = "H"
- Case 9
- check = "I"
- Case 10
- check = "J"
- Case 11
- check = "K"
- Case 12
- check = "L"
- Case 13
- check = "M"
- Case 14
- check = "N"
- Case 15
- check = "O"
- Case 16
- check = "P"
- Case 17
- check = "Q"
- Case 18
- check = "R"
- Case 19
- check = "S"
- Case 20
- check = "T"
- Case 21
- check = "U"
- Case 22
- check = "V"
- Case 23
- check = "W"
- Case 24
- check = "X"
- Case 25
- check = "Y"
- Case 26
- check = "Z"
- End Select
- TextBox1.Text = TextBox1.Text + check
- Next
- Return 0
- End Function
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- TextBox1.Clear()
- randomizeletters()
- End Sub
- End Class
Add Comment
Please, Sign In to add comment