namhungskec
Thành viên mới

- Tham gia
- 29/8/14
- Bài viết
- 2
- Được thích
- 0
Dear cả nhà .
Hôm trước em viết 1 cái file mà bị lỗi. Có mấy anh chị chỉ giúp. Em đã tìm được lỗi rồi nhưng không hiểu vì sao nó lại như vậy. Lần này nhờ các anh chị chỉ giúp.
Function danhgia(x As Single) As String
If x < 18.5 Then
danhgia = " DUOI CHUAN"
ElseIf (x >= 18.5) And (25 > x) Then danhgia = "CHUAN "
ElseIf (x >= 25) And (30 > x) Then danhgia = "THUA CAN "
End If
If (x >= 30) And (x <= 40) Then danhgia = "BEO "
If x > 40 Then danhgia = "RAT BEO "
End Function
Function danhgia1(x As Single) As String
If x < 18.5 Then
danhgia1 = " DUOI CHUAN"
ElseIf 18.5 <= x < 25 Then danhgia1 = "CHUAN "
ElseIf 25 <= x < 30 Then danhgia1 = "THUA CAN "
End If
If 30 <= x < 40 Then danhgia1 = "BEO "
If x >= 40 Then danhgia1 = "RAT BEO "
End Function
Hôm trước em viết 1 cái file mà bị lỗi. Có mấy anh chị chỉ giúp. Em đã tìm được lỗi rồi nhưng không hiểu vì sao nó lại như vậy. Lần này nhờ các anh chị chỉ giúp.
Function danhgia(x As Single) As String
If x < 18.5 Then
danhgia = " DUOI CHUAN"
ElseIf (x >= 18.5) And (25 > x) Then danhgia = "CHUAN "
ElseIf (x >= 25) And (30 > x) Then danhgia = "THUA CAN "
End If
If (x >= 30) And (x <= 40) Then danhgia = "BEO "
If x > 40 Then danhgia = "RAT BEO "
End Function
Function danhgia1(x As Single) As String
If x < 18.5 Then
danhgia1 = " DUOI CHUAN"
ElseIf 18.5 <= x < 25 Then danhgia1 = "CHUAN "
ElseIf 25 <= x < 30 Then danhgia1 = "THUA CAN "
End If
If 30 <= x < 40 Then danhgia1 = "BEO "
If x >= 40 Then danhgia1 = "RAT BEO "
End Function
