| Ver tema anterior :: Ver siguiente tema | | Autor | Mensaje |
|---|
jhosep
Registrado: 12 Nov 2005
Mensajes: 31
Ubicación: acatlipa, temixco Morelos
|  Publicado: 16/09/2006 2:47 pm | | | Título: imput box y msgbox |
| Hola Estoy tratando de hacer un programa que al pulsar sobre el boton me aparesca el imputbox, y el usuario introdusca don numero y le conteste con los numero inpares entre los dos numero, ejemplo
numero 1: 2
numero 2: 10
los numero impares son: 3, 5, 7, 9
el codigo que tengo hasta el momento es el siquiente pero por alguna razon esta mal :
| Código: |
Private Sub Command1_Click()
Dim res As Integer
Dim i As Integer
a = 1
b = 2
For i = a To b
res = InputBox("entroduce el numero", i)
g = 2 * i + 1
MsgBox "los numeros inpares son: " & g
Next i
End Sub
|
agradecere su ayuda |
| | Volver arriba | |  | javi_rubio
Registrado: 09 Ago 2006
Mensajes: 53
Ubicación: Barcelona
| | Publicado: 17/09/2006 2:20 am | | | Título: |
| Hola, creo que lo tienes mal planteado el problema, ya que el bucle solo lo hara dos veces siempre.
Yo he pensado en algo parecido a esto, quizas se pueda hacer dde muchas maneras, pero he pensado una facil para que la entiendas.
| Código: | Dim num1 As Byte
Dim num2 As Byte
Dim i As Byte
Dim res As String
num1 = InputBox("Introduce el primer numero")
num2 = InputBox("Introduce el segundo numero")
'compruebo si el primer numero introducido es par
If num1 Mod 2 = 0 Then
num1 = num1 + 1
End If
For i = num1 To num2 Step 2
res = res & " " & i
Next i
MsgBox ("Los numeros impares son" & res)
End Sub |
Saludos y espero haberte ayudado!! |
| | Volver arriba | | | jhosep
Registrado: 12 Nov 2005
Mensajes: 31
Ubicación: acatlipa, temixco Morelos
| | Publicado: 17/09/2006 10:00 am | | | Título: Agradecimientos |
| TE AGRADESCO
MUCHO TU GRAN AYUDA Y CREO
QUE ESTA FORMA ESMAS FACIL |
| | Volver arriba | | | | |
| No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
|
|
| |
F.A.Q.
Conéctese para revisar sus mensajes