Question

drake

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

7
以下のVBAプログラム(test7)を実行した際に表示される値を書きなさい。(3点× 2)
Sub test7()
s = 18
a = 1
For i = 2To s / 2
s Mod i Then
If 0 =
a =
i
End If
Next i
MsgBox(a)
S = 15
b = 1
2 To s / 2
s Mod i Then
For i
If 0 =
a
b
b = i
End If
L5
Next
MsgBox(b)
End Sub

Answer 1

✨ ベストアンサー ✨

おじさん

s=18
a=1

i=2からi=9まで繰り返します。
18をiで割った余りが0のとき
aにiを代入していきます。i=1,3,6,9が代入されていき、最後はa=9です。

s=15
b=1
i=2からi=9まで繰り返します。
15をiで割った余りが0のとき
bにiを代入していきます。i=1,3,5が代入されていき、最後はb=5です。

drake

下のbの方で

i=2からi=7.5

ではないのはなぜですか？

おじさん

たびたびすみませんがミスです。
s/2のところだけs=18のまま考えていました。
なお、s/2=7.5ですがfor文のiは整数値をとりますので
i=7までです。

drake

ありがとうございます！
この度は3つとも分かりやすく回答していただき本当にありがとうございました🙇
再来週テストがあるので頑張ってきます💪