GRADOS CENTIGRADOS A FAHRENHEIT

VISTA TERMINADA

 

 VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit

Dim centigrade, fara As Double

Private Sub btnCalcular_Click()

centigrade = Val(Me.txtCentigrade.Text)

fara = 32 + (9 * centigrade / 5)

Me.txtFara.Text = fara

End Sub

Private Sub btnSalir_Click()

End

End Sub