求解释，尤其是do...loop之间的语句，万分感谢！！！小弟初学

Question

 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

Answer 1

这段程序的功能是生成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