当前位置: > 用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少...
题目
用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少

提问时间:2020-11-26

答案
Private Sub Command1_Click()
Dim i%,j3%,j7%
For i = 1 To 100
If i Mod 3 = 0 Then j3 = j3 + 1
If i Mod 7 = 0 Then j7 = j7 + 1
Next
Print "3的倍数的个数:"; j3
Print "7的倍数的个数:"; j7
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.