elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ejercicio] Aca tienen un ejercicio para practicar
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] Ir Abajo Respuesta Imprimir
Autor Tema: [Ejercicio] Aca tienen un ejercicio para practicar  (Leído 12,077 veces)
TGa.

Desconectado Desconectado

Mensajes: 43



Ver Perfil
Re: [Ejercicio] Aca tienen un ejercicio para practicar
« Respuesta #20 en: 5 Septiembre 2010, 02:57 »

Hola!! aqui les dejo mi code...
aclaro que soy principiante... me conformo solo con que funcione.

Código
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.    Dim n               As Byte
  5.    Dim Repetido        As Byte
  6.    Dim Numero(24)      As Byte
  7.    Dim i               As Byte
  8.    Dim Ordenar         As Boolean
  9.    Dim Aux             As Byte
  10.  
  11. '//Generar los numeros aleatorios no repetidos
  12.    Randomize Timer
  13.    For i = 0 To 24
  14.        n = Rnd * 30
  15.        If i = 0 Then
  16.            Numero(i) = n
  17.        Else
  18.            Repetido = i
  19.            Do
  20.                Repetido = Repetido - 1
  21.                If Numero(i) = Numero(Repetido) Then
  22.                    n = Rnd * 30
  23.                    Numero(i) = n
  24.                    Repetido = i
  25.                End If
  26.            Loop Until Repetido = 0
  27.        End If
  28.    Next i
  29.  
  30. '//Ordenar de menor a mayor
  31.    Ordenar = True
  32.    Do While Ordenar = True
  33.        Ordenar = False
  34.        For i = 0 To 23
  35.            If Numero(i + 1) < Numero(i) Then
  36.                Aux = Numero(i)
  37.                Numero(i) = Numero(i + 1)
  38.                Numero(i + 1) = Aux
  39.                Ordenar = True
  40.            End If
  41.        Next i
  42.    Loop
  43.  
  44. '//Cargar la matriz
  45.    For i = 0 To 24
  46.        If i = 0 Or i = 4 Or i = 6 Or i = 8 Or i = 12 Or i = 16 Or i = 18 Or i = 20 Or i = 24 Then
  47.            Label1(i).Caption = Numero(i)
  48.        End If
  49.    Next i
  50. End Sub


En línea

Páginas: 1 2 [3] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Preparación para un ejercicio
Ingeniería Inversa
Puntoinfinito 1 1,132 Último mensaje 27 Agosto 2012, 04:07
por apuromafo CLS
Ayuda con un ejercicio (imports.IO)
.NET (C#, VB.NET, ASP)
crashoverride1305 2 1,483 Último mensaje 8 Enero 2013, 04:32
por Eleкtro
ayuda, Ejercicio para examen!
Programación C/C++
edu__87 1 965 Último mensaje 15 Febrero 2013, 19:43
por durasno
Ayuda con ejercicio a entregar en c++
Programación C/C++
gabyricardo92 7 1,490 Último mensaje 9 Julio 2013, 16:48
por gabyricardo92
ejercicio de pozos ayuda
Programación C/C++
avilacity 3 1,407 Último mensaje 14 Septiembre 2013, 15:53
por eferion
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines