[問題] Excel 的 VBA使用氣泡排序法問題
(若是和其他不同軟體互動之問題 請記得一併填寫)
您所使用的軟體為:
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
Office 近期熱門文章
PTT數位生活區 即時熱門文章
