ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¶Ã¼Æ50.rar (23.91 KB)

  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.         For i = 50 To 2 Step -1
  9.             j = Int(Rnd * i) + 1
  10.             k = a(r, j)
  11.             a(r, j) = a(r, i)
  12.             a(r, i) = k
  13.         Next
  14.     Next
  15.     [b5].Resize(2000, 50) = a
  16.     MsgBox Timer - t
  17. End Sub
½Æ»s¥N½X

TOP

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

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD