SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: michael en Martes 10 de Diciembre de 2002, 00:31
-
hola
en el codigo que me escribieron lo unico que no me quedo claro fue el como inicializar la funcion aleatoria??
'Inicializa la funcion aleatoria
Randomize
'Obtiene un numero cualquiera
n = CInt(Rnd(100) * 100)
'Recorre las filas
For i = 1 To n
'Recorre las columnas
For j = 1 To n
'Flag para encontrar un 0 o 1
sigue = 1
While sigue = 1
Randomize
x = CInt(Rnd * 10)
'Consulta si es 0 o 1
If x = 0 Or x = 1 Then
'Si es 0 o 1, lo visualiza
sigue = 0
End If
Wend
Print x
Next j
Next i