Public
Class Form1 Dim A(100) As Control, B(100) As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim i, j As Integer
A(1) = Button1 '用Excel處理控制項陣列
A(2) = Button2
A(3) = Button3
A(4) = Button4
A(5) = Button5
A(6) = Button6
A(7) = Button7
A(8) = Button8
A(9) = Button9
A(10) = Button10
A(11) = Button11
A(12) = Button12
A(13) = Button13
A(14) = Button14
A(15) = Button15
A(16) = Button16
A(17) = Button17
A(18) = Button18
A(19) = Button19
A(20) = Button20
A(21) = Button21
A(22) = Button22
A(23) = Button23
A(24) = Button24
A(25) = Button25
A(26) = Button26
A(27) = Button27
A(28) = Button28
A(29) = Button29
A(30) = Button30
A(31) = Button31
A(32) = Button32
A(33) = Button33
A(34) = Button34
A(35) = Button35
A(36) = Button36
A(37) = Button37
A(38) = Button38
A(39) = Button39
A(40) = Button40
A(41) = Button41
A(42) = Button42
A(43) = Button43
A(44) = Button44
A(45) = Button45
A(46) = Button46
A(47) = Button47
A(48) = Button48
A(49) = Button49
A(50) = Button50
A(51) = Button51
A(52) = Button52
A(53) = Button53
A(54) = Button54
A(55) = Button55
A(56) = Button56
A(57) = Button57
A(58) = Button58
A(59) = Button59
A(60) = Button60
A(61) = Button61
A(62) = Button62
A(63) = Button63
A(64) = Button64
A(65) = Button65
A(66) = Button66
A(67) = Button67
A(68) = Button68
A(69) = Button69
A(70) = Button70
A(71) = Button71
A(72) = Button72
A(73) = Button73
A(74) = Button74
A(75) = Button75
A(76) = Button76
A(77) = Button77
A(78) = Button78
A(79) = Button79
A(80) = Button80
A(81) = Button81
A(82) = Button82
A(83) = Button83
A(84) = Button84
A(85) = Button85
A(86) = Button86
A(87) = Button87
A(88) = Button88
A(89) = Button89
A(90) = Button90
A(91) = Button91
A(92) = Button92
A(93) = Button93
A(94) = Button94
A(95) = Button95
A(96) = Button96
A(97) = Button97
A(98) = Button98
A(99) = Button99
A(100) = Button100
For i = 1 To 100 '將控制項排列整齊
A(i).Left = 0
A(i).Width = 50
A(i).Height = 5
A(i).Top = i * 5
Next
End Sub
Private Sub Button101_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button101.Click
Dim i, j As Integer
For i = 1 To 100
Randomize() '天靈靈,地靈靈,產生100組亂數
B(i) = Rnd() * 300
A(i).Width = B(i) '將亂數指定給長條寬度
Next
End Sub
Private Sub Button102_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button102.Click Dim i, j, temp As Integer For i = 1 To 100
完成此段敘述(3)
A(i).Width = B(i) '逐次排序結果,指定給長條寬度
Next End SubEnd
Class