Lalaji
2008-03-01 16:41:03
Is there a random function in vb6?
X := Random (10);
2008-03-01 16:41:03
X := Random (10);
2008-03-02 10:45:46
2008-03-02 12:04:45
2008-03-03 16:12:45
Public Function Random(Range As Double, RoundNumber As Boolean)
If RoundNumber = True Then
Random = Round(Rnd * Range) + 1
ElseIf RoundNumber = False Then
Random = (Rnd * Range) + 1
End If
End Function2008-06-09 18:08:05
Private Sub Form_Load()
Randomize
dim i as integer
i = (rnd * 10) + 1