FIRST QUARTER
ACTIVITY 1

PublicClassForm1
Dim num1, num2, result AsDecimal
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load txtresult.Enabled = False
EndSub

PrivateSubcmdclear_Click(sender AsObject, e AsEventArgs) Handlescmdclear.Click txtnum1.Clear() txtnum2.Clear() txtresult.Clear() EndSub

PrivateSubcmdadd_Click(sender AsObject, e AsEventArgs) Handlescmdadd.Click num1 = txtnum1.Text num2 = txtnum2.Text result = num1 + num2 txtresult.Text = result
EndSub

PrivateSubcmdsub_Click(sender AsObject, e AsEventArgs) Handlescmdsub.Click num1 = txtnum1.Text num2 = txtnum2.Text result = num1 - num2 txtresult.Text = result
EndSub

PrivateSubcmdmul_Click(sender AsObject, e AsEventArgs) Handlescmdmul.Click num1 = txtnum1.Text num2 = txtnum2.Text result = num1 * num2 txtresult.Text = result
EndSub

PrivateSubcmddiv_Click(sender AsObject, e AsEventArgs) Handlescmddiv.Click num1 = txtnum1.Text num2 = txtnum2.Text result = num1 / num2 txtresult.Text = result
EndSub
EndClass
ACTIVITY 2

PublicClassForm1
Dim hours, rate, grosspay, deduction, netpayAsDecimal
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load txtgrosspay.Enabled = False txtnetpay.Enabled = False
EndSub

PrivateSubbtncalculate_Click(sender AsObject, e AsEventArgs) Handlesbtncalculate.Click hours = txthours.Text rate = txtrate.Text deduction = txtdeduction.Text grosspay = hours * rate netpay = hours * rate - deduction txtgrosspay.Text = grosspay txtnetpay.Text = netpay
EndSub

PrivateSubbtnclear_Click(sender AsObject, e AsEventArgs) Handlesbtnclear.Click txthours.Clear() txtrate.Clear() txtdeduction.Clear() txtgrosspay.Clear() txtnetpay.Clear() EndSub
EndClass

ACTIVITY 3

PublicClassForm1
Dim hours, rate, deduction, grosspay, netpayAsDecimal
PrivateSubbtncalculate_Click(sender AsObject, e AsEventArgs) Handlesbtncalculate.Click hours = txthours.Text rate = txtrate.Text deduction = txtdeduction.Text
If hours <= 40 Then grosspay = rate * hours txtgrosspay.Text = grosspay netpay = grosspay - deduction txtnetpay.Text = netpay
ElseIf hours > 40 And hours <= 60 Then grosspay = (40 * rate) + 1.5 * rate * (hours - 40) txtgrosspay.Text = grosspay netpay = grosspay - deduction txtnetpay.Text = netpay
Else :MsgBox("Invalid") txtnetpay.Text = 0 txtgrosspay.Text = 0
EndIf

EndSub

PrivateSubbtnclear_Click(sender AsObject, e AsEventArgs) Handlesbtnclear.Click txthours.Clear() txtrate.Clear() txtdeduction.Clear() txtgrosspay.Clear() txtnetpay.Clear() EndSub

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load txtgrosspay.Enabled = False txtnetpay.Enabled = False
EndSub
EndClass

ACTIVITY 4

PublicClassForm1
Dimenternum, sign, oddevenAsString
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load txtsign.Enabled = False txtoddeven.Enabled = False
EndSub

PrivateSubbtnclear_Click(sender AsObject, e AsEventArgs) Handlesbtnclear.Click txtenternum.Clear() txtsign.Clear() txtoddeven.Clear() EndSub

PrivateSubbtntest_Click(sender AsObject, e AsEventArgs) Handlesbtntest.Click sign = txtsign.Text oddeven = txtoddeven.Text enternum = txtenternum.Text
SelectCaseenternum
CaseIs>= 1 txtsign.Text = "Positive"
IfenternumMod 2 = 0 Then txtoddeven.Text = "Even"
Else
txtoddeven.Text = "Odd"
EndIf
CaseIs = 0 txtsign.Text = "Zero"
Case Else txtsign.Text = "Negative"
EndSelect
EndSub
EndClass

SECOND QUARTER
ACTIVITY 1

PublicClassForm1

PrivateSub grade7_CheckedChanged(sender AsObject, e AsEventArgs) Handles grade7.CheckedChanged

If grade7.Checked = TrueThen filipino.Checked = True english.Checked = True math.Checked = True science.Checked = True mapeh.Checked = True ict.Checked = True research.Checked = True ap.Checked = True esp.Checked = True spanish.Checked = True nihongo.Checked = False gradelevel.Text = "Grade 7" numberofsubj.Text = "10"
EndIf
EndSub

PrivateSub grade8_CheckedChanged(sender AsObject, e AsEventArgs) Handles grade8.CheckedChanged
If grade8.Checked = TrueThen filipino.Checked = True english.Checked = True math.Checked = True science.Checked = True mapeh.Checked = True ict.Checked = True research.Checked = True ap.Checked = True esp.Checked = True spanish.Checked = False nihongo.Checked = False gradelevel.Text = "Grade 8" numberofsubj.Text = "9"
EndIf
EndSub

PrivateSub grade9_CheckedChanged(sender AsObject, e AsEventArgs) Handles grade9.CheckedChanged
If grade9.Checked = TrueThen filipino.Checked = True english.Checked = True math.Checked = True science.Checked = True mapeh.Checked = True ict.Checked = True research.Checked = True ap.Checked = True esp.Checked = True nihongo.Checked = True spanish.Checked = False gradelevel.Text = "Grade 9" numberofsubj.Text = "10"
EndIf
EndSub

PrivateSub grade10_CheckedChanged(sender AsObject, e AsEventArgs) Handles grade10.CheckedChanged
If grade10.Checked = TrueThen filipino.Checked = True english.Checked = True math.Checked = True science.Checked = True mapeh.Checked = True ict.Checked = True research.Checked = True ap.Checked = True esp.Checked = True nihongo.Checked = True spanish.Checked = False gradelevel.Text = "Grade 10" numberofsubj.Text = "10"
EndIf
EndSub

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub
EndClass

ACTIVITY 2

PublicClassForm1
DimtotalamountAsInteger
PrivateSubbtntotal_Click(sender AsObject, e AsEventArgs) Handlesbtntotal.Click
If CheckBox1.Checked = FalseAnd CheckBox2.Checked = FalseAnd CheckBox3.Checked = FalseAnd CheckBox4.Checked = FalseAnd CheckBox5.Checked = FalseAnd CheckBox6.Checked = FalseThen totalamount = MsgBox("Enter Number of Orders.", 1 + 16, "Your Order")
Else
If CheckBox1.Checked = TrueThen totalamount = txtburger.Text * 40
EndIf
If CheckBox2.Checked = TrueThen totalamount = totalamount + (txtchicken.Text * 45)
EndIf
If CheckBox3.Checked = TrueThen totalamount = totalamount + (txtfries.Text * 30)
EndIf
If CheckBox4.Checked = TrueThen totalamount = totalamount + (txtpizza.Text * 65)
EndIf
If CheckBox5.Checked = TrueThen totalamount = totalamount + (txtspaghetti.Text * 55)
EndIf
If CheckBox6.Checked = TrueThen totalamount = totalamount + (txtdrinks.Text * 20)
EndIf
Ifradiotakeout.Checked = TrueThen totalamount = totalamount + 10
ElseIfradiodelivery.Checked = TrueThen totalamount = totalamount + 40
EndIf
totalamount = MsgBox(totalamount, 0 + 64, "Amount")
EndIf
EndSub

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub
EndClass

ACTIVITY 4

PublicClassForm1
Dim number1 AsInteger
Dim number2 AsInteger
Dim multiplier AsInteger
Dim answer, a, iAsInteger
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click number1 = Val(TextBox1.Text) number2 = Val(TextBox2.Text) multiplier = 2
DoWhile multiplier < 3 answer = i * multiplier
ListBox1.Items.Add(a &" Times "& multiplier &" = "& answer)
Loop
EndSub

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub
EndClass

ACTIVITY 5

Public Class Form1 Dim P, n As Decimal Dim F, total_amount, css, i As Double Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub

Private Sub btncal_Click(sender As Object, e As EventArgs) Handles btncal.Click P = Val(TextBox1.Text) i = Val(TextBox2.Text) n = Val(TextBox3.Text) F = 1

For x = 1 To n css = (1 + (i * 0.01)) F = css * F total_amount = P * F TextBox4.Text = total_amount TextBox4.Text = Format(total_amount, "##0.00") Next

End Sub
End Class

THIRD QUARTER
ACTIVITY 1

Public Class Form1 Dim a As Integer Dim n, g As String Private Sub Kiaragc() a = TextBox1.Text If a < 0 Then n = "Negative" g = "" ElseIf a = 0 Then n = "Zero" g = "" Else n = "Positive" If a Mod 2 = 1 Then g = "Odd" Else g = "Even" End If End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Kiaragc() TextBox2.Text = n TextBox3.Text = g End Sub

End Class

ACTIVITY 2

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Clear() ListBox1.Items.Clear() End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num(1, 4) As String

num(0, 0) = "1958092" num(0, 1) = "Kiara Anne T. Mulleno" num(0, 2) = "Architecture" num(0, 3) = "Female" num(0, 4) = "November 26, 1999" num(1, 0) = "0711017" num(1, 1) = "Noelle Denise F. Dangue" num(1, 2) = "Medicine" num(1, 3) = "Female" num(1, 4) = "July 11, 2001"

If TextBox1.Text = "" Then MessageBox.Show("Enter a valid number") ElseIf TextBox1.Text = 0 Then For row = 0 To 0 For column = 0 To 4 ListBox1.Items.Add(num(row, column)) Next Next ElseIf TextBox1.Text = 1 Then For row = 1 To 1 For column = 0 To 4 ListBox1.Items.Add(num(row, column)) Next Next Else MessageBox.Show("Enter a valid number") End If

End Sub
End Class