块if没有end if什么问题？？？

来源：百度知道 编辑：UC知道 时间：2024/07/02 12:19:31
Private Sub Command2_Click()
bmi = Label5
If bmi > 15 Then
Label5.Caption = "dfsfa"
If bmi > 17 Then
Label5.Caption = "dfda"
If bmi > 22 Then
Label5.Caption = "dsfa"
If bmi > 26 Then
Label5.Caption = "ddddfa"
If bmi > 32 Then
Label5.Caption = "dfgga"
If bmi > 30 Then
Label5.Caption = "dfaa"
Else
If bmi > 45 Then
Label6.Caption = "dfaaaaaa"
End Sub

例一:
if xxx>15 then
label5.caption="xxx"
end if

例二:
if xxx>15 then label5.caption="xxx"

例三:
if xxx>15 then
elseif xxx>15 then
……
……
……
else
label5.caption="xxx"
end if

例四:
if xxx>15 then
label5.caption="xxx"
else
label5.caption="xxx"
end if

如果还是不明白,自己可以看一下MSDN.不过像你这样的多重判断我建意你用SELECT CASE语句.

bmi = label5
Select Case bmi
Case Is > 15
label5.Caption = "xxx"
Case Is > 17
label5.Caption = "xxx"
Case Is > 22
label5.Caption = "xxx"
……
……
……
Case Else
label6.Caption = "xxx"
End Select