Here is a loop that will add odd numbers to listbox1 and even numbers to listbox2:
vb Code:
For j = 1 To 12 For i = 1 To 31 Randomize x = Int(Rnd * 13 + 1) winner(j, i) = x If j / 2 = int(j / 2) Then ListjEven.AddItem winner(j, i) Else ListjOdd.AddItem winner(j, i) EndIf Next i Next j




Reply With Quote