求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/06 02:30:13

private sub command1_click()
dim a(9),b(),c,d,e,i as integer
for i=0 to 9
a(i)=int(val(inputbox("输入第" & i+1 & "个数：")))
if a(i) mod 2=1 then
c=c+1
else
d=d+a(i)
e=e+1
redim preserve b(e)
b(e)=a(i)
end if
for i=0 to 9
print a(i),
next i
print
print "奇数的个数为：" & c
print "偶数的和为：" & d
if e>0 then print "最后一个偶数为：" & b(e)
end su

求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数. VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,.. VB 连续输入10数字,显示其中奇数的个数和偶数的个数使用c语言,如何进行程序设计求任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数. c语言编程数据统计任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数. vb 输入10个整数,计算偶数个数 ,奇数和. 按要求写编程：输入10个数,分别计算奇数和偶数的和. VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数. Java输入一系列数字求奇数、偶数、0的个数 C语言编程：从键盘输入任意个整数,输入-1时结束,分别统计其中奇数和偶数的个数由键盘任意输入10个整数,分别计偶数个数,奇数个数,偶数和,奇数和.c语言编程题 VB 先有一个框让我输入10个整数,分别计算出奇数个数和,偶数个数和.