Dim hra, da As Single Dim basic, gross, intax, ann, net As Single Private Sub Command1_Click() basic = Val(Text3.Text) If (basic <= 5000) Then hra = basic * 0.1 da = basic * 0.12 Text4.Text = hra Text5.Text = da gross = basic + hra + da Text6.Text = gross ann = gross * 12 Text7.Text = ann ElseIf (basic >= 5000) And (basic <= 8000) Then hra = basic * 0.12 da = basic * 0.15 Text3.Text = hra Text5.Text = da gross = basic + hra + da Text6.Text = gross ann = gross * 12 Text7.Text = ann Else hra = basic * 0.12 da = basic * 0.15 Text4.Text = hra Text5.Text = da gross = basic + hra + da Text6.Text = gross ann = gross * 12 Text7.Text = ann End If End Sub Private Sub Command2_Click() If ann <= 50000 Then intax = 0 Text8.Text = intax ElseIf ann >= 50001 And ann <= 60000 Then intax = ann * 0.1 Text8.Text = intax ElseIf ann >= 60001 And ann <= 150000 Then intax = ann * 0.2 Text8.Text = intax Else intax = ann * 0.3 Text8.Text = intax End If End Sub Private Sub Command3_Click() net = ann - intax Text9.Text = net End Sub Private Sub Command4_Click() End End Sub
