BBCC 当前离线
中尉
Option Explicit Dim strMessage,title strMessage = "BBCC" title = "变量" MsgBox strMessage,67,title复制代码
评分人数
TOP
Option Explicit Dim strMessage, strTitle strMessage = "Hello world!" strTitle = InputBox("Enter your name." ,strMessage) MsgBox strMessage,68,strTitle复制代码
Dim strDate strDate = "9,11,2008" strDate = cdate(strDate) strDate = cstr(strDate) msgbox(strDate)复制代码
Option Explicit Dim strMessage, strTitle, strValue strMessage = "Hello world!" strTitle = InputBox("Enter your name." ,strMessage) strValue = VarType(MsgBox (strMessage,68,strTitle)) MsgBox(strValue)复制代码
strValue = cstr(VarType(MsgBox (strMessage,68,strTitle)))复制代码