求解释，尤其是do...loop之间的语句，万分感谢！！！小弟初学
For i = 1 To 10
Do
x = Int(91 * Rnd) + 10
yes = 0
For j = 1 To i - 1
If x = a(j) Then yes = 1: Exit For
Next j
Loop While yes = 1
a(i) = x
p = p & Str(a(i)) & ","
Next i
[解决办法]
这段程序的功能是生成10个不同的两位整数。
For i = 1 To 10
Do
'随机生成一个两位整数
x = Int(91 * Rnd) + 10
'设置标志变量的值为0。yes 变量的值若为0则表示当前生成的数据与前面已得到的数据无重复
yes = 0
'下面的For循环是比较当前生成的数与前面已得到的数，若有相同，则置yes为1
For j = 1 To i - 1
If x = a(j) Then yes = 1: Exit For
Next j
Loop While yes = 1a(i) = x
p = p & Str(a(i)) & ","
Next i
