Program Grade Nilai VB 2010
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim angka As Integer = Integer.Parse(TextBox1.Text)
Select angka
Case 80 To 100
MessageBox.Show("A", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 70 To 79
MessageBox.Show("B", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 60 To 69
MessageBox.Show("C", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 50 To 59
MessageBox.Show("D", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 40 To 49
MessageBox.Show("A", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
End Sub
End Class 
