últimos mensajes de: josprou

Una idea sería asignar a cada nombre un ID, y crear una función que generase un integer aleatorio comprendido entre n1-n2.

El código que muestro a continuación es una adaptacción del código de Guille. Échale un ojo para profundizar en la generación de aleatorios.
http://www.elguille.info/NET/dotnet/random_Next.aspx

Código:

Option Strict On
Imports Microsoft.VisualBasic
Imports System

Module Module1
   Dim semilla As Integer
   Dim rnd As Random

   Sub Main()
   Dim num As Integer

   semilla = CInt(DateTime.Now.Ticks)
   ' Para que funcione Ticks
   ' debes quitar la comprobación de desbordamiento de enteros
   ' en las propiedades del proyecto, ficha compilación, opciones avanzadas

   rnd = New Random(semilla)

   For i As Integer = 1 To 10
   num = numeroaleatorio()
   Console.WriteLine("{0:00} {1}", i, num)
   Next
   Console.WriteLine()
   Console.WriteLine("Pulsa una tecla")
   Console.ReadKey()
   End Sub

   Function numeroaleatorio() As Integer
   Dim integro As Integer

   ' Prueba 1:
   ' El valor debe ser un integer válido,
   ' desde el numero 1
   ' hasta la numero 4
   integro = (rnd.Next(1, 5))

   ' Devolvemos el integer generado
   Return integro

   End Function
End Module

End Module