Visual Basic - Es un pequeño reto para una inespecta

Life is soft - evento anual de software empresarial
 
Vista:

Es un pequeño reto para una inespecta

Publicado por Rossy (6 intervenciones) el 25/08/2003 17:26:38
Hacer un programa que pida tres numeros N, M, y Z con debe mostrar todos los valores comprendidos entre N y M con un intervalo de Z. si M < N antes se habarn de intercambiar los valores.

Gracias por ayuda

mil gracias compañeros
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

RE:Es un pequeño reto para una inespecta

Publicado por Juan (284 intervenciones) el 25/08/2003 18:52:29
Bueno, aquí tienes un ejemplo, necesitas 3 textBox llamados txtNum1, txtNum2 y txtIntervalo, además de un commandButton llamado cmdListar y un listBox lstResultados. Después pega este código:

Private Sub cmdListar_Click()
Dim aux1 As Double, aux2 As Double, i As Double
Dim m As Double, n As Double, z As Double
aux1 = Val(txtNum1.Text)
aux2 = Val(txtNum2.Text)
z = Val(txtIntervalo.Text)
If aux1 < aux2 Then
m = aux2
n = aux1
Else
m = aux1
n = aux2
End If
lstResultados.Clear
For i = n To m Step z
lstResultados.AddItem Str(i)
Next i
End Sub

P.D.: esto me suena a ejercicio de aprendizaje, si es así no tiene mucho sentido que preguntes en el foro, pregunta a tu profesor.
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

Gracias Mi Amigo

Publicado por Rossy (6 intervenciones) el 25/08/2003 19:29:10
Muchas gracias Juan
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

RE:Es un pequeño reto para una inespecta

Publicado por JLL (37 intervenciones) el 25/08/2003 19:53:15
Es ""INEXPERTA"" Por Favor !!!!!!!!!!!!!!!!!
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