Guest User

Untitled

a guest
May 25th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.09 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Function randomizeletters()
  4. For i = 1 To 24
  5. Dim GeneratedRandomletter As New Random
  6. Dim check As String
  7. Dim generatedletter = Nothing
  8. generatedletter = GeneratedRandomletter.Next(1, 26)
  9. Select Case generatedletter
  10. Case 1
  11. check = "A"
  12. Case 2
  13. check = "B"
  14. Case 3
  15. check = "C"
  16. Case 4
  17. check = "D"
  18. Case 5
  19. check = "E"
  20. Case 6
  21. check = "F"
  22. Case 7
  23. check = "G"
  24. Case 8
  25. check = "H"
  26. Case 9
  27. check = "I"
  28. Case 10
  29. check = "J"
  30. Case 11
  31. check = "K"
  32. Case 12
  33. check = "L"
  34. Case 13
  35. check = "M"
  36. Case 14
  37. check = "N"
  38. Case 15
  39. check = "O"
  40. Case 16
  41. check = "P"
  42. Case 17
  43. check = "Q"
  44. Case 18
  45. check = "R"
  46. Case 19
  47. check = "S"
  48. Case 20
  49. check = "T"
  50. Case 21
  51. check = "U"
  52. Case 22
  53. check = "V"
  54. Case 23
  55. check = "W"
  56. Case 24
  57. check = "X"
  58. Case 25
  59. check = "Y"
  60. Case 26
  61. check = "Z"
  62. End Select
  63. TextBox1.Text = TextBox1.Text + check
  64. Next
  65. Return 0
  66. End Function
  67. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  68. TextBox1.Clear()
  69. randomizeletters()
  70. End Sub
  71. End Class
Add Comment
Please, Sign In to add comment