1.if...then...end if
if [条件] then
[执行语句]
end if
可以嵌套 多个if
if [条件] then
[执行语句]
else if [条件] then
[执行语句]
end if
eg.
Dim a,b
a=inputbox("please input a")
b=inputbox("please input b")
if a>b
then
msgbox("a>b")
else if a<b
then
msgbox("a<b")
end if
2.select case 变量名
case 变量值
[执行语句]
case 变量值
[执行语句]
select case var
case 1
msgbox "this is room a"
case 2
msgbox "this is room b"
3. do while
1) do while 条件
[执行语句]
loop
当想要中途退出循环时，可以使用exit
2)do
[执行语句]
loop while 条件
先执行语句块，后面判断条件
4. while 条件
[执行语句]
wend
5. do while 条件
[执行语句]
loop
until 条件
6.for i=0 to ubound(Array)
[执行语句]
next
ubound表示数组的最大下标，数组下标从0开始，想要中途退出循环可以使用exit for
7. for each x in array
[执行语句]
next
想要中途退出循环可以使用exit for