[VB6] Ottenere valore Random escludendo lo 0 (zero)

[jack11]

Salve,
ragazzi, dovrei creare un programma che estrae dei valori ma che escluda lo 0.
E' possibile?

Randomize
 b = Int(Rnd * 7) 
variabile = b

[EnSa]

Prova con questo:

Public Function Rand(ByVal Min As Long, ByVal Max As Long) As Long
  Rand = Int((Max - Min + 1) * Rnd) + Min
End Function

Dove Max è il valore massimo e Min è il valore minimo che vuoi che assuma il numero Rand

[jack11]

Funziona, grazie mille.

[EnSa]

Prego!!!