メニューに戻る

16:53 にページが自動更新されます。

処理の繰り返し制御

学籍番号
氏　　名
Sub Main()
　Dim S As Long: S = 0
　Dim i As Long
　i = 1
　S = S + i '①
　i = i + 1 '②
　S = S + i
　i = i + 1
　S = S + i
　i = i + 1
　S = S + i
　i = i + 1
　S = S + i
　i = i + 1
　Cells(3, 2) = S 'SをB3セルに表示
End Sub
①②の処理を
5回繰返す処理について，
For-Nextを使ってプログラム
(選択肢番号を右の(　)内に入力)しなさい．
なお，繰り返し数はLong型変数Nを宣言しで，
初期化して用いること．
解答枠が余る場合は，上に詰めて入力すること．		 Sub Main()
　()　
　()　
　()　
　()　
　()　
　()　
　()　
　()　
End Sub

変数の宣言と初期化は：を用いて，1行に記述できる．

\( \displaystyle \text{ Dim a As Long : a = 0 } \impliedby \cases{ \text{ Dim a As Long } \cr \text{ a = 0} } \)



選択肢

(1)Cells(3,2) = S (2)　i = i + 1 (3)Next i
(4)Dim N As Long : N = 5 (5)Dim i As Long (6)　S = S + i
(7)For i = 1 To N Step 1 (8)Dim S As Long : S = 0