Arellano Finals

ARELLANO, RUBECCA C. BSBA B&F

1-2PM/MWF Prof. Lynn Garcia- Fufugal

Private Sub Command1_Click() If Val(Text2.Text) >= 2500 Then Label3.Caption = "You Are Entitled for Free Delivery!" Else Label3.Caption = "i'm Sorry, You Are not Entitled!" End If End Sub

Private Sub

Command1_Click()

If Check1.Value = 1 Then Label3.Caption = Val(Text2.Text) * 0.4 Else Label3.Caption = Text2.Text End If End Sub

Private Sub Cmd1Arellano_Click() If Opt1Arellano.Value Then Lbl4arellano.Caption = "0" ElseIf Opt2Arellano.Value Then Lbl4arellano.Caption = Val(txt2arellano.Text) * 0.1 ElseIf Opt3Arellano.Value Then Lbl4arellano.Caption = Val(txt2arellano.Text) * 0.15 ElseIf Opt4Arellano.Value Then Lbl4arellano.Caption = Val(txt2arellano.Text) * 0.2 ElseIf Opt5Arellano.Value Then Lbl4arellano.Caption = Val(txt2arellano.Text) * 0.23 End If End Sub

Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 1 Label3.Caption = "Prof. Virginia L. Calabria" Case 2 Label3.Caption = "Prof.Gladiola Santos" Case 3 Label3.Caption = "Prof. Jean Cornejo" Case 4 Label3.Caption = "Atty.Antonio Abad" Case 5 Label3.Caption = "Dr. Sevillano Marquez" End Select End Sub Private Sub Form_Load() Combo1.AddItem "" Combo1.AddItem "Business Administration" Combo1.AddItem "Sciences" Combo1.AddItem "Architecture" Combo1.AddItem "Law" Combo1.AddItem "Liberal Arts" End Sub

Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 1 Label4.Caption = Val(Text1.Text) * 0.4 Case 2 Label4.Caption = Val(Text1.Text) * 0.45 Case 3 Label4.Caption = Val(Text1.Text) * 0.5 Case 4 Label4.Caption = Val(Text1.Text) * 0.55 Case 5 Label4.Caption = Val(Text1.Text) * 0.7 End Select End Sub Private Sub Form_Load() Combo1.AddItem "" Combo1.AddItem "Athlete" Combo1.AddItem "Band Member" Combo1.AddItem "Choir Member" Combo1.AddItem "Student Assistant" Combo1.AddItem "DOST" End Sub

Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 1 Label4.Caption = Val(Text1.Text) * 0.25 Case 2 Label4.Caption = Val(Text1.Text) * 0.21 Case 3 Label4.Caption = Val(Text1.Text) * 0.19 Case 4 Label4.Caption = Val(Text1.Text) * 0.17 End Select End Sub

Private Sub Form_Load() Combo1.AddItem "" Combo1.AddItem "Head of the Family" Combo1.AddItem "Married" Combo1.AddItem "Married with 1 child" Combo1.AddItem "Married with 2 Children" End Sub