Question

Access 中的VBA程序设计题 求需要详细的讲解，希望大家帮帮忙

Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i=1 to 6
If i=1 Then x=i
If i<=4 Then
x=x+1
else
x=x+2
End If
next i
MsgBox x
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer, x As Integer '设变量i 、x 为整数
For i=1 to 6 ‘for和后面的next 组成一个循环，变量i 依次给值1至6
If i=1 Then x=i ’当i 等于1时，则x等于1，也就是设定x初始值为1
If i<=4 Then ‘当i 的值小于等于4时，则执行x=x+1.否则执行x=x+2
x=x+1
else ’否则
x=x+2
End If
next i
MsgBox x ‘循环完了以后，弹出提示框，显示X最终的值
End Sub
请注意：x 每次循环后的值是不一样的。
第1次，当i 等于1时，它小于4，则执行x=x+1，则X等于1+1＝2
第2次，当i 等于2时，它小于4，则执行x=x+1，则X等于2+1＝3
第3次，当i 等于3时，它小于4，则执行x=x+1，则X等于3+1＝4
第4次，当i 等于4时，它等于4，则执行x=x+1，则X等于4+1＝5
第5次，当i 等于5时，它大于4，则执行x=x+2，则X等于5+2＝7
第6次，当i 等于6时，它大于4，则执行x=x+2，则X等于7+2＝9
运行结果就是：9