塊If語(yǔ)句
上述If-then語(yǔ)句只能根據(jù)條件的真假是否執(zhí)行一條語(yǔ)句，當(dāng)Then部分和Else部分包含的內(nèi)容較多時(shí)，則可選用“塊If語(yǔ)句”結(jié)構(gòu)。
格式三：If 條件 Then
語(yǔ)句塊
End If
例：當(dāng)從文本框輸入一個(gè)數(shù)時(shí)，該數(shù)大于或等于60時(shí)顯示“及格“，該數(shù)小于60時(shí)顯示“不及格“。
Private Sub Command1_Click（　　）
Dim a As Single
a=Val（Text1．Text）
If

①a＞=60

①a＞=60

Then
Label1．Caption=“及格“
End If
If

②a＜60

②a＜60

Then
Label1．Caption=“不及格“
End If
End Sub
格式四：If 條件 Then
語(yǔ)句塊1
Else
語(yǔ)句塊2
End If
例：編寫(xiě)程序，求函數(shù)Y的值（當(dāng)x≤0時(shí)，y=3x+1；當(dāng)x＞0時(shí)，y=4x+1）。
Private Sub Form_Click（　?。?br />Dim x As Single
Dim y As Single
x=Val（InputBox（“請(qǐng)輸入變量x“））
If

①x＜=0

①x＜=0

Then

②y=3*x+1

②y=3*x+1

Else

③y=4*x+1

③y=4*x+1

End If
Print“y=“； y
End Sub。