Principiante

11/11/2005 - 15:34 por Joel John | Informe spam
Hola
estoy interesado en meterme de lleno a la programacion y estoy haciendo un
programita con unos numeritos aleatorios.

es simple. el programa genera los numeros aleatorios en un listbox. pero me
los agrega secuencialmente eso esta bien.
pero si quiero agregarlos uno al lado del otro por lo menos seis digitos
aqui esta el code:

Dim num, res, r As Integer
res = TextBox1.Text ' de aqui tomo el rango en que se generara
el numero

For r = 1 To 5 ' las cantidades de lineas que se generaran
Me.ListBox1.Items.Add(CInt(Int((res * Rnd() + 1))))
Next

este codigo trae esto por ejemplo suponiendo que el numero sea ""
5
4
6
2
3

bien pero lo que quiero es unirlos por ejemplo
5, 4, 6, 2, 3

intente con & pero no me sale. ¿como lo hago?

Preguntas similare

Leer las respuestas

#1 amigo
11/11/2005 - 19:15 | Informe spam
For r = 1 To 5 ' las cantidades de lineas que se
generaran
strLista= Cstr(Int((res * Rnd() + 1))) & "," & strLista
Next


Me.ListBox1.Items.Add(strLista)

"Joel John" escribió en el mensaje
news:
Hola
estoy interesado en meterme de lleno a la programacion y estoy haciendo un
programita con unos numeritos aleatorios.

es simple. el programa genera los numeros aleatorios en un listbox. pero
me
los agrega secuencialmente eso esta bien.
pero si quiero agregarlos uno al lado del otro por lo menos seis digitos
aqui esta el code:

Dim num, res, r As Integer
res = TextBox1.Text ' de aqui tomo el rango en que se generara
el numero

For r = 1 To 5 ' las cantidades de lineas que se
generaran
Me.ListBox1.Items.Add(CInt(Int((res * Rnd() + 1))))
Next

este codigo trae esto por ejemplo suponiendo que el numero sea ""
5
4
6
2
3

bien pero lo que quiero es unirlos por ejemplo
5, 4, 6, 2, 3

intente con & pero no me sale. ¿como lo hago?


Respuesta Responder a este mensaje
#2 Jorge Serrano [MVP VB]
12/11/2005 - 11:48 | Informe spam
No te olvides con inicializar el proceso con la instrucción (sólo la primera
vez y antes de ejecutarlo en el bucle):

Randomize()

Sino, te saldrán números aleatorios repetidos todo el tiempo que ejecutes la
aplicación por primera vez.

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Joel John" wrote:

Hola
estoy interesado en meterme de lleno a la programacion y estoy haciendo un
programita con unos numeritos aleatorios.

es simple. el programa genera los numeros aleatorios en un listbox. pero me
los agrega secuencialmente eso esta bien.
pero si quiero agregarlos uno al lado del otro por lo menos seis digitos
aqui esta el code:

Dim num, res, r As Integer
res = TextBox1.Text ' de aqui tomo el rango en que se generara
el numero

For r = 1 To 5 ' las cantidades de lineas que se generaran
Me.ListBox1.Items.Add(CInt(Int((res * Rnd() + 1))))
Next

este codigo trae esto por ejemplo suponiendo que el numero sea ""
5
4
6
2
3

bien pero lo que quiero es unirlos por ejemplo
5, 4, 6, 2, 3

intente con & pero no me sale. ¿como lo hago?


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida