Siapkan :

1. 3 combo box
2. 2 command button
3. 1 label


Langkah Pembuatan :

1. di combo1 , isi listnya dengan angka 0-9
2. di combo2, isi listnya dengan angka 0-9
3. di combo3,isi listnya dengan angka 0-9
4. Ganti text combo1 menjadi Angka Pertama
5. Ganti text combo2 menjadi Angka Kedua
6. Ganti text combo3 menjadi Angka Ketiga
7. Ganti Caption pada command 1 menjadi "Temukan nilai kapasitansi"
8. Ganti Caption pada command 2 menjadi "Bersihkan"
9. Ganti visible pada label1 menjadi False


Masukkan Koding :

Private Sub Command1_Click()

Select Case Combo3.Text
Case "0"
                    Combo3.Text = 1
Case "1"
                    Combo3.Text = 10
Case "2"
                    Combo3.Text = 100
Case "3"
                    Combo3.Text = 1000
Case "4"
                    Combo3.Text = 10000
Case "5"
                    Combo3.Text = 100000
Case "6"
                    Combo3.Text = 1000000
Case "7"
                    Combo3.Text = 10000000
Case "8"
                    Combo3.Text = 100000000
Case "9"
                    Combo3.Text = 1000000000
End Select


If Combo1.Text = "Angka Pertama" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"

ElseIf Combo2.Text = "Angka Kedua" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"


ElseIf Combo3.Text = "Angka Ketiga" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"

ElseIf Combo1.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"

ElseIf Combo2.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"

ElseIf Combo3.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"

Else
Label1.Visible = True
Label1.Caption = Combo3.Text * (Combo2.Text & Combo1.Text)

End If
End Sub


Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label1.Caption = ""

End Sub