Visual Basic Part 6 ( Hasil Belajar Siswa -> statement if )

Private Sub Command1_Click()
    Dim tugas As Integer
    tugas = Val(Text1.Text)
    Dim uts As Integer
    uts = Val(Text2.Text)
    Dim uas As Integer
    uas = Val(Text3.Text)
    Dim hadir As Integer
    hadir = Val(Text4.Text)
    Dim na As Integer
    na = (35 / 100 * uas) + (25 / 100 * uts) + (25 / 100 * tugas) + (15 / 100 * hadir)
    If na >= 86 Then Label8.Caption = "A"
    If na >= 71 And na <= 85 Then Label8.Caption = "B"
    If na >= 61 And na <= 70 Then Label8.Caption = "C"
    If na >= 55 And na <= 60 Then Label8.Caption = "D"
    If na < 55 Then Label8.Caption = "E"
End Sub

Private Sub Command2_Click()
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Label8.Caption = " "
End Sub

Private Sub Command3_Click()
    End
End Sub