作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 14:37:27
vb程序中 输出10个[10,99]范围内随机整数用“生成”按钮,用“统计”按钮分别统计其中奇数和与偶数和
添加两个控件名字分别为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 su