3道vb题目,请高手帮忙!

来源：百度知道 编辑：UC知道 时间：2024/05/04 10:53:00
1、在窗体上画一个命令按钮，然后编写如下事件过程：
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
当程序运行后，单击命令按钮，输出结果是多少？
2、Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 3
For j = 1 To i
For k = j To 3
a = a + 1
Next k
Next j
Next i
Print a
End Sub
求a 的值！
3、在窗体上画一个命令按钮，编写如下事件过程
Private Sub Command1_Click()
Dim i, j As Integer
a = 0
For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then a = a + 1
a = a + 1
Next j
Next i
Print a
End Sub
求a 的值！

/////////////1//////////////
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
这段代码等价于
x = 3
For k = 1 To 2
x = x + 6
Next k
Print x
结果X = 15

/////////////////////2/////////////////////////

Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 3
For j = 1 To i
For k = j To 3
a = a + 1
Next k
Next j
Next i
Print a
End Sub
分析： 当I =1 A =3。I=2， A = 3+3+2=8 。I = 3 A = 8 + 6 =14
////////////////////3//////////////////////////

Private Sub Command1_Click()
Dim i, j As Integer
a = 0
For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then a = a + 1
a = a + 1
Next j
Next i
Print a
End Sub
分析If j Mod 2 <> 0 Then a = a