作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/05 14:46:55
编程实现从键盘任意输入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)