NganNguyen > 06-09-15, 10:22 PM
tranthanhan1962 > 07-09-15, 01:39 AM
If txtTB.Value >= 8 Then
txtketqua.Value = "Gioi"
ElseIf txtTB.Value >= 6.5 And txtTB.Value < 8 Then
txtketqua.Value = " Kha"
ElseIf txtTB.Value >= 5 And txtTB.Value < 6.5 Then
txtketqua.Value = "Trung Binh"
Else: txtketqua.Value = " Yeu"
End If