-Creamos el siguiente formulario e insertamos el código en el botón de Calcular.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'CREAMOS LAS VARIABLES CON LAS QUE VAMOS A TRABAJAR. Dim opcion As String Dim numero1, numero2 As Integer Dim operacion As Double ' If RadioButton1.Checked = True Then 'Si la opción del radiobutton está marcada opcion = "Sumar" 'El valor de la variable será "Sumar" End If If RadioButton2.Checked = True Then opcion = "Restar" End If If RadioButton3.Checked = True Then opcion = "Multiplicar" End If numero1 = TextBox1.Text 'Recoje el valor que pongamos en la caja de texto del formulario. numero2 = TextBox2.Text Select Case opcion Case Is = "Sumar" 'En el caso de que el valor de la variable opcion sea Sumar. operacion = numero1 + numero2 Case Is = "Restar" operacion = numero1 - numero2 Case Is = "Multiplicar" operacion = numero1 * numero2 Case Else 'Si no se a dado ningún caso. MsgBox("No has seleccionado ninguna operación") Exit Sub End Select MsgBox("El es resultado de la operación es : " + operacion.ToString) End Sub End Class