06-12-12, 01:01 AM
شكرا أخي اسامه .. لكنه يضهر لي أخطاء في المؤشر عليه باللون الأحمر
واذا قمت بمسح الأخطاء يقوم بوضع الرقمين 1|1 مكررين
كود :
Dim Code As String = ""
Dim N1,N2 As Integer
N1 = RandomInteger(0, 21)
N2 = RandomInteger(0, 21)
[color=#FF0000]Do While N1 = N2[/color]
N2 = RandomInteger(0, 21)
[color=#FF0000]Next[/color]
TextBox1.Text = N1 & "|" & N2واذا قمت بمسح الأخطاء يقوم بوضع الرقمين 1|1 مكررين