vb中求若干个自然数中的偶数个数,和最后一个偶数
答案:1 悬赏:80 手机版
解决时间 2021-10-19 20:23
- 提问者网友：蔚蓝的太阳
- 2021-10-19 06:33
vb中求若干个自然数中的偶数个数,和最后一个偶数
最佳答案
- 五星知识达人网友：一叶十三刺
- 2021-10-19 07:31
123456789101112131415161718192021222324252627OptionExplicitOptionBase0PrivateSubdoIt(ByRefbytes()AsByte)DimiAsLongDimcountAsLong,lastAsLongFori=LBound(bytes)ToUBound(bytes)Ifbytes(i)Mod2=0Thencount=count+1last=bytes(i)EndIfNextMsgBox"一共有"&count&"个偶数"Ifcount>0ThenMsgBox"最后一个偶数是"&lastEndSubPrivateSubForm_Load()Dimbytes(100)AsByteDimiAsLongRandomizeFori=0To100bytes(i)=Rnd*255NextdoItbytesEndSub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯