Ejercicio Residencia

 EJERCICIO RESIDENCIAS

Public Class Total

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Tipo As String
        Dim VTSs As Single = 0
        Dim Total As Single

        If RadioButton1.Checked Then
            Tipo = "Sencilla"
        Else
            If RadioButton2.Checked Then
                Tipo = "Doble"
            Else
                If RadioButton3.Checked Then
                    Tipo = " Triple"
                End If
            End If
        End If
        If CheckBox1.Checked Then
            VTSs += 10000
        End If
        If CheckBox2.Checked Then
            VTSs += 10000
        End If
        If CheckBox3.Checked Then
            VTSs += 10000
        End If
        Select Case Tipo
            Case "Sencilla"
                Total = 50000 + VTSs


            Case "Doble"
                Total = 80000 + VTSs

            Case "Triple"
                Total = 100000 + VTSs

        End Select
        TextBox1.Text = CStr(Total)
    End Sub
End Class