行If語句
行If是指在一行中寫完的If語句。其一般格式為：
格式一：If條件Then語句
執行這種形式的If語句時，首先對條件進行判斷。若條件成立，則執行Then后面的語句；若條件不成立，則執行If語句后繼程序行的語句
例：if  3＞1then  a=10
格式二：If條件 Then 語句 1  Else 語句 2
例：輸入三個不相同的數，求出其中最小數。
Private Sub Form_Click（　　）
Dim a  As Single,b  As Single,c  As Single
Dim Min  As Single
a=val（ text1．text）
b=val（ text2．text）
c=val（ text3．text）
If a＜b Then

①min=a

①min=a

Else Min=b
If

②min＞c或c＜min

②min＞c或c＜min

Then Min=c
Print“最小數=“； Min
End Sub
執行這種形式的語句時，先進行判斷。若條件成立，則執行語句1；否則執行語句2。