KONVERSI ANGKA

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub BtnKonversi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonversi.Click

        Dim nilai As Integer

        Dim huruf As String

        nilai = txtnilai.Text

        If nilai >= 90 Then

            huruf = "A"

        ElseIf nilai >= 80 Then

            huruf = "B"

        ElseIf nilai >= 70 Then

            huruf = "C"

        ElseIf nilai >= 60 Then

            huruf = "D"

        Else

            huruf = "E"

        End If

        LblHasil.Text = huruf

    End Sub

End Class