[Problema] Programa para averiguar números pares entre 2 números

[Dreamaker]

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:

Código (vb) [Seleccionar] Expandir

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

[Shell Root]

Por ejemplo:

Código (vb) [Seleccionar] Expandir

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.

[Dreamaker]

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"

Código (vb) [Seleccionar] Expandir

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:

[Shell Root]

A ver, ponedlo así.

Código (vb) [Seleccionar] Expandir

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