source code untuk program perkalian sederhana :
Option Explicit
Dim kali As Integer
Dim angkaprob As Integer, angkabetul As Integer
Private Sub form_Active()
Call Cmdberikutnya_click
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub form_load()
Randomize Timer
angkaprob = 0
angkabetul = 0
End Sub
'menghasilkan hitungan perkalian berikutnya
Private Sub Cmdberikutnya_click()
Dim angka1 As Integer
Dim angka2 As Integer
txtJawab.Text = ""
LblPesan.Caption = ""
angkaprob = angkaprob + 1
'menghasilkan angka acak untuk perkalian dari 1 sampai 10
angka1 = Int(Rnd * 10) + 1
angka2 = Int(Rnd * 10) + 1
lblAngka1.Caption = Format(angka1, "#0")
lblAngka2.Caption = Format(angka2, "#0")
'hitung kali
kali = angka1 * angka2
CmdBerikutnya.Enabled = False
txtJawab.SetFocus
End Sub
Private Sub txtJawab_KeyPress(KeyAscii As Integer)
Dim jawab As Integer
'validasi entry untuk cek input angka saja dan tombol enter
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
'cek jawaban
jawab = Val(txtJawab.Text)
If jawab = kali Then
angkabetul = angkabetul + 1
LblPesan.Caption = "Jawaban Anda Benar"
Else
LblPesan.Caption = "Yang betul :" + Format(kali, "#0")
End If
LblSkor.Caption = Format(100 * angkabetul / angkaprob, "##0")
CmdBerikutnya.Enabled = True
CmdBerikutnya.SetFocus
Else
KeyAscii = 0
End If
End Sub
Private Sub CmdKeluar_()
End
End Sub
