Program Perhitungan Dengan Visual Basic 6.0

Form

Private Sub Command1_Click()
a = Val(Text1.Text)
b = a Mod 10
c = b Mod 8
Text2.Text = Int(a / 10)
If b < 10 And b >= 8 Then
Text3.Text = Int(b / 8)
ElseIf c < 8 And c >= 3 Then
Text4.Text = Int(c / 3)
End If
End Sub

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

Private Sub Command3_Click()
a = MsgBox("TerimaKasih Telah Berqurban", vbYesNo, terimakasih)
If a = vbYes Then End
End Sub