Visual Basic - leer varios números desde inputbox

Life is soft - evento anual de software empresarial
   
Vista:

leer varios números desde inputbox

Publicado por Alejandro Caro (11 intervenciones) el 29/05/2011 19:00:46
ejercicio.
Escriba un código para un algoritmo que encuentre las raices reales de la ecuación de segundo grado:
ax2 + bx + c = 0, donde a, b y c son valores leídos de la entrada.

Tengo dos preguntas: Una es como hago para que visual basic lea esos tres números y los almacene en la memoria y concatene esos valores con la cadena de texto print.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
    Dim x1, x2, a, b, c, d, quadratic As Integer
    d = InputBox("Ingrese a b c:")
    'como hago para que visual basic lea esos tres números y los almacene en la memoria
    quadratic = ((b ^ 2) - 4) * a * c
    If (Sqr(quadratic) >= 0) Then
            x1 = (-b + Sqr(quadratic) / 2 * a)
            x2 = (-b - Sqr(quadratic) / 2 * a)
        Else
            x1 = x2 = (-b / 2 * a)
        End If
    Print ("Los valores de x1 y x2 son:" & f & f) ' como hago para que agregue los valores en este print
        If (Sqr(quadratic) < 0) Then
            Print (f & f & "son complejos.")
        End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

leer varios números desde inputbox

Publicado por chiguer (17 intervenciones) el 30/05/2011 23:40:06
No para usar inputbox para meter datos en lugar de usar 3 cajas de texto, pero bueno si es es el objetivo de usar un inputbox ESTE ES EL CODIGO:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Dim a, b, c As Integer
 
Private Sub Command1_Click()
Dim x As Integer
 
For x = 1 To 3
 
Select Case x
Case 1
a = InputBox("ingresa el valor de a")
    If a = "" Or a = 0 Then
MsgBox "variable no definida"
End If
 
Case 2
b = InputBox("ingresa el valor de b")
    If a = "" Or a = 0 Then
MsgBox "variable no definida"
End If
 
Case 3
c = InputBox("ingresa el valor de c")
    If a = "" Or a = 0 Then
MsgBox "variable no definida"
End If
 
End Select
 
Next
 
End Sub

COMO ESTO SOLO ME ENVIA UN RESULTADO CADA VEZ Y ME LO GUARDA EN UNA VARIABLE A TI TE TOCARIA HACER UNA FUNCION PARA OPTIMIZAR ESTE CODIGO.

SALDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Jaime

leer varios números desde inputbox

Publicado por Jaime (1 intervención) el 14/09/2016 17:57:09
si llega a marcar error, definimos la variable por ejemplo a=0 antes del inputbox,

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Command1_Click()
Dim x As Integer
 
For x = 1 To 3
 
Select Case x
Case 1
a="0"
a = InputBox("ingresa el valor de a")
If a = "" Or a = 0 Then
MsgBox "variable no definida"
End If
 
Case 2
b=0
b = InputBox("ingresa el valor de b")
If b = "" Or b = 0 Then
MsgBox "variable no definida"
End If
 
Case 3
c=0
c = InputBox("ingresa el valor de c")
If c = "" Or c = 0 Then
MsgBox "variable no definida"
End If
 
End Select
 
Next
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar