Visual Basic 2010 Program Grade Nilai

//lh3.googleusercontent.com/-K5UKWzgJhmU/AAAAAAAAAAI/AAAAAAAACdI/CN3nwiBZsGE/s512-c/photo.jpg
November 16, 2016





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


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed