1. UCase:<!-- [if gte mso 9]><![endif]--><!-- [if gte mso 9]><![endif]--><!-- [if gte mso 10]>返回字符串的大写形式
UCase(string)
eg:
Dim MyWord
MyWord = UCase("Hello World") <!-- [if gte mso 9]><![endif]--><!-- [if gte mso 9]><![endif]--><!-- [if gte mso 10]>' 返回"HELLO WORLD"
2.
Dim counter,num
counter = 0
num = 9
Do Until num = 10
num = num -1
counter = counter + 1
if num < 9 then Exit Do
Loop
Msgbox "循环了"&counter&"次"
3.
方法一:
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed dialog.", 2) '代替msgbox "close dialog"
Set WSH = Nothing
方法二:
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed dialog.", 2) '代替msgbox "close dialog"
Set WSH = Nothing
方法二:
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close