用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少
题目
用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少
答案
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/3,丙付的钱是其他
- 若sinα=根号10/10,0＜α＜π/2,β=arccos（-根号5/5),求α+β的值
- 你怎么感觉颜色 我们能用许多颜色代表我们的情感 用英语怎么说
- 旋转是指一个物体围绕这一个?或一个?作封闭圆周运动
- 对y=[(x^2)*x^(2/3)]/[x^(5/2)]求导,结果是不是(1/6)*x^(-25/12)?
- 因式分解 36a²—(a²+9)²
- 在三角形ABC中,B=60度,求tanA/2+tanC/2+根号3X tanA/2tanC/2
- 如何写好文章呢?要想写好文章该看些什么书呢?
- 用波涛汹涌,变化莫测,猛厉,扑击,浩瀚,这些词语造句
热门考点
- Many students will fall _______if the class is boring.A sleep B asleep Csleeping D slept
- 为什么外国科学家比中国科学家的贡献大?
- 若函数f（x2）中X的范围是-1≤X≤1,求f（X)的定义域
- 200-198+196-194+192-190+.+8-6+4-2=?
- 关于保护珍稀动物的英语作文,
- 哪些动物/植物/微生物吃动物的尸体?
- 选六个词语写一段话
- 1、在植树节这一天,除了事先报名者外,又来了40名志愿者,大家一起种了800棵树,这样平均每人栽的树比原计划少了1棵,问这一天一共有多少市民参加了植树活动?
- 2个描写关心他人的词语
- 如图所示,直线PM垂直平分线段AB,直线PN垂直平分线段BC,连接PA和PC,则PA和PC的大小关系是：