InterfacePublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim r8, r7, r6, r5, r4, r3, r2, r1, numero, resultado As Integernumero = TextBox1.Textnumero = Convert.ToInt16(TextBox1.Text)r1 = numero Mod 2numero = numero / 2r2 = numero Mod 2numero = numero / 2r3 = numero Mod 2numero = numero / 2r4 = numero Mod 2numero = numero / 2r5 = numero Mod 2numero = numero / 2r6 = numero Mod 2numero = numero / 2r7 = numero Mod 2numero = numero / 2r8 = numero Mod 2numero = numero / 2TextBox2.Text = Convert.ToString(r8)TextBox3.Text = Convert.ToString(r7)TextBox4.Text = Convert.ToString(r6)TextBox5.Text = Convert.ToString(r5)TextBox6.Text = Convert.ToString(r4)TextBox7.Text = Convert.ToString(r3)TextBox8.Text = Convert.ToString(r2)TextBox9.Text = Convert.ToString(r1)End SubEnd Class InterfacePublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim idade1 As Integeridade1 = TextBox1.TextIf idade1 <= 7 ThenLabel2.Text = "Infantil A"End IfIf idade1 >= 8 ThenLabel2.Text = "Infantil B"End IfIf idade1 >= 12 ThenLabel2.Text = "Juvenil A"End IfIf idade1 >= 14 ThenLabel2.Text = "Juvenil B"End IfIf idade1 >= 18 ThenLabel2.Text = "Adulto"End IfEnd Sub End Class InterfacePublic Class Form1Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickLabel3.Text = DateTime.Now.ToLongTimeString()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer2.Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTimer2.Enabled = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox6.Text = 0TextBox5.Text = 0TextBox4.Text = 0TextBox1.Text = 0End SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.TickIf TextBox1.Text < 59 ThenTextBox1.Text = TextBox1.Text + 1ElseTextBox1.Text = 0TextBox4.Text = TextBox4.Text + 1End IfIf TextBox5.Text > 59 ThenTextBox5.Text = 0TextBox6.Text = TextBox6.Text + 1End IfEnd SubEnd Class Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n11, n12, n13, n14, n15, n16, n17, n18, n19, n20, n21, n22, n23, n24, n25 As Integer n1 = TextBox1.Text n2 = TextBox2.Text n3 = TextBox3.Text n4 = TextBox4.Text n5 = TextBox5.Text n6 = TextBox6.Text n7 = TextBox7.Text n8 = TextBox8.Text n9 = TextBox9.Text n10 = TextBox10.Text n11 = TextBox11.Text n12 = TextBox12.Text n13 = TextBox13.Text n14 = TextBox14.Text n15 = TextBox15.Text n16 = TextBox16.Text n17 = TextBox17.Text n18 = TextBox18.Text n19 = TextBox19.Text n20 = TextBox20.Text n21 = TextBox21.Text n22 = TextBox22.Text n23 = TextBox23.Text n24 = TextBox24.Text n25 = TextBox25.Text a = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11 + n12 + n13 + n14 + n15 + n16 + n17 + n18 + n19 + n20 + n21 + n22 + n23 + n24 + n25 Label3.Visible = True Label3.Text = a b = n1 + n7 + n13 + n19 + n25 Label5.Visible = True Label5.Text = b c = n5 + n9 + n13 + n17 + n21 Label7.Visible = True Label7.Text = c End SubEnd Class InterfacePublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As Integer Dim b As