Problema de lanzamiento de cohetes vb
Hay dos errores en su código
Error 1: la variable v se define como un tipo entero, pero se utiliza un número de punto flotante en el juicio posterior, como 7.91.
Entonces debería ser Dim v As Single
Error 2: v = Val(Text1.Text) Aunque no estoy seguro si esta línea es apropiada, pero en general debería serlo. v = CSng(Text1.Text) No hay nada de malo en esto.
Error 3: La condición de juicio de If es incorrecta. Debería ser If v <= 7.91 Entonces.