i=4时,j=3,x=3
k=1 x=3+6
k=2 x=9+6=15
最后打印15
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Nex
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Nex
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
其他人气:927 ℃时间:2020-02-05 06:20:01
优质解答
我来回答
类似推荐
- Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Nex
- 求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j =1 to 3 x=3 for k=1 to 2 x=x+6 补
- Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
- Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
猜你喜欢
- 1这个房间是用来干嘛的 用英语怎么说
- 2英语翻译
- 3同步卫星饶地球转一周需多长时间?
- 4如图,边长为6的大正方形中有两个小正方形,若两个小正方形的面积分别为S1,S2,则S1+S2的值为( ) A.16 B.17 C.18 D.19
- 5已知A为大于0的常数,求函数F(X)=(AX^2+X+1)/(X+1)(X>=3)的最小值
- 6(x^2y+xy)-3(x^2y-xy)-4x^2y 化简 其中x=1 y=-1
- 717/25*5/37+8/25*17/37+17/37*24/25 简便运算
- 8My brother was in the park just now改成否定句.和一般疑问句 用肯定/否定回答
- 9一副三角尺,锐角的度数有()
- 10高中作文目标与理想