2017-09-23 10:01:46 +02:00
|
|
|
Dim a, b, i
|
2013-04-10 22:43:41 -07:00
|
|
|
|
2017-09-23 10:01:46 +02:00
|
|
|
Do
|
|
|
|
|
a = Int(Rnd * 20)
|
|
|
|
|
WScript.StdOut.Write a
|
|
|
|
|
If a = 10 Then Exit Do
|
|
|
|
|
b = Int(Rnd * 20)
|
|
|
|
|
WScript.Echo vbNullString, b
|
|
|
|
|
Loop
|
|
|
|
|
|
|
|
|
|
For i = 1 To 100000
|
|
|
|
|
a = Int(Rnd * 20)
|
|
|
|
|
WScript.StdOut.Write a
|
|
|
|
|
If a = 10 Then Exit For
|
|
|
|
|
b = Int(Rnd * 20)
|
|
|
|
|
WScript.Echo vbNullString, b
|
|
|
|
|
Next
|
