PRIMER PARCIAL

PRIMER PUNTO

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1 As Single
        Dim num2 As Single
        Dim num3 As Single
        Dim num4 As Single
        Dim num5 As Single
        Dim num6 As Single
        Dim num7 As Single
        Dim num8 As Single
        Dim suma As Single
        Dim multiplicacion As Single
        Dim resta As Single
        Dim division As Single
        num1 = TextBox1.Text
        num2 = TextBox2.Text
        num3 = TextBox3.Text
        num4 = TextBox4.Text
        num5 = TextBox5.Text
        num6 = TextBox6.Text
        num7 = TextBox7.Text
        num8 = TextBox8.Text
        suma = num1 + num2
        Label3.Text = CStr(suma)
        multiplicacion = num3 * num4
        Label6.Text = CStr(multiplicacion)
        resta = num5 - num6
        Label9.Text = CStr(resta)
        division = num7 / num8
        Label12.Text = CStr(division)
    End Sub
End Class

SEGUNDO PUNTO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim nombres(4) As String

        Dim sueldos(4) As Single

        Dim total As Single

        nombres(0) = TextBox1.Text

        nombres(1) = TextBox3.Text

        nombres(2) = TextBox5.Text

        nombres(3) = TextBox7.Text

        sueldos(0) = TextBox2.Text

        sueldos(1) = TextBox4.Text

        sueldos(2) = TextBox6.Text

        sueldos(3) = TextBox8.Text

        total = sueldos(0) + sueldos(1) + sueldos(2) + sueldos(3)

        TextBox9.Text = nombres(0) + CStr(sueldos(0)) + vbCrLf + nombres(1) + CStr(sueldos(1)) + vbCrLf + nombres(2) + CStr(sueldos(2)) + vbCrLf + nombres(3) + CStr(sueldos(3)) + vbCrLf + "total:" + CStr(total)

    End Sub

End Class