Programación VB, cálculo del valor Y, entrada X desde el teclado (dos métodos)
¿Por qué no entiendo lo que escribiste?
Y={ =0)
Oh, ya veo, ¿es y={
{x^-2 (xgt; 0)
Está bien
p>Utilizo el evento de clic de from para calcular el valor de y
El primer tipo se ingresa mediante el cuadro de entrada
Private Sub Form_Click()
dim x , y as double
A:
x=inputbox("Ingrese un valor para x") 'Ingrese x
si notisnumeric(x) entonces
msgbox "La entrada debe ser un número"
goto A 'Determinar si x es un valor numérico
si xlt;=0 entonces
y= x^3 10*x
si no
y=x^-2
end if
print y
End Sub
El segundo método es usar un cuadro de texto para ingresar x
Coloque dos cuadros de texto en de, es decir, texto1 y texto2
Ingrese el valor de x en texto1
Muestre el resultado y en texto2
Código:
Privado Sub Text1_KeyPress(KeyAscii As Integer)
Si no es Numeric(Chr(KeyAscii )) Entonces
KeyAscii = 0
End If 'Utilice directamente el evento de pulsación de tecla para limita la entrada solo a números, pero también limita la tecla de retroceso Para eliminar, use Eliminar
End Sub
Private Sub Form_Click()
if val. (text1.text)lt;=0 then
text2.text=Str(Val (text1.text)^3 10*Val(text1.text)) 'Si eres principiante, presta atención a los hábitos de programación
else
text2.text=Str(Val( text1.text)^-2)
end if
Fin sub