Dim a(51),b(5)
a(0)=2:a(1)=3:a(2)=4:a(3)=5:a(4)=6:a(5)=7:a(6)=8:a(7)=9:a(8)=10:a(9)=11:a(10)=12:a(11)=13:a(12)=14
a(13)=2:a(14)=3:a(15)=4:a(16)=5:a(17)=6:a(18)=7:a(19)=8:a(20)=9:a(21)=10:a(22)=11:a(23)=12:a(24)=13:a(25)=14
a(26)=2:a(27)=3:a(28)=4:a(29)=5:a(30)=6:a(31)=7:a(32)=8:a(33)=9:a(34)=10:a(35)=11:a(36)=12:a(37)=13:a(28)=14
a(39)=2:a(40)=3:a(41)=4:a(42)=5:a(43)=6:a(44)=7:a(45)=8:a(46)=9:a(47)=10:a(48)=11:a(49)=12:a(50)=13:a(51)=14
randomize
for i=0 to 5
   b(i)=a(int(52*Rnd))
next
msgbox b(0)&","&b(1)&","&b(2)&","&b(3)&","&b(4)&","&b(5)
复制代码