找VB高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:17:01
输出任意10个数中负数的个数，偶数的个数，奇数的和

dim i,num,sum as integer
dim a,b as integer
a=b=0
sum=0
randmize();
for i=1 t0 10
num=rnd()*100
if num<0 then a+=1
if num%2=0 then
b+=1
else
sum+=num
end if
next
msgbox "负数的个数是:"&a&vbcr&"偶数的个数是:"&b&vbcr_
&"奇数的和是:"&sum&vbcr