nguyenkimngoc
Thành viên hoạt động
- Tham gia
- 4/8/08
- Bài viết
- 113
- Được thích
- 7
Dear A/C
AC cho hỏi code này em lập sao vẫn báo lỗi compile error "else without if" mặc dù trong câu lệnh đã đầy đủ rùi nhỉ?
Cám ơn A?C
Function hocluc(toan As Variant, ly As Variant, hoa As Variant, tb As Variant)
Select Case tb
Case Is >= 8.5
If toan >= 7 And ly >= 7 And hoa >= 7 Then hocluc = "gioi"
ElseIf toan < 7 Or ly < 7 Or hoa < 7 Then hocluc = "kha"
End If
Case Is >= 6.5
If toan >= 5.5 And ly >= 5.5 And hoa >= 5.5 Then hocluc = "kha"
ElseIf toan < 5.5 Or ly < 5.5 Or hoa < 5.5 Then hocluc = "tb"
End If
Case Is >= 5
If toan >= 4 And ly >= 4 And hoa >= 4 Then hocluc = "trung binh"
ElseIf toan < 4 Or ly < 4 Or hoa < 4 Then hocluc = "yeu"
End If
Case Is < 5
hocluc = "yeu"
End Select
End Function
AC cho hỏi code này em lập sao vẫn báo lỗi compile error "else without if" mặc dù trong câu lệnh đã đầy đủ rùi nhỉ?
Cám ơn A?C
Function hocluc(toan As Variant, ly As Variant, hoa As Variant, tb As Variant)
Select Case tb
Case Is >= 8.5
If toan >= 7 And ly >= 7 And hoa >= 7 Then hocluc = "gioi"
ElseIf toan < 7 Or ly < 7 Or hoa < 7 Then hocluc = "kha"
End If
Case Is >= 6.5
If toan >= 5.5 And ly >= 5.5 And hoa >= 5.5 Then hocluc = "kha"
ElseIf toan < 5.5 Or ly < 5.5 Or hoa < 5.5 Then hocluc = "tb"
End If
Case Is >= 5
If toan >= 4 And ly >= 4 And hoa >= 4 Then hocluc = "trung binh"
ElseIf toan < 4 Or ly < 4 Or hoa < 4 Then hocluc = "yeu"
End If
Case Is < 5
hocluc = "yeu"
End Select
End Function