Diklogi

Code programnya :

Dim nilai As Integer

Private Sub Command1_Click()

If nilai >= 70 Then
MsgBox "B"
ElseIf nilai >= 60 Then
MsgBox "C"
ElseIf nilai >= 50 Then
MsgBox "D"
Else
MsgBox "E"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Text1_Change()
nilai = Text1.Text
End Sub

Salam ilmu pengetahuan ^^