Step3

ループ処理

VBAに限らずプログラミングを学習する上での基礎知識です。

1. For文

For文を使って、1から5までの整数を合計し、結果を表示するプログラム。

Dim i As Integer            '制御変数またはカウンタ変数 
Dim sum As Integer     　　 '「合計」を保持する変数 
sum = 0                     '合計を0で初期化 
    For i = 1 To 5          '繰り返し処理により i は 1, 2, 3, 4, 5 と増加
        sum = sum + i       '加算 
    Next
Debug.Print "合計は " & sum  'イミディエイトウィンドウに表示

合計は 15

&（アンパサンド）：文字列連結
回数が決まっている繰り返し

2. Do While文

Do While文を使って、1から5までの整数を合計し、結果を表示するプログラム。

Dim i As Integer            '制御変数またはカウンタ変数 
Dim sum As Integer     　　 '「合計」を保持する変数
i = 1                       '繰り返し開始値を設定 
sum = 0                     '合計を0で初期化 
    Do While i <= 5       　'iが5以下の間は繰り返す
        sum = sum + i       '加算
        i = i + 1           'i を 1 増やして更新 
    Loop
Debug.Print "合計は " & sum  'イミディエイトウィンドウに表示

合計は 15

初期化や増分処理が必要
条件によって回数が変わる可能性がある繰り返し

3. オリジナル問題解答

画面最下部「ダウンロード教材」の解答です。

オリジナル_ループ処理01_解答

	①	②	③
1.For文：穴埋め問題	5	sum	15
2.Do While文：穴埋め問題	i < = 5	1	i + 1

オリジナル_ループ処理02_解答

	①	②	③
1.For文：穴埋め問題	i Mod 2 = 0	i	sum
2.Do While文：穴埋め問題	inputVal <> 0	inputVal	sum

📌 Mod関数：除算の余り
📌 <>：≠

📘 ダウンロード教材について

この教材は、全国商業高等学校協会の情報処理検定の過去問題をもとに作成された、
学習支援用のExcelファイルまたはテキストファイルです。

売上集計や平均点の計算など、検定形式に沿った処理を行います。
外部との通信やファイル操作は一切行いません。
教育目的で無償提供しており、改変・再配布はご遠慮ください。

学校のPCで使用する場合は、先生にご確認ください。

ファイル名	サイズ (KB)	ダウンロード
オリジナル_ループ処理02.txt	1
オリジナル_ループ処理01.txt	0

ループ処理

📘 ダウンロード教材について

戻る

Thread Light