1.
Private Sub Form_Click()
x = 5
For i = 1 To 20 Step 2
x = x + i \ 5
Next i
Print x
End Sub
程序执行之后,x的值为21.是怎么计算出来的?
2.
Private Sub Form_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
程序执行之后,x的值为21.是怎么计算出来的?这段程序我有点看不太懂它的执行过程,还请各位能够详解一下
3.
Private Sub Form_Click()
a = 0
For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then
a = a + 1
End If
a = a + 1
Next j
Next i
Print a
End Sub
程序执行之后,a的值为12.是怎么计算出来的?这段程序我有点看不太懂它的执行过程,还有:两个“a=a+1”语句有什么区别吗?分别起什么作用?还请各位能够详解一下
4.
Private Sub Form_Click()
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i)
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Print a(i)
Next i
End Sub
程序运行后,输出结果为1 2 3 1 4 1,是怎么计算出来的?这段程序我有点看不太懂它的执行过程,还请各位能够详解一下
5.
Option Base 1
Dim a() As Integer, m As Integer
Private Sub Command1_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
程序运行时,单击command1后输入整数10,再单击command2后输入整数5,则数组中元素的个数是多少?怎么个计算法?
每道题目都请给出详细的思维逻辑过程,以便我能够理解它们分别是怎么得出来的,先谢谢了·~
第二题程序执行之后,x的值为15,我的输入有误,抱歉·~
回答者: 皮メ厚 - 经理 四级 : 第五道的答案是6,你能再想想是为什么吗?非常感谢你的回答·~