//第一种格式(只有一个参数的倒计时函数) Function 倒计时(TM) For i = TM To 1 Step -1 MS "倒计时:" & i Delay 1000 Next End Function
//第二种格式(有两个参数的倒计时函数) Function 倒计时2(S,TM) Dim i For i = TM To 1 Step -1 MS S & "倒计时:" & i Delay 1000 Next End Function
//自定义信息输出
Function MS(s)
ShowMessage s:TracePrint s
End Function
//分别调用第一种格式和第二种格式的倒计时函数
倒计时(10)
倒计时2(“战斗”,10)