Private Sub Form_Click()
Sum=0
For k=1 To 3
If k<=1 Then
x=1
ElseIf k<=2 Then
x=2
ElseIf k<=3 Then
x=3
Else
x=4
End If
Sum=Sum+x
Next k
Print Sum
End Sub
注意:当此程序运行后,从If开始判定条件是否满足,依次判定,条件满足立即再次循环。
程序执行过程如下:
k=1,k<=1成立,执行x=1,sum=sum+x=1
k=2,k<=2成立,执行x=2,sum=sum+x=1+2=3
k=3,k<=3成立,执行x=3,sum=sum+x=3+3=6,循环结束。因此最后输出Sum的值为6。