Private Sub Command2_Click()
Text1.Text = ” “
Text2.Text = ” “
Text3.Text = ” “
Text4.Text = ” “
Text5.Text = ” “
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Combo1.List(0) = “VERLINA”
Combo1.List(1) = “NIA”
Combo1.List(2) = “YULI”
Combo1.List(3) = “YAKA”
Combo1.List(4) = “SHELA”
End Sub
Private Sub Text2_Change()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2
If (Text3.Text) < 60 Then
Text4.Text = “D”
ElseIf (Text3.Text) < 75 Then
Text4.Text = “C”
ElseIf (Text3.Text) < 85 Then
Text4.Text = “B”
Else
Text4.Text = “A”
End If
If (Text3.Text) > 60 Then
Text5.Text = “LULUS”
Else
Text5.Text = “GAGAL”
End If
End Sub
</
