行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。