Random

[yyzyyz]

:master: ho provato con tutti e 2 i sistemi, ottengo sempre numeri random, purtroppo nn ho la guida disponibile sottomano.

Dim min As Integer
Dim max As Integer
Dim num, num2 As Integer

Private Sub Command1_Click()
min = 1
max = 100
Randomize
num = Int((max - min + 1) * Rnd + min)
num2 = Int(Rnd(min) * max)

Label1.Caption = num
Label2.Caption = num2
End Sub