求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.
答案:2 悬赏:60 手机版
解决时间 2021-02-06 23:22
- 提问者网友：最美的风景
- 2021-02-06 18:14
求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.
最佳答案
- 五星知识达人网友：一把行者刀
- 2021-02-06 19:03
private sub command1_click()dim a(9),b(),c,d,e,i as integerfor i=0 to 9a(i)=int(val(inputbox(输入第 & i+1 & 个数：)))if a(i) mod 2=1 thenc=c+1elsed=d+a(i)e=e+1redim preserve b(e)b(e)=a(i)end iffor i=0 to 9print a(i),next iprintprint 奇数的个数为： & cprint 偶数的和为： & dif e>0 then print 最后一个偶数为： & b(e)end sub
全部回答
- 1楼网友：像个废品
- 2021-02-06 19:17
收益了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯