Dim x As Integer, o As StringFor x = 1 To 10Do
x=Rnd()*100Loop While x Mod 2 0o = o & x & Space(1)Nexttb1.Text = o需要用一个do-loop-while循环来保证得到随机数是偶数 是的，用do-loop-while循环来不断的得到随机数，直到得到一个偶数为止do
x=Rnd()*100Loop while x mod 20 这一句成立的话，表示x是奇数，循环再次执行，直到这句不成立，也就是 x Mod 2=0 为止楼上的代码循环十次，但是不是每一次都得到偶数，所以结果中也不一定有10个偶数
用你的代码改下Private Sub Form_Load()Dim x As Integer, o As String, num As Integer For x = 1 To 10
num = Int(Rnd() * 100)
If num Mod 2 = 0 Then
num = num + 1
End If
o = o & num & Space(1) Nexttb1.Text = oEnd Sub如果num 不是偶数 就把num ＋1 或者 num －1 就好了 呵呵
Dim x As Integer, o As String, intRnd As Integer
For x = 1 To 10
Randomize
Do
intRnd = Rnd() * 100
Loop Until intRnd Mod 2 = 0
o = o & intRnd & ","
Next
tb1.Text = o
