Question

Clearnoteユーザー

分からないので教えてください

整数型の変数tensuに入力された整数値
が60以上で合格、60未満で不合格を表
示するププ成績判定ログラムを作成し
た。図の0, 2の組み合わせて正しい
ものはどれか
Sub 成績判定()
Dim tensu As
の
tensu = Range ("A1").Value
If
2
Then
MsgBox “合格”
Else
MsgBox “不合格”
End If
End Sub
O Double 2 tensu
60
ニ
O Integer 2) tensu < 60
O Double 2 tensu > 60
O Integer 2) tensu >= 60

Mod関数は、割り算の余りを計算する
ための関数で、使い方は「元の数 Mod
割る数」の通りである。(例)5 Mod 2
→1. このMod関数を使ってセルB2に入
カした整数値が偶数か奇数を判定する
プログラム偶奇判定を作成した。図の
0, 2の組み合わせで正しいのはどれ
か、
Sub 偶奇判定()
Dim amari As Integer
amari =
If
2
Then
MsgBox “偶数”
Else
MsgBox “奇数”
End If
End Sub
の B2 Mod 22 amari = 1
O Cells("B2") /2② amari = 0
0 Cells(2,2) Mod 2 2 amari = 0
0 Cells(2,2) Mod 2 2 amari= 1

貯金期間が3年未満で0.1%, 3年以上で
0.5%の金利が付く複利型定期預金の元
利合計プログラム複利を作成した。元
金(gankin)25000円を3年預けた場合を
このプログラム計算すると,元利合計
(goukei)はいくらになるか、図の①,
2, 3の組み合わせで正しいものはど
れか、但し,goukeiは小数点以下第5
位とする。
Sub 複利()
Dim gankin As Single, goukei As Single
Dim n As Integer
Dim kinri As Double
gankin = Range ("C2").Value
n= Range ("D2").Value
If 0 Then
kinri = 0.1
貯金年数
金利
1+
100
Else
元利合計 = 元金×
kinri = 0.5
C
D
E
End If
元金(円)
期間(年)| 元利合計(円)
25000
80ukei = 2
Range ("e2").Value = goukei
End Sub
On<32 gankin * (1 + kinri /100) ^n
325376.87891
On>32 gankin * (1 + kinri/100) *n
3 2376.87891
On>32 gankin * (1 - kinri / 100) *n
26123.87891
On<= 32 gankin * (1 - kinri / 100) ^
n324376.87892
くニ

Answer 1

✨ ベストアンサー ✨

dio

1. 答え4つ目：
整数型とあるので、Integerを選択します（浮動小数点型と指定されたらDoubleを選択します）
また、tensu>=60　とあるのは、点数が60以上を意味しているので、If(もし）tensuが60以上なら"合格"というコードになります。

2. 答え3つ目：
今回、割り算の余りに注目しているので、modを使います。
このプログラムはおそらくExcelのマクロだと思うのですが、B5と指定するか、Cell(2,2)と指定するのかはわかりませんでした。
ですが、あまりが0だったら、"偶数"と処理しているので、3つ目の選択肢が答えです。

3. これは、私は最初、3年分に対して、1年分の利子率を2回と、3年分の利子率を1回にして分けたのですが、間違いでした。
プログラムをよく読むと、nが年数を表していて、3年以上と最初に決めているので、0.1%ではなく、0.5%の3回分の計算になります。
本当なら、If (n >= 3)と考えるところですが、選択肢には n<3 しかないので、もしn<3ならば0.1%で計算、それ以外なら0.5%で計算。
となります。したがって、答えは1つ目の選択肢になります。

ちなみに、計算結果も画像で載せておきます。
また、このコードは書いてないのでわかりませんが、明らかにExcelのマクロだと思います。