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

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 iend sub'统计随机数奇偶数个数private sub tj_click()dim j as integer,o as integerfor i=1 to 10 if a(i) mod 2=1 then j=j+1 else o=o+1 end ifnext iend sub

谢谢了