作者xxxx33159 (尖东Roger)
看板Office
标题[问题] Excel 的 VBA使用气泡排序法问题
时间Thu Apr 10 00:04:38 2008
(若是和其他不同软体互动之问题 请记得一并填写)
您所使用的软体为:
Excel
版本:
2003
问题:
不知道是不是在此发问
已在Excel中建立数据资料表
并要撰写一巨集使用气泡排序法重新排序
执行结果会跑出一视窗直接将结果输出
程式码如下:
Private Sub Command1_Click()
Dim A(15) As Integer
Dim TempVal As Integer
[A = 93: B = 92: C = 88: D = 85: E = 76: F = 87: G = 85: H = 71: I = 73: J = 96: K = 74: L = 91: M = 82: N = 83: O = 95]
TempVal = 0
Picture1.Print "阵列排序过程"
For Loop1 = 1 To 14
For Loop2 = 1 To 15 - Loop1
If A(Loop2) > A(Loop2 + 1) Then
TempVal = A(Loop2)
A(Loop2) = A(Loop2 + 1)
A(Loop2 + 1) = TempVal
End If
Next
Picture1.Print "第" & Loop1 & "回"
For loop3 = 1 To 15
Picture1.Print A(loop3)
Next
Picture1.Print
Next
End Sub
不过一直错误
不知哪里出了问题
请大大帮解
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.135.64.161