第７話 隣項交換繰り返し法マクロ
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(200) As Integer, b(200) As Integer, c(200) As Integer
Call f(a(), b(), c()) 'データ発生
Call h(a(), 4) 'データ表示
Call g1(b()) '昇順並び換え
Call h(b(), 5) 'データ表示
Call g2(c()) '昇順並び換え
Call h(c(), 6) 'データ表示
End Sub
Sub f(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer
For i = 0 To 4
a(i) = Int(100 * Rnd)
b(i) = a(i)
c(i) = a(i)
Next
End Sub
Sub g1(a() As Integer)
Dim i As Integer, cn As Integer, w As Integer
Do While 1
cn = 0
For i = 0 To 3
If a(i) > a(i + 1) Then
w = a(i)
a(i) = a(i + 1)
a(i + 1) = w
cn = cn + 1
End If
Next
If cn = 0 Then Exit Do
Loop
End Sub
Sub g2(a() As Integer)
Dim i As Integer, cn As Integer, w As Integer
Do While 1
cn = 0
For i = 0 To 3
If a(i) < a(i + 1) Then
w = a(i)
a(i) = a(i + 1)
a(i + 1) = w
cn = cn + 1
End If
Next
If cn = 0 Then Exit Do
Loop
End Sub
Sub h(a() As Integer, n As Integer)
Dim i As Integer
For i = 0 To 4
Cells(n, 1 + i) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、どちらの方法の方が速いのか実験することにしましょう。
データ数が５個程度では、
差は出ませんので、
まず、両マクロをデータ数１００００個、桁数４桁以内にして、
時間を計測して下さい。
実は、差は歴然です。
上は速い方の結果です。
皆さん実験して下さい。
どのぐらい違いのでしょうか。
