dim a,cs
const pass="fan123_"
cs=0
do while cs<3
a=inputbox("请输入密码:","三次机会")
if a=pass then
         msgbox "密码认证成功"
         msgbox "告诉你一个秘密，密码为fan123_"
         exit do 'exit do 只能位于true后面，否则不会重复
else 
         msgbox "密码认证失败,请重试"
         cs=cs+1
end if
'cs=cs+1 也可以放在这里
loop
复制代码

' 0.vbs
Dim s
s = Inputbox("请输入：", "输入测试", "默认值")
If IsEmpty(s) Then
  Msgbox "提示：你执行了取消操作，程序即将退出。"
  WScript.Quit(0)
End If
复制代码

' 调用主函数 Main()
Main


Sub Main()
   
  ' 调用过程 a()
  call a()

  ' 调用函数 b()
  Msgbox "现在时间：" & b()

End Sub


Sub a()
  Msgbox "I'm a!"
End Sub


Function b()
  b = Now()
End Function
复制代码