keen

1.

Option Explicit
Dim strMessage,  strHead
strMessage = "Hello World!"
strHead = "keen"
MsgBox strMessage,  68,  strHead
复制代码

2.

Option Explicit
Dim strMessage,  strHead
strMessage = "Hello World!"
strHead = InputBox("请输入你的用户名：",  "keen")
MsgBox strMessage,  68,  strHead
复制代码

3.

Option Explicit
Dim dtmMessage
dtmMessage = #2009-5-21#
MsgBox CStr(dtmMessage)
复制代码

4.

Option Explicit
Dim strMessage,  strHead,  intMessage,  strXianshi
strMessage = "Hello World!"
strHead = InputBox("请输入你的用户名：",  "keen")
intMessage = MsgBox (strMessage,  68,  strHead)
strXianshi = CStr(intMessage)
MsgBox strXianshi,  0,  strHead
复制代码

[ 本帖最后由 keen 于 2009-5-23 18:37 编辑 ]

keen

谢谢rat版主的指导，我刚开始接触VBS，以后多多指教！
按照您的第3题的改法，我第4题也可以像下面这样改了：

Option Explicit
Dim strMessage,  strHead,  intReturn
strMessage = "Hello World!"
strHead = InputBox("请输入你的用户名：",  "keen")
intReturn = MsgBox (strMessage,  68,  strHead)
MsgBox CStr(intReturn),  0,  strHead
复制代码

[ 本帖最后由 keen 于 2009-5-23 18:35 编辑 ]