一运行就报说else没有if 我仔细检查过 不缺啊,还望高手赐教 急!
Private Sub Command1_Click()
If Text1 = "1,2,3,6,11,12" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
ElseIf Text1 = "4,9" Then
If Text2 = "28,29,30" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 35%"
Else
Label6 = "您订票的优惠率为: 15%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
ElseIf Text1 = "5,10" Then
If Text2 = "1 to 8" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 35%"
Else
Label6 = "您订票的优惠率为: 15%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 30%"
Else
Label6 = "您订票的优惠率为: 20%"
End If
End Sub
Private Sub Command1_Click()
If Text1 = "1,2,3,6,11,12" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
ElseIf Text1 = "4,9" Then
If Text2 = "28,29,30" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 35%"
Else
Label6 = "您订票的优惠率为: 15%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
ElseIf Text1 = "5,10" Then
If Text2 = "1 to 8" Then
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 35%"
Else
Label6 = "您订票的优惠率为: 15%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 25%"
Else
Label6 = "您订票的优惠率为: 10%"
Else
If Text3 >= "30" Then
Label6 = "您订票的优惠率为: 30%"
Else
Label6 = "您订票的优惠率为: 20%"
End If
End Sub
if then
else
end if
else
end if给楼主一点启示....