Question

VB中判断奇数和偶数怎么判断和统计个数

Answer 1

例,求1 到100之间偶数和奇数的数量

dim i as integer,a as integer,b as integer

for i=1 to 100

if i mod 2=0 '偶数

a=a+1 '偶数奇数

else '奇数

b=b+1 ‘奇数计数

end if

next