VBS代码2

输出的字符串连接&

Dim x,y,z

x="come"
y="on"
z="olympic!"

MsgBox x&y&","&z

Sub的用法

FixDate
Sub FixDate()
Dim myDate
mydate = #2/13/95#
If myDate <Date Then
myDate=Date
MsgBox myDate
End If
End Sub

if   then  语法

value = InputBox("VALUE","VALUEOF")
ReportValue(value)
Sub ReportValue(value)
if value = 0 Then
MsgBox value
elseif value = 1 Then
MsgBox value
elseif value = 2 Then
MsgBox value
else
MsgBox "abcd"
End if
End Sub