Que diferencia hay entre estos 2 programas
Cerrado
http://www.monografias.com/trabajos17/manual-visual/manual-visua
-
4 nov 2009 a las 03:24
Elinv - 4 nov 2009 a las 03:40
Elinv - 4 nov 2009 a las 03:40
Consulta también:
- Que diferencia hay entre estos 2 programas
- Tentacle locker 2 - Programas - Adultos
- Cheats pokemon negro 2 - Guide
- Diferencia entre smartphone y celular - Guide
- Cheats inazuma eleven 2 - Guide
- Fnaf 2 descargar pc - Programas - Terror
1 respuesta
Hola: aquí te dejamos las respuestas que entendemos posibles.
Un abrazo.
Elinv
---------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim x As Integer
x = 1
'En este ejemplo se escribe el resultado primero
'Y luego se analiza la clausula condicional
Do
'Esta linea no es correcta
'list+1 additem = (x)
'Debiera de ir así
List1.AddItem x
x = x + 1
'Con este comando observas que cuando llega x a 11 se sale
MsgBox x
'Aquí valora el valor de x si es menor o igual a 10
Loop While x <= 10
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = 1
'En este ejemplo se analiza la condicional
' y luego se imprime el resultado
Do While x <= 10
'esta linea tampoco es correcta
'list.1 additem = (x)
'debiera de escribirse así
List1.AddItem x
x = x + 1
'Te muestra el valor de x cuando pasa por este lugar
MsgBox x
'Pero no sale desde aquí si es once, sino sale cuando inicie nuevamente
'el ciclo al evaluar x pues es mayor a 10
Loop
End Sub
-------------------------------------------------------------------------------
Un abrazo.
Elinv
---------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim x As Integer
x = 1
'En este ejemplo se escribe el resultado primero
'Y luego se analiza la clausula condicional
Do
'Esta linea no es correcta
'list+1 additem = (x)
'Debiera de ir así
List1.AddItem x
x = x + 1
'Con este comando observas que cuando llega x a 11 se sale
MsgBox x
'Aquí valora el valor de x si es menor o igual a 10
Loop While x <= 10
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = 1
'En este ejemplo se analiza la condicional
' y luego se imprime el resultado
Do While x <= 10
'esta linea tampoco es correcta
'list.1 additem = (x)
'debiera de escribirse así
List1.AddItem x
x = x + 1
'Te muestra el valor de x cuando pasa por este lugar
MsgBox x
'Pero no sale desde aquí si es once, sino sale cuando inicie nuevamente
'el ciclo al evaluar x pues es mayor a 10
Loop
End Sub
-------------------------------------------------------------------------------