Programación en Visual Basic 2008

Se abre un nuevo proyecto de formularios Windows Forms.
Desde el Cuadro de herramientas, arrastre dos controles TextBox y un control
Button hacia el formulario.
Haga doble clic en Button1 para abrir el Editor de código.
En el controlador de eventos Button1_Click, agregue el siguiente código.
Visual Basic Express Copiar código
Dim minutes As Integer = CInt(Textbox1.Text)
Dim miles As Double = CDbl(Textbox2.Text)
Dim hours As Double = 0
hours = minutes / 60
MsgBox("Average speed " & GetMPH(hours, miles))
Debajo de la línea End Sub, agregue la siguiente función.
Visual Basic Express Copiar código
Function GetMPH(ByVal miles As Double, ByVal hours As Double) _
As String
GetMPH = CStr(miles / hours)
End Function
Presione F5 para ejecutar el programa. En el primer cuadro de texto, escriba
10 (para representar 10 minutos) y en el segundo cuadro de texto, escriba 5
(para representar las millas) y, a continuación, haga clic en Button1.
Aparecerá un cuadro con el mensaje "Average speed 0.03333334" (velocidad
media 0,03333334) ; no obstante, si recorre 5 millas en diez minutos, la
respuesta correcta serían 30 mph.
Mantenga abierto el proyecto: en el siguiente procedimiento aprenderá cómo
encontrar el error lógico.
Encontrar errores lógicos
En el último ejemplo, algo está obviamente mal con la lógica del programa.
Según el resultado, viaja menos de una milla por hora, no treinta millas por
hora como espera, pero ¿dónde está el error?
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 92