rat

不是的，再通过cstr来转换返回值

BBCC

是否这样改？

strValue = cstr(VarType(MsgBox (strMessage,68,strTitle)))
复制代码

rat

就这段而言，应当写作：
Dim intReturn, strReturn
intReturn = MsgBox(strMessage, vbInformation + vbYesNo, strTitle)
strReturn = CStr(intReturn)
'最好把68用vbInformation + vbYesNo来表示，更可读

BBCC

了解，谢谢兄的指导！

lockmove

版主你误导我
最顶上的
strMessage = “Hello World!”
你用了全角,害我的执行不了以为要编译,差点放弃了

Batcher

可以发短消息给楼主，要求他修改。

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 编辑 ]

rat

第3题：

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

第4题返回值的变量名最好改作 strReturn 或 strResult 等。

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 编辑 ]

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

seethesun

最好整个目录，不好找