什么？Excel居然知道你爱我多久？不信你可以试试看啊！
VBA代码如下：
Sub 密码验证()
Dim num As Integer
For num = 3 To 1 Step -1
If InputBox("你爱我多久?") = "1314" Then
MsgBox ("太感动了，这才对嘛！")
Exit For
Else
MsgBox "什么，再给你" & num & "次机会！"
End If
Next num
End Sub
通过上面一段代码，我们可以复习下前面几节的内容
1、定义并声明变量为整型，Dim num As Integer，也可以简单省略为 dim num%
2、For num = 3 To 1 Step -1，step（步长）省略不写，默认为1，我们这里需要数字从大到小逐一循环，所以step定义为-1；
3、msgbox、inputbox为VBA中的两个函数，msgbox及massagebox，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。inputbox功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。
4、当msgbox/inputbox只是为了弹出对话框时，语法可以是 msgbox/inputbox "内容" ，当msgbox/inputbox的值被引用，比如后面接等号时，语法是 msgbox/inputbox （"内容" ），引号外面要加括号。
5、当弹出输入框要求输入信息时，如果第一次输入就正确时，希望执行完黄色语句后能直接去执行end sub，需要在黄色语句后加 exit for （退出for语句）
Sub 密码验证()
Dim num As Integer
For num = 3 To 1 Step -1
If InputBox("你爱我多久?") = "1314" Then
MsgBox ("太感动了，这才对嘛！")
Exit For
Else
MsgBox "什么，再给你" & num & "次机会！"
End If
Next num
End Sub
或者是加end，前者是退出了for语句，后者是直接退出整个程序。
大家可以通过按F8，逐句执行，观察代码的运行来加深理解。
转自：米宏Office