题目
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = x + 1 For j = 0 To 3 If Not (j Mod 2)
Private Sub Form_click()
Dim x,i,j
x = 0
For i = 0 To 1
x = x + 1
For j = 0 To 3
If Not (j Mod 2) Then x = x + 1
Next j
Next i
Print "x="; x
End Sub运行后结果为10.怎么理解啊,
Private Sub Form_click()
Dim x,i,j
x = 0
For i = 0 To 1
x = x + 1
For j = 0 To 3
If Not (j Mod 2) Then x = x + 1
Next j
Next i
Print "x="; x
End Sub运行后结果为10.怎么理解啊,
提问时间:2020-12-20
答案
Dim x,i,j '定义三个变量
x = 0 'x初始化
For i = 0 To 1 '外循环两次
x = x + 1 'x+2
For j = 0 To 3 '0~3共4次 2*4=8次
If Not (j Mod 2) Then x = x + 1 '只有当not(-1)才不x+1,本题目不可能j mod 2=-1,所以循环8次,x+8
Next j
Next i
Print "x="; x 'x=10
x = 0 'x初始化
For i = 0 To 1 '外循环两次
x = x + 1 'x+2
For j = 0 To 3 '0~3共4次 2*4=8次
If Not (j Mod 2) Then x = x + 1 '只有当not(-1)才不x+1,本题目不可能j mod 2=-1,所以循环8次,x+8
Next j
Next i
Print "x="; x 'x=10
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1小明的储蓄罐里一共有87.5元,都是1元和5角的硬币.如果1元硬币的枚数是5角硬币的3倍,1元和5角的硬币各多少
- 2物体吸收了热量,则物体的温度( ) A.一定升高 B.一定降低 C.一定不变 D.可能升高,也可能不变
- 3黑洞的引力范围是多大
- 4社会上广泛生产的塑料废弃物为白色污染吗?
- 5世隶耕,这三个字在全文中的作用是什么?
- 6已知角a的终边上有一点p到原点的距离为4,且a=60°,则点p的坐标是
- 7若a,b分别是3减根号3的整数部分和小数部分,则4ab-b方等于多少?
- 8"在马克思墓前的讲话”中在恩格斯看来,马克思是个怎样的人
- 9当乙年龄是丙的2倍时,甲22岁,甲年龄是乙的2倍时,丙31岁,求:当甲60岁时,丙的年龄?
- 102道数学题,有分加的哦!