[µo°Ý] ¶Ã¼Æ50¸¹2000²Õ³]©w°ÝÃD

jeff5424

½Ð°Ý¤j¤j:
             1²Õ¤ÀAB¨â¸¹(1~50)¨Ï¥Î¶Ã¼Æ
         A©ÎB¬°¤@­Ó³æ¦ì
         §Ú·Q±N±o¨ì2000²Õ¶Ã¼Æ²Õ¦X
         ¨C²Õ¤£¥i­«½Æ
                 ÁÂÁÂ

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

jeff5424

«D±`·PÁÂchin15¤j¤j£x¨ó§U