Dim Velocidadkh As Double
Dim Velocidadms As Double
distancia = txtdistancia.Text
tiempo = txttiempo.Text
Velocidadkh = Val(distancia) / Val(tiempo)
Velocidadms = Val(Velocidadkh) * Val(18 / 5)
lblresultado.Text = "La velocidad es " & Val(Velocidadkh) & " km/h" & vbCrLf & _
"La velocidad es " & Val(Velocidadms) & " m/s"
End Sub
Private Sub cmdsalir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdsalir.Click
MsgBox("Gracias por utilizar nuestro programa de cáclulo de velocidad")
Me.Hide()
End Sub
Private Sub cmdnuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdnuevo.Click
txtdistancia.Text = ""
txttiempo.Text = ""
lblresultado.Text = "El resultado de esta operación es:"
txtdistancia.Focus()
End Sub
End Class