Question

drake

３つの答えを暗算で出す方法を教えてください！

以下のVBAプログラム(test6)を実行した際に表示される値を書きなさい。 また、 流れ図(フ
ローチャート)を下の空欄に書きなさい(3点× 4)
6
Sub test6()
s = 1
a = 0
b = 0
For i = 1To 5
If 0 < iMod 2 Then
S =s+ i
a =i
Else
S =s*i
i
%D
End If
Next i
MsgBox(a)
MsgBox (b)
MsgBox(s)
End Sub
a
b
S
33

Answer 1

✨ 最佳解答 ✨

おじさん

Forの部分はi=1からi=5まで順々に処理を繰り返す事を表しています。

i Mod 2はiを2で割った余りです。
したがってIfの文はiが奇数である事を表します。
このときsにはiを足していきます。
aにはiを代入していきます。

Elseはiが偶数のときです。
sにiをかけていきます。
bにはiを代入していきます。

よって
aはi=1,3,5と代入されていき、最後にはa=5となります。
s=1に1をたして2をかけて3を足して4をかけて5を足して最後には33となります。
bはi=2,4と代入されていき、最後にはb=4となります。

drake

ありがとうございます！