askyer

回答一下，希望有更精彩的教程出来

Option Explicit
Dim strMessage, strTitle, dtmToday, strToday, intResult
strMessage = "Hello World!"
'Qustion1
'strTitle = "askyer"

'Qustion2
strTitle = InputBox("请输入用户名：")
intResult = MsgBox (strMessage, vbYesNo,strTitle)

'Qustion4
MsgBox intResult

'Qustion3
dtmToday = Date
strToday = CStr(dtmToday)
MsgBox strToday