KVA RO 141桁
☑
Dok 1)
el Objec
meet 1)
ook
Book1 ModuleY(3-H)
-
(General)
Sub bubblesort 1 ()
Dim n As Long
Dim i As Long
Dim m As Long
Dim point T (5) As Long
'ワークシートより読み込み
For n = 1 To 5
point T (n) = Cells (1, n).Value
Next n
jn
「並べ替え
=
1
Do While j > 0
For n 1 To j
If pointT (n) > pointT(n + 1) Then
m
point T (n)
point T (n)
point T (n + 1)
X
point T (n + 1) = m
End If
Next n
j = j - 1
Loop
結果をワークシートへ
For n = 1 To 5
Cells(1, n).Value = point T (n)
pointT(n)
Next n
End Sub
