Convertir de grados Celsius a grados Fahrenheit y viceversa Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que convierta de grados Celsius a grados Fahrenheit y de grados Fahrenheit a grados Celsius.

Solución

• Entrada: 37 grados Celsius

• Salida: 98.6 grados Fahrenheit

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim g As Double
        g = TextBox1.Text
        If (ComboBox1.SelectedIndex = 0) Then
            TextBox2.Text = Trim(g * (9 / 5) + 32) + "  ºF"
        Else
            TextBox2.Text = Trim((g - 32) * (5 / 9)) + "  ºC"
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic