编程实现从键盘任意输入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
再问： 高人用数组应该怎样写呀
再答： k as integer改为k(1 to 10) as integer，后面的两个k改为k(i)