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

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でなぜ一を最後に出さないといけないのでしょうか？？

(1) =(NT(RAND(2) <語群> (2)=(NT(RAND()*6)1 ヒント 0以上1未満の乱数: =RAND ( ) 数値を超えない最大の整数: = INT (数値) 74 ア. 動的. 静的 ウ. 論理 工. 物理 オ. 確定 力. 確率 キ. 模擬 ク. 乱数 ケ. 不規則 コ. モデル サ. モンテカルロ シ. シミュレーション 2 乱数の利用 表計算ソフトウェアのRAND 関数と INT 関数を使う 次の内容を実現するためにセルに書き込む式を書きなさい。 (1) コインの表裏を0と1で表現する。 (2) サイコロの目の数(1~6) を表現する。 ①Tips=RAND() は値が同じ確率で現れる一様乱数である。 値が正規分布の確率で現れる正動 =NORM.INV(RANDO), 平均値、標準偏差) で表せる。

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

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)

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

引数 戻り値 ① 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個の中にあるものとする。

至急教えて欲しいです

. ③3 情報の定義と分類 次の(1)~(3)はどのような種類の情報か。次の語群から選び,記号で答えな さい｡ AtJ3530 (1) 言葉やジェスチャーなど, コミュニケーションを行うために用いられる情報。 (2) あらゆる生物が生きていくための選択を行う際に役立てている情報。 最も広義の情報である。 (3) その意味する内容が切り離され, 記号だけが独立した情報。 <語群> ア. 生命情報 イ. 社会情報 ウ、機械情報 NJE (8) 4 メディアの分類 次の(1)~(3)のメディアの例を語群からすべて選び,記号で答えなさい。 (1) 表現のためのメディア (2) 伝達のためのメディア (3) 記録のためのメディア <語群> ア. 静止画 イ. 電波 キ. 光ファイバー ウ.文字 エ紙 オ音声 カ. 光学ディスク ⑤5 表現のためのメディアの特性 次の(1)~(5) のような情報伝達は,文字,図形,音声,静止画, 動画のうちのどのメディアの特徴を活かしたものか。 名称を答えなさい。 (1) いろいろな方向を向いている人に危険を知らせる。 (2) スポーツのような動きのある行動の過程を情報として伝達する。 (3) 伝えたいことを簡略化して端的に表現して伝達する。 (4) 風景などの2次元情報をわかりやすく伝達する。 (5) 正確な量などの情報を人に伝える。 ア. 紙 イ. 空気 AGM UN ASKOTAS 6 伝達記録のためのメディアの特性 次の(1), (2) のメディアに該当するものを、語群からすべ て選び, 記号で答えなさい。 (1) 空間を越えて、 瞬時に離れた場所に情報を伝える。 (2) 時間を越えて、情報を保存する。 合志 光ファイバー POD オ電波 2 カ. 光学ディスク 容内当剤に X NO S Tips シンギュラリティ･・・ 人工知能(AI) の能力が人類を超える「技術的特異点」のこと。 アメ リカのレイカーツワイル博士は2045年に到来するという説を唱えているが、異論もある。 SORESTAIS ①情報 ② 残存性 ③複製性 ④伝播性 ⑤ 生命情報 ⑥社会情報 ⑦ 機械情報 ⑧ メディア ⑨伝播メディア ⑩ 人工知能(AI) DIOT

問題1が分かりません、、、どなたか教えてください、、 あと、問題2.3合ってますか！？

以下に収穫した5232 個の佐藤錦(さくらんぼ)の重量を示した。 【問題1】 サイズ別に個数を集計、出荷数を計算したい。 森の重さ78未満はSX 10g未満はM、(14g未満は2S、 14g以上はLLとする。 た、1箱あたサに詰める梅の個数は、Sサイズ70個、Mサイズ 50個、 「サイズ 40個、LLサイズ35個とし、出荷パック数は整数値で表示する。 ただし、1箱の個数に満たない端数が入った箱は出荷できない。 このとき、集計するプログラムを以下の解答欄に埋めなさい。 【解答欄】 Sub 問題1( ) 10 重量(g) 個数 1物あたり 個数 出荷箱数 Is M L 13 70 12 13 14 15 16 17 18 50 17 10 a=0 b=0 40 8 LL 35 6 0 0-出荷箱数合計 9 C-0 実行ボタン位置 8 10 d=0. 11 Foh i= 1な5232- 1f Cells (10+え、りく7 Then a-atl ESEIF Cells (1otえ、1)<ル てhen b-bt1 Else H Cello (10ti、1) <14 Then C=Ct1. Ebe d-dtl 問題1 問題2 問題3 Erd If Nart i Callo (1.41=4 callo la.41-b Cells 13.4)こC Callo l14 c4) -d End sub