Contoh Visual Basic

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "I"
Text3.Text = 100000
Text4.Text = 50000
Text5.Text = 1000000
Case "II"




Text3.Text = 150000
Text4.Text = 100000
Text5.Text = 1500000
Case "III"
Text3.Text = 200000
Text4.Text = 150000
Text5.Text = 2000000
Case "IV"
Text3.Text = 250000
Text4.Text = 200000
Text5.Text = 2500000
End Select
End Sub



Private Sub Combo3_Click()
Select Case Combo3.Text
Case "Menikah"
Text6.Text = 500000
Case "Belum Menikah"
Text6.Text = 100000
End Select
End Sub

Private Sub Command1_Click()
If Combo4.Text > 2 Then
Text9.Text = 50000
Else
Text9.Text = 200000
End If
Text7.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text9.Text)
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "I"
Combo1.AddItem "II"
Combo1.AddItem "III"
Combo1.AddItem "IV"
Combo2.AddItem "Kristen"
Combo2.AddItem "Islam"
Combo3.AddItem "Menikah"
Combo3.AddItem "Belum Nikah"
Combo4.AddItem "1"
Combo4.AddItem "2"
Combo4.AddItem "3"
Combo4.AddItem "4"
End Sub