批处理之家VBS系列教程——第二节 第一个程序“Hello World！”

rat

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

BBCC

是否这样改？

1. 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.

1. Option Explicit
   
2. Dim strMessage,  strHead
   
3. strMessage = "Hello World!"
   
4. strHead = "keen"
   
5. MsgBox strMessage,  68,  strHead

复制代码

2.

1. Option Explicit
   
2. Dim strMessage,  strHead
   
3. strMessage = "Hello World!"
   
4. strHead = InputBox("请输入你的用户名：",  "keen")
   
5. MsgBox strMessage,  68,  strHead

复制代码

3.

1. Option Explicit
   
2. Dim dtmMessage
   
3. dtmMessage = #2009-5-21#
   
4. MsgBox CStr(dtmMessage)

复制代码

4.

1. Option Explicit
   
2. Dim strMessage,  strHead,  intMessage,  strXianshi
   
3. strMessage = "Hello World!"
   
4. strHead = InputBox("请输入你的用户名：",  "keen")
   
5. intMessage = MsgBox (strMessage,  68,  strHead)
   
6. strXianshi = CStr(intMessage)
   
7. MsgBox strXianshi,  0,  strHead

复制代码

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

rat

第3题：

1. Option Explicit
   
2. Dim dtmMessage
   
3. dtmMessage = #2009-5-22#
   
4. MsgBox CStr(dtmMessage)

复制代码

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

keen

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

1. Option Explicit
   
2. Dim strMessage,  strHead,  intReturn
   
3. strMessage = "Hello World!"
   
4. strHead = InputBox("请输入你的用户名：",  "keen")
   
5. intReturn = MsgBox (strMessage,  68,  strHead)
   
6. 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

最好整个目录，不好找