chin15

1. Sub rd()
   
2.     t = Timer
   
3.     Dim a(1 To 2000, 1 To 50), k&, r&, i&, j&
   
4.     For r = 1 To 2000
   
5.         For i = 1 To 50
   
6.             a(r, i) = i
   
7.         Next
   
8. 
   
9.         For i = 50 To 2 Step -1
   
10.             j = Int(Rnd * i) + 1
    
11.             k = a(r, j)
    
12.             a(r, j) = a(r, i)
    
13.             a(r, i) = k
    
14.         Next
    
15.     Next
    
16.     [b5].Resize(2000, 50) = a
    
17.     MsgBox Timer - t
    
18. End Sub

½Æ»s¥N½X