| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何将1至100这组数字把顺序打乱 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183126) |
| -- 作者：爱好所有 -- 发布时间：2022/10/25 15:04:00 -- 如何将1至100这组数字把顺序打乱 如何将1至100这组数字随机把顺序打乱？如何写这个代码呢？谢谢！！ |
| -- 作者：有点蓝 -- 发布时间：2022/10/25 15:18:00 -- http://www.foxtable.com/webhelp/topics/0349.htm |
| -- 作者：bjljb -- 发布时间：2022/10/28 21:12:00 -- 假设用100个盒子来存放这100个数字，每个盒子按1～100顺序编号，把100个随机数放入这100个盒子，然后按盒子编号顺序输出即可。 Dim Box(99) As Integer \'记录盒子编号
Dim Rnd(99) As Double \'存放随机数 For i As Integer = 0 To 99 Box(i) = i + 1 \'在每一个盒子里按顺序放入一个数字，也就是给每个盒子编号 Rnd(i) = Rand.NextDouble \'产生随机数 Next Array.Sort(Rnd, Box) \'对随机数排序，盒子里的数字随之乱序排列，但是每个盒子的编号是固定的，不会跟着变，由此达到在每个盒子里随机放入一个数字的目的 For i As Integer = 0 To 99 Output.Show("Box(" & i + 1 & ")：" & Box(i)) \'把1～100乱序输出 Next [此贴子已经被作者于2022/10/29 10:31:18编辑过]
|
| -- 作者：bjljb -- 发布时间：2022/10/29 9:53:00 -- 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 [此贴子已经被作者于2022/10/29 9:58:12编辑过]
|
| -- 作者：bjljb -- 发布时间：2022/10/29 10:06:00 -- 对输出内容进行格式化处理： 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 |
| -- 作者：爱好所有 -- 发布时间：2022/10/29 20:28:00 -- 谢谢！ |