vb程序中 输出10个[10，99]范围内随机整数用“生成”按钮， 用“统计”按钮分别统计其中奇数和与偶数和

Question

如题所述

Answer 1

添加两个控件名字分别为sc、tj的按钮。
'定义一个窗体数组变量
dim a(10) as integer
'生成是个随机数
private sub sc_click()
'下面这一句可以得到不同的随机数
randomize
'不用这一句也可以，不影响效果
for i=1 to 10
a(i)=int(rnd*90+10)
next i
end sub
'统计随机数奇偶数个数
private sub tj_click()
dim j as integer,o as integer
for i=1 to 10
if a(i) mod 2=1 then
j=j+1
else
o=o+1
end if
next i
end sub