情報:IT 高校生 10ヶ月前

うまく実行出来ません。 間違っている部分を訂正してほしいです。

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

情報:IT 高校生 3年以上前

解答と解説お願いします🙇🏻‍♀️🙏🏻

8.棒グラフを実行するプログラムをy_values=[100,130,80,150,140,130]の 数字を変更して再度実行し、 手順と結果をまとめなさい。