Private Sub Check1_Click() If Check1.Value = 1 Then Check2.Value - TopicsExpress



          

Private Sub Check1_Click() If Check1.Value = 1 Then Check2.Value = 0 End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Check1 = 0 End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Check4.Value = 0 End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then Check5.Value = 0 End If End Sub Private Sub Check5_Click() If Check5.Value = 1 Then Check6.Value = 0 Check7.Value = 0 Check8.Value = 0 End If End Sub Private Sub Check6_Click() If Check6.Value = 1 Then Check5.Value = 0 Check7.Value = 0 Check8.Value = 0 End If End Sub Private Sub Check7_Click() If Check7.Value = 1 Then Check5.Value = 0 Check6.Value = 0 Check8.Value = 0 End If End Sub Private Sub Check8_Click() If Check8.Value = 1 Then Check5.Value = 0 Check6.Value = 0 Check7.Value = 0 End If End Sub Private Sub Command1_Click() If Check1.Value = 1 Then Text2.Text = Val(Text2.Text) + 0 If Check1.Value = 1 Then Text2.Text = Val(Text2.Text) + 0 End If End If If Gender.Text = 2 Then Text2.Text = Val(Text2.Text) + 0 If Check2.Value = 1 Then Text2.Text = Val(Text2.Text) + 750 End If End If If Gender.Text = 1 Then Text2.Text = Val(Text2.Text) + 0 If Check3.Value = 2 Then Text2.Text = Val(Text2.Text) + 0 End If End If If Gender.Text = 2 Then Text2.Text = Val(Text2.Text) + 0 If Check4.Value = 2 Then Text2.Text = Val(Text2.Text) + 750 End If End If If Gender.Text = 1 Then Text2.Text = Val(Text2.Text) + 0 If Check5.Value = 3 Then Text2.Text = Val(Text2.Text) + 0 End If End If If Gender.Text = 2 Then Text2.Text = Val(Text2.Text) + 0 If Check6.Value = 3 Then Text2.Text = Val(Text2.Text) + 0 End If End If If Gender.Text = 1 Then Text2.Text = Val(Text2.Text) + 0 If Check7.Value = 4 Then Text2.Text = Val(Text2.Text) + 800 End If End If If Gender.Text = 2 Then Text2.Text = Val(Text2.Text) + 0 If Check8.Value = 4 Then Text2.Text = Val(Text2.Text) + 0 End If End If If Nationality.Text = 2 Then Text2.Text = Val(Text2.Text) + 2000 Else If Nationality.Text = 1 Then Text2.Text = Val(Text2.Text) + 0 End If End If Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Gender.Text = Year.Text = Nationality.Text = Text2.Text = Text3.Text = End Sub dli mo run T_T huhuhuh T_T #ComputerFundamentals
Posted on: Fri, 26 Sep 2014 06:17:32 +0000

Trending Topics



Recently Viewed Topics




© 2015