vba编程：随机产生10个2位数整数，并求出其中的偶数个数，用消息框显示

Question

可以运行才给分

Answer 1

Sub Myrand()
Dim X(1 To 10) As Integer
A = 0
For i = 1 To 10
X(i) = Rnd() * (99 - 10) + 10
If X(i) Mod 2 = 0 Then A = A + 1
Next

b = MsgBox("产生的这10个随机数是:" & X(1) & "," & X(2) & "," & X(3) & "," & X(4) & "," & X(5) & "," & X(6) & "," & X(7) & "," & X(8) & "," & X(9) & "," & X(10) & "." & "其中偶数有" & A & "个.要写入当前工作表的A1-A10点确定", vbYesNo)

If b = 6 Then
For ii = 1 To 10
Range("A" & ii).Value = X(ii)
Next
End If

End Sub追问

你好，很感谢回答，但是运行不了啊

追答

可以运行啊.我在excel2003测试通过了.说说你是怎么做的?

追问

可是我得要在access里边运行啊

追答

...这是在excel里运行的.你又没说是在access 晕
你把下面的部分取消
If b = 6 Then
For ii = 1 To 10
Range("A" & ii).Value = X(ii)
Next
End If