Code:
Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim flag As Boolean = Me.RadioButton2.Checked
If flag Then
Dim random As Random = New Random()
Dim num As Integer = random.[Next](0, 12)
Dim num2 As Integer = random.[Next](0, 12)
Dim num3 As Integer = random.[Next](0, 12)
Dim num4 As Integer = random.[Next](0, 12)
Dim num5 As Integer = random.[Next](0, 12)
Dim num6 As Integer = random.[Next](0, 12)
Dim num7 As Integer = random.[Next](0, 12)
Dim num8 As Integer = random.[Next](0, 12)
Dim num9 As Integer = random.[Next](0, 12)
Dim num10 As Integer = random.[Next](0, 12)
Dim num11 As Integer = random.[Next](0, 12)
Dim num12 As Integer = random.[Next](0, 12)
Dim num13 As Integer = random.[Next](0, 12)
Dim text As String = ""
Dim text2 As String = ""
Dim text3 As String = ""
Dim text4 As String = ""
flag = (num = 1)
Dim text5 As String
If flag Then
text5 = "A"
Else
flag = (num = 2)
If flag Then
text5 = "Q"
Else
text5 = "C"
End If
End If
flag = (num2 = 1)
If flag Then
text = "B"
Else
flag = (num2 = 2)
If flag Then
text = "S"
Else
flag = (num2 = 3)
If flag Then
text = "g"
Else
flag = (num2 = 4)
If flag Then
text = "q"
Else
flag = (num2 = 5)
If flag Then
text = "I"
Else
flag = (num2 = 6)
If flag Then
text = "2"
Else
flag = (num2 = 7)
If flag Then
text = "7"
Else
flag = (num2 = 8)
If flag Then
text = "4"
Else
flag = (num2 = 9)
If flag Then
text = "6"
Else
flag = (num2 = 10)
If flag Then
text = "1"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num3 = 1)
Dim text6 As String
If flag Then
text6 = "R"
Else
flag = (num3 = 2)
If flag Then
text6 = "S"
Else
text6 = "L"
End If
End If
flag = (num4 = 1)
Dim text7 As String
If flag Then
text7 = "N"
Else
flag = (num4 = 2)
If flag Then
text7 = "K"
Else
text7 = "M"
End If
End If
flag = (num5 = 1)
If flag Then
text2 = "N"
Else
flag = (num5 = 2)
If flag Then
text2 = "K"
Else
flag = (num5 = 3)
If flag Then
text2 = "h"
Else
flag = (num5 = 4)
If flag Then
text2 = "j"
Else
flag = (num5 = 5)
If flag Then
text2 = "O"
Else
flag = (num5 = 6)
If flag Then
text2 = "1"
Else
flag = (num5 = 7)
If flag Then
text2 = "8"
Else
flag = (num5 = 8)
If flag Then
text2 = "3"
Else
flag = (num5 = 9)
If flag Then
text2 = "5"
Else
flag = (num5 = 10)
If flag Then
text2 = "2"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num6 = 1)
Dim text8 As String
If flag Then
text8 = "L"
Else
flag = (num6 = 2)
If flag Then
text8 = "K"
Else
text8 = "P"
End If
End If
flag = (num7 = 1)
If flag Then
text3 = "N"
Else
flag = (num7 = 2)
If flag Then
text3 = "d"
Else
flag = (num7 = 3)
If flag Then
text3 = "A"
Else
flag = (num7 = 4)
If flag Then
text3 = "s"
Else
flag = (num7 = 5)
If flag Then
text3 = "V"
Else
flag = (num7 = 6)
If flag Then
text3 = "2"
Else
flag = (num7 = 7)
If flag Then
text3 = "5"
Else
flag = (num7 = 8)
If flag Then
text3 = "6"
Else
flag = (num7 = 9)
If flag Then
text3 = "8"
Else
flag = (num7 = 10)
If flag Then
text3 = "9"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num8 = 1)
Dim text9 As String
If flag Then
text9 = "R"
Else
flag = (num8 = 2)
If flag Then
text9 = "T"
Else
text9 = "Y"
End If
End If
flag = (num9 = 1)
If flag Then
text4 = "U"
Else
flag = (num9 = 2)
If flag Then
text4 = "Y"
End If
End If
flag = (num10 = 1)
Dim text10 As String
If flag Then
text10 = "N"
Else
flag = (num10 = 2)
If flag Then
text10 = "F"
Else
text10 = "z"
End If
End If
flag = (num11 = 1)
Dim text11 As String
If flag Then
text11 = "M"
Else
flag = (num11 = 2)
If flag Then
text11 = "V"
Else
text11 = "n"
End If
End If
flag = (num12 = 1)
Dim text12 As String
If flag Then
text12 = "B"
Else
flag = (num12 = 2)
If flag Then
text12 = "p"
Else
text12 = "E"
End If
End If
flag = (num13 = 1)
Dim text13 As String
If flag Then
text13 = "Y"
Else
flag = (num13 = 2)
If flag Then
text13 = "q"
Else
text13 = "F"
End If
End If
Me.TextBox1.Text = String.Concat(New String()() = { text5, text, text6, text7, text2, text8, text3, text9, text4, text10, text11, text12, text13 })
End If
flag = Me.RadioButton1.Checked
If flag Then
Dim random2 As Random = New Random()
Dim num14 As Integer = random2.[Next](0, 12)
Dim num15 As Integer = random2.[Next](0, 12)
Dim num16 As Integer = random2.[Next](0, 12)
Dim num17 As Integer = random2.[Next](0, 12)
Dim num18 As Integer = random2.[Next](0, 12)
Dim num19 As Integer = random2.[Next](0, 12)
Dim num20 As Integer = random2.[Next](0, 12)
Dim num21 As Integer = random2.[Next](0, 12)
Dim num22 As Integer = random2.[Next](0, 12)
Dim num23 As Integer = random2.[Next](0, 12)
Dim num24 As Integer = random2.[Next](0, 12)
Dim num25 As Integer = random2.[Next](0, 12)
Dim num26 As Integer = random2.[Next](0, 12)
Dim text14 As String = ""
Dim text15 As String = ""
Dim text16 As String = ""
Dim text17 As String = ""
flag = (num14 = 1)
Dim text18 As String
If flag Then
text18 = "A"
Else
flag = (num14 = 2)
If flag Then
text18 = "Q"
Else
text18 = "C"
End If
End If
flag = (num15 = 1)
If flag Then
text14 = "B"
Else
flag = (num15 = 2)
If flag Then
text14 = "S"
Else
flag = (num15 = 3)
If flag Then
text14 = "g"
Else
flag = (num15 = 4)
If flag Then
text14 = "q"
Else
flag = (num15 = 5)
If flag Then
text14 = "I"
Else
flag = (num15 = 6)
If flag Then
text14 = "f"
Else
flag = (num15 = 7)
If flag Then
text14 = "R"
Else
flag = (num15 = 8)
If flag Then
text14 = "D"
Else
flag = (num15 = 9)
If flag Then
text14 = "s"
Else
flag = (num15 = 10)
If flag Then
text14 = "Q"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num16 = 1)
Dim text19 As String
If flag Then
text19 = "R"
Else
flag = (num16 = 2)
If flag Then
text19 = "S"
Else
text19 = "L"
End If
End If
flag = (num17 = 1)
Dim text20 As String
If flag Then
text20 = "N"
Else
flag = (num17 = 2)
If flag Then
text20 = "K"
Else
text20 = "M"
End If
End If
flag = (num18 = 1)
If flag Then
text15 = "N"
Else
flag = (num18 = 2)
If flag Then
text15 = "K"
Else
flag = (num18 = 3)
If flag Then
text15 = "h"
Else
flag = (num18 = 4)
If flag Then
text15 = "j"
Else
flag = (num18 = 5)
If flag Then
text15 = "O"
Else
flag = (num18 = 6)
If flag Then
text15 = "w"
Else
flag = (num18 = 7)
If flag Then
text15 = "F"
Else
flag = (num18 = 8)
If flag Then
text15 = "v"
Else
flag = (num18 = 9)
If flag Then
text15 = "Z"
Else
flag = (num18 = 10)
If flag Then
text15 = "x"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num19 = 1)
Dim text21 As String
If flag Then
text21 = "L"
Else
flag = (num19 = 2)
If flag Then
text21 = "K"
Else
text21 = "P"
End If
End If
flag = (num20 = 1)
If flag Then
text16 = "N"
Else
flag = (num20 = 2)
If flag Then
text16 = "d"
Else
flag = (num20 = 3)
If flag Then
text16 = "A"
Else
flag = (num20 = 4)
If flag Then
text16 = "s"
Else
flag = (num20 = 5)
If flag Then
text16 = "V"
Else
flag = (num20 = 6)
If flag Then
text16 = "F"
Else
flag = (num20 = 7)
If flag Then
text16 = "g"
Else
flag = (num20 = 8)
If flag Then
text16 = "q"
Else
flag = (num20 = 9)
If flag Then
text16 = "V"
Else
flag = (num20 = 10)
If flag Then
text16 = "p"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
flag = (num21 = 1)
Dim text22 As String
If flag Then
text22 = "R"
Else
flag = (num21 = 2)
If flag Then
text22 = "T"
Else
text22 = "Y"
End If
End If
flag = (num22 = 1)
If flag Then
text17 = "U"
Else
flag = (num22 = 2)
If flag Then
text17 = "Y"
End If
End If
flag = (num23 = 1)
Dim text23 As String
If flag Then
text23 = "U"
Else
flag = (num23 = 2)
If flag Then
text23 = "T"
Else
text23 = "z"
End If
End If
flag = (num24 = 1)
Dim text24 As String
If flag Then
text24 = "B"
Else
flag = (num24 = 2)
If flag Then
text24 = "P"
Else
text24 = "M"
End If
End If
flag = (num25 = 1)
Dim text25 As String
If flag Then
text25 = "j"
Else
flag = (num25 = 2)
If flag Then
text25 = "s"
Else
text25 = "R"
End If
End If
flag = (num26 = 1)
Dim text26 As String
If flag Then
text26 = "G"
Else
flag = (num26 = 2)
If flag Then
text26 = "V"
Else
text26 = "q"
End If
End If
Me.TextBox1.Text = String.Concat(New String()() = { text18, text14, text19, text20, text15, text21, text16, text22, text17, text23, text24, text25, text26 })
End If
End Sub