Private Sub Command1Click()
Dim a(10),x%
Fork=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print X
End Sub
程序运行后,单击命令按钮,输出结果是()。
A.10个数中奇数的个数
B.10个数中偶数的个数
C.10个数中奇数的累加和
D.10个数中偶数的累加和
A.自然数1~9的累加和
B.自然数1~10的累加和
C.自然数1~9中奇数之和
D.自然数1~10中偶数之和
A.自然数1~9的累加和
B.自然数1~10的累加和
C.自然数1~9中奇数之和
D.自然数1~10中偶数之和