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

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

VBAでバブルソートをつくりたいです、プログラムを教えてほしいです。（変数を使ってワークシートに書き込めるようにしたいです。）

答えと解き方教えてほしいです🙇‍♂️

2 サイコロを2回投げて、合計と平均を求めるプログラムを作成した。 次のプログラムの空欄 に当てはまるものをそれぞれ答えなさい。 Sub main() Dim a As Long, b As Long, c As Long, d As Double ① a = b Cells(3,2). Value 123 A A B C D 1回目 2回目 合計 平均 2 A ② d = (a + b)/2 Cells(3, 3).Value End Sub ※Double : 実数型 = C

解き方と答え教えてほしいです🙇‍♂️

考えてみよう 次のプログラムを実行したとき、次のセルに表示される値を答えなさい。 Sub main() Dim a As Long, b As Long, c As Long, d As Long a = Cells(2, 1). Value b = Cells(3, 1).Value c = a + b - d = b a Cells(4, 1).Value = c Cells(3,2).Value = d Cells(2, 2). Value = c / 2 Cells(3, 3).Value = 200 - c End Sub 1 A4 2 B2 3 B3 4 C3 A B C D 1 2 702 3 80 34 40

なぜ答えがウになるのか教えていただきたいです。

次のプログラムを実行した時,セルA1に出力される値として適当なも 次のア~エの中から選びなさい。 ア 44 イ. 45 Sub main() ウ. 54 I. 55 Dim i As Long, sum As Long Dim a(9) As Long sum = 0 For i = 0 To 9 a(i) = i + 1 Next i For i = 1 To 9 sum = sum + a(i) Next i 開始 In 変数を定義 i=セルA1の値 Mod2 Cells(1, 1).Value = sum End Sub No. (1)

なぜ答えが13になるのかわかりません

5. 次の Python で記述されたプログラムを実行するとどのような結果が得られるか。 得られる結果を正しく言 読み取り、「実行画面ダイアログ」に書き入れなさい。 1 numbers = [10, 2, 8, 1, 13] 2 max_value = max (numbers) 3 print("最大値:", max_value) 実行画面ダイアログ 閉じる 出力を共有... (asdmun)mus 出合 (sdot

①がエになる理由を教えてください

引数 戻り値 ① Function mysurface (radius As Double) As Double Dim pi As Double Dims As Double ⑤3.14 ⑥⑥ = pi (8) S ✓ = End Function 3 ア. 円の半径 オ. 戻り値 ⑥'円の面積を計算 円周率を定義 戻り値として円の面積を戻す イ. 円の面積 力. radius 右のフローチャートは,線形 探索を行う関数のアルゴリズ ムを表したものである。探索 する値を引数として受け取 り、右図のようにセルA1~ A10に格納されたデータに 対して線形探索を行い,探索 する値が存在した場合は,戻 り値として“あり” を, 存在 しなかった場合は,“なし” を戻す。 空欄 ①~⑤に該当す るものを下のア〜カから選 び, 記号で答えなさい。 ア. 戻り値 = “あり” ウ.flag = 0 オ. Cells(i, 1).value = 引数 考えてみよう 関数を使う意義を考えてみよう。 #. mysurface 開始 i=1 GRAME flag=1 ウ. 整数 (Long) Yes 実数 (Double) 4 flag = 0 ループ 終了 No. イ. 戻り値 = “なし” エ. flag=1の間繰り返し 力. i>10 in 1 i=i+1 4 7. S Yes 戻り値= "なし" (5 ③③ No. 4 ⑤ ア 1 15 カ 工. 実数 (Double) ケ.pi 1 2 3 4 15 6 7 2 (1) 7 S 2 8 10 jus 円の半径 (4 円の面積 実数 pi ⑤5⑤ radius mysurface A (コ. 3.14 1 2 3 4 5 6 7 8 9 [10] 16 2 Ⅰ flag=1の間繰り返し 明和 オ Cells(i).Value=引数 ア戻り値="あげ カ i> 10 flag=0 91

⑷なんですけど、なぜ、平均の回数は50.5回になるんですか？💦

4 左下図は10個の整数データ 「91,58, 15,80, 34,7,69, 22,73,46」 を配列に格納しながら、 見つけたいデータがあるかどうかを判断する流れ図である。 次の問いに答えよ。 CHRGROD 配列の宣言 終わり Yes b For i = End Sub 1 2 3 a(i) If a(i) 4 (1) ①⑦ に適するものを語群から選び、 記号ア~コを解答欄に書きなさい。 (2) プログラムで表現すると以下のようになる。 ①~⑩0に適語を入れなさい。 Sub 逐次探索() ABCDELF G H 91 58 15 80 34 7 69 22 73 46 7 ←見つけたいデータ あり ①) a(10) As Integer 語群 7. a (i) > b イ. a (i) = b ウ. (i) <b a 「あり」 と表示 オ. 「なし」と表示 カ. 見つけたいデータをbに入力 キ. a(i) に整数データの値Cells (1, i) を入力 . a(i) に整数データの値Cells(i, 1) を入力 ケ.ループi1,2,3,..., 10 コループ i Cells((2), (3)). Value ④) To (⑤) Cells (( ⑥ ) (⑦) Value Then = Cells (⑧ End End If Next. 10 ) Cells (( ⑧ ), ( ⑨ )).Value = )).Value "なし" ”あり” (3) 見つけたいデータが 「69」 の場合、左から順に調べると何回のループで見つかるか。 (4) 数字が100個のとき、最大で何回、平均で何回で「あり」と表示されるか。ただし、見つけたいデータ は100個の中にあるものとする。

情報の課題です。 プログラミング得意な人教えてほしいです。

【課題2】 以下のように、キーボードから数字 (実数) を入力して、円の面積と円周を表示するプロ グラムを考える。 円周率は 「pi=3.141592」 とプログラムで定義して、計算式では「pi」を 利用するようにしてください。 1回の実行で面積と円周を表示します。 (実行結果) 半径の長さ 円の面積は 95.033158 円の円周は 34.557512 5.5 ・「半径の長さ」はプログラムを実行すると表示します。 ・下線部がキーボードから入力する値です。 (1) フローチャートを書きなさい。 (ノートをカメラで撮影しkadai2 で提出) (2) プログラムを作成しなさい。 実行後、 画面と同じ数字を入力して、 同じ答えが出るこ とも確認する。ここで、円周率は変数 「pi」に代入して、 変数 「pi」 を使って計算する。 (ファイル名は kadai2.py で提出)

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

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