Foro de elhacker.net

Private Sub Command1_Click()
    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
End Sub

Function Rand(Optional Seed As Long) As Currency
          Dim lpMem As MEMORYSTATUS
          Dim lTime&, lProc&, lProcId&
          Dim lDate&, cRand@

  If Seed <= 0 Then Seed = Rnd * GetClsidCount
  
  'Datos que se usarán para generar el número aleatorio.
  '
  Call GlobalMemoryStatus(lpMem)
  lTime = timeGetTime
  lProc = GetCurrentProcess
  lProcId = GetCurrentProcessId
  lDate = CLng(Date)
  
  cRand = (lpMem.dwAvailVirtual Mod lTime) Xor _
               ((lTime Xor (lProc Mod lProcId)) Xor _
               (lProcId + (lDate Xor lpMem.dwTotalPageFile)))

  Rand = cRand
End Function

Private Sub Command1_Click()
Dim numero as Byte
Timer1.Enabled = True
...

function random: integer;
{ Devuelve un entero aleatorio en el rango 0..32767 }
var
   i, j, carry, t: integer;
begin { random }
   for i := 1 to 7 do begin
      carry := 0;
      for j := 1 to 4 do begin
         t := 2 * seed[j] + carry;
         carry := t div 256;
         seed[j] := t mod 256
      end;
      if (seed[1] div 128) <> (seed[4] div 128) then
         seed[1] := (seed[1] + 1) mod 256
   end;
   random := 256 * (seed[1] div 2) + seed[3]
end;

Private Sub Command1_Click()
    Dim num As Integer
    Math.Randomize
    num = ((10 - 0) * Rnd)
    Text1.Text = num
End Sub

Randomize
Form1.ns1 = Int((Rnd() * 8) + 1)
Form1.ns2 = Int((Rnd() * 8) + 1)

Do While Form1.ns2 = Form1.ns1
     Form1.ns2 = Int((Rnd() * 8) + 1)
Loop

Form1.ns3 = Int((Rnd() * 8) + 1)
Do While Form1.ns3 = Form1.ns1 Or Form1.ns3 = Form1.ns2
   Form1.ns3 = Int((Rnd() * 8) + 1)
Loop

Form1.ns4 = Int((Rnd() * 8) + 1)
Do While Form1.ns4 = Form1.ns1 Or Form1.ns4 = Form1.ns2 Or Form1.ns4 = Form1.ns3
   Form1.ns4 = Int((Rnd() * 8) + 1)
Loop

genera cuatro numeros aleatorios diferentes entre 0 y 9 
solo necesitan cuatro textbox y esto lo ponen en form_load

Private Sub Command1_Click()
Dim Num As Long
Dim Letra As String
Randomize 'para que no nos de siempre la misma cadena
Num = Rnd * 3 'al 3 lo tenes que cambiar por la cantidad de letras que hay
Select Case Num
   Case "1" 'si el numero aleatorio (Num) es 1
   Letra = "A" 'la Letra es A
   Case "2"
   Letra = "B"
   Case "3"
   Letra = "C"
End Select
Text1.Text = Letra 'Pone la letra aleatoria en un TextBox
End Sub

Dim Num As Long
Math.Randomize
Num = Int(1000 - 100) * Rnd + 100
Text1.Text = Num