HOLA¡
Soy nueva aqui y quiero ver si me pueden ayudar con un codigo:
se supone que tengo que elevar al cuadrado 10 numeros que se introducen en un textbox y mostrarlos en un listbox
utilizando arrays en visual basic 6.0
pero me sale un error sobre variables mal definidas o algo asi
este es mi codigo:
Option Explicit
Dim NUMERO(10) As String
DIM RESULTADO(10) AS INTEGER
DIM N AS INTEGER
Private Sub cmdAGREGAR
If Len(Trim(Text1.Text)) = 0 Then
MsgBox ("DEBE INTRODUCIR UN NUMERO")
Text1.SetFocus
ElSE
Dim I As Long
Dim TOTAL As Long
For I = 1 To UBound(NUMERO)
If Len(Trim(NUMERO(I))) > 0 Then
TOTAL= TOTAL + 1
NUMERO= Text1.Text
N=VAL(NUMERO(TOTAL+1))
RESULTADO(TOTAL+1)=N*N
End If
Next I
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub cmdMOSTRAR
Dim I As Integer
For I = 1 To UBound(NUMERO)
If Len(Trim(NUMERO(I))) > 0 Then
List1.AddItem RESULTADO
End If
Next I
End Sub
de antemano muchas gracias por sus sugerencias
Mostrar Mensajes
pero bueno lo de pedir los numeros en un ciclo no me esta permitido, afuerza tiene que ser con el textbox y mostrarlos en un listbox
