主题：如何将1至100这组数字把顺序打乱

 如何将1至100这组数字随机把顺序打乱？如何写这个代码呢？谢谢！！

http://www.foxtable.com/webhelp/topics/0349.htm

Box(1)：85        Box(21)：84        Box(41)：78        Box(61)：66        Box(81)：51
Box(2)：21        Box(22)：77        Box(42)：13        Box(62)：35        Box(82)：4
Box(3)：25        Box(23)：72        Box(43)：62        Box(63)：5        Box(83)：83
Box(4)：100        Box(24)：12        Box(44)：1        Box(64)：31        Box(84)：36
Box(5)：55        Box(25)：10        Box(45)：33        Box(65)：15        Box(85)：67
Box(6)：75        Box(26)：74        Box(46)：79        Box(66)：45        Box(86)：30
Box(7)：94        Box(27)：61        Box(47)：47        Box(67)：56        Box(87)：38
Box(8)：69        Box(28)：42        Box(48)：52        Box(68)：18        Box(88)：68
Box(9)：49        Box(29)：27        Box(49)：53        Box(69)：60        Box(89)：54
Box(10)：17        Box(30)：87        Box(50)：81        Box(70)：14        Box(90)：8
Box(11)：93        Box(31)：46        Box(51)：43        Box(71)：44        Box(91)：28
Box(12)：63        Box(32)：7        Box(52)：89        Box(72)：22        Box(92)：3
Box(13)：98        Box(33)：41        Box(53)：50        Box(73)：80        Box(93)：70
Box(14)：24        Box(34)：16        Box(54)：6        Box(74)：58        Box(94)：96
Box(15)：23        Box(35)：95        Box(55)：34        Box(75)：59        Box(95)：19
Box(16)：99        Box(36)：82        Box(56)：65        Box(76)：29        Box(96)：48
Box(17)：97        Box(37)：64        Box(57)：88        Box(77)：76        Box(97)：73
Box(18)：91        Box(38)：37        Box(58)：57        Box(78)：32        Box(98)：90
Box(19)：9        Box(39)：20        Box(59)：92        Box(79)：2        Box(99)：26
Box(20)：86        Box(40)：11        Box(60)：40        Box(80)：39        Box(100)：71

对输出内容进行格式化处理：
Output.Show("Box(" & Format(i + 1,"000") & ")：" & Format(Box(i), "000"))

Box(001)：014    Box(021)：022    Box(041)：019    Box(061)：006    Box(081)：069
Box(002)：083    Box(022)：044    Box(042)：071    Box(062)：005    Box(082)：053
Box(003)：096    Box(023)：073    Box(043)：021    Box(063)：031    Box(083)：043
Box(004)：072    Box(024)：060    Box(044)：066    Box(064)：002    Box(084)：054
Box(005)：082    Box(025)：051    Box(045)：020    Box(065)：038    Box(085)：009
Box(006)：042    Box(026)：035    Box(046)：094    Box(066)：064    Box(086)：003
Box(007)：048    Box(027)：057    Box(047)：061    Box(067)：039    Box(087)：092
Box(008)：095    Box(028)：033    Box(048)：034    Box(068)：017    Box(088)：049
Box(009)：093    Box(029)：056    Box(049)：084    Box(069)：091    Box(089)：074
Box(010)：078    Box(030)：076    Box(050)：077    Box(070)：062    Box(090)：028
Box(011)：032    Box(031)：052    Box(051)：088    Box(071)：079    Box(091)：068
Box(012)：100    Box(032)：010    Box(052)：011    Box(072)：075    Box(092)：018
Box(013)：024    Box(033)：013    Box(053)：050    Box(073)：055    Box(093)：029
Box(014)：027    Box(034)：086    Box(054)：045    Box(074)：041    Box(094)：016
Box(015)：098    Box(035)：070    Box(055)：040    Box(075)：058    Box(095)：036
Box(016)：030    Box(036)：063    Box(056)：059    Box(076)：065    Box(096)：085
Box(017)：004    Box(037)：026    Box(057)：001    Box(077)：025    Box(097)：067
Box(018)：012    Box(038)：023    Box(058)：007    Box(078)：080    Box(098)：090
Box(019)：008    Box(039)：087    Box(059)：099    Box(079)：089    Box(099)：046
Box(020)：015    Box(040)：047    Box(060)：037    Box(080)：097    Box(100)：081

谢谢！