pert 7
1. Dim nilai As Double = TextBox1.Text
2. Dim NilaiHuruf As String
3. If TextBox1.Text = "" Then
4. Exit Sub
5. Else
6. If nilai >= 0 And nilai < 50 Then
7. NilaiHuruf = "E"
8. ElseIf nilai >= 50 And nilai < 60 Then
9. NilaiHuruf = "D"
10. ElseIf nilai >= 60 And nilai < 70 Then
11. NilaiHuruf = "C"
12. ElseIf nilai >= 70 And nilai < 80 Then
13. NilaiHuruf = "B"
14. ElseIf nilai >= 80 And nilai < 90 Then
15. NilaiHuruf = "A"
16. Else
17. NilaiHuruf = "A+"
18. End If
19. End If
20. MessageBox.Show("Nilai Huruf " & NilaiHuruf, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
21. End Sub