编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和.

编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和.
编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和.

编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和.
dim i as integer,n as integer,s as integer,k as integer
for i=1 to 10
k=val(inputbox("请输入一个整数："))
if k mod 2=1 then
n=n+1
s=s+k
end if
next i
print "奇数的个数：";n
print "这些奇数的和：";s