Calcular salario de una persona:

Programa para hallar sueldo neto de una persona.

La siguiente es la programación :

Private Sub Check1_Click()

Text5.Text = Text2 * 0.03

End Sub

Private Sub Check2_Click()

Text6.Text = Text2 * 0.07

End Sub

Private Sub Check3_Click()

Text7.Text = Text2 * 0.01

End Sub

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Text2.Text

b = Text3.Text

c = Text4.Text

Text8.Text = (((a + (b * c)) - (Text5.Text)) - Text6.Text) - Text7.Text

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = 0

Text6.Text = 0

Text7.Text = 0

Text8.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Text5.Text = 0

Text6.Text = 0

Text7.Text = 0

End Sub

Private Sub Option1_Click()

Text4.Text = 10000

End Sub

Private Sub Option2_Click()

Text4.Text = 15000

End Sub