Hola chicos, bueno les vengo a plantear algo sencillo pero no sé donde está el error, la cosa es que tengo que hacer un programa para el colegio que dados 2 numeros ingresados por el usuario, muestre en un label todos los numeros pares que se encuentran entre ellos separados por una coma, el código en si para averiguar si un numero es par y eso lo tengo bien, pero no logro que me los muestre uno al lado del otro..
El código es:
Private Sub cmdBuscar_Click()
Dim intX As Integer, intY As Integer, Acum1 As String, Acum2 As String
intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)
If (intX < intY) Then
For x = intX To intY
If (x Mod 2 = 0) Then
Acum1 = Acum1 + x
lblResultado.Caption = Acum1
End If
Next x
Else
For x = intY To intX Step -1
If (x Mod 2 = 0) Then
Acum2 = Acum2 + x
lblResultado.Caption = Acum2
End If
Next x
End If
End Sub
Les dejo el proyecto por si le quieren dar un revisada si es necesario:
Link: http://www.mediafire.com/?mzz1mo2m3wy
Gracias ;D
Por ejemplo:
Private Sub cmdBuscar_Click()
Dim intX As Integer
Dim intY As Integer
Dim i As Integer
intX = 1
intY = 10
For i = intX To intY
If i Mod 2 = 0 Then
lblResultado.Caption = i & ", "
End If
Next
End Sub
PD: Lo codee de memoria, puede tener errores.
Lo modifique como me dijiste pero todavía me sigue dando mal, pongo 1 y 20 y me muestra que los pares que hay nada más es "20"
Private Sub cmdBuscar_Click()
Dim intX As Integer, intY As Integer
intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)
If (intX < intY) Then
For x = intX To intY
If (x Mod 2 = 0) Then
lblResultado.Caption = x & ", "
End If
Next x
Else
For x = intY To intX Step -1
If (x Mod 2 = 0) Then
lblResultado.Caption = x & ", "
End If
Next x
End If
End Sub
Una imagen:
(http://i.elhacker.net/i?i=AIQRnDvzsGBv2H6Qf3SDI2Vo) (http://i.elhacker.net/d?i=AIQRnDvzsGBv2H6Qf3SDI2Vo)
:-\
A ver, ponedlo así.
Private Sub cmdBuscar_Click()
Dim intX As Integer
Dim intY As Integer
Dim i As Integer
intX = Val(txtValor1.Text) ' 1
intY = Val(txtValor2.Text) ' 20
For i = intX To intY
If (i Mod 2 = 0) Then
lblResultado.Caption = lblResultado.Caption & i & ", "
End If
Next
End Sub