06-12-12, 01:12 AM
استبدل الأمر Next
بالأمر
Loop
بالأمر
Loop
كود :
Dim Code As String = ""
Dim N1, N2 As Integer
N1 = RandomInteger(0, 21)
N2 = RandomInteger(0, 21)
Do While N1 = N2
N2 = RandomInteger(0, 21)
Loop
TextBox1.Text = N1 & "|" & N2
