【カテゴリー別】Access VBA スタンダード模擬問題エラー

こちらはカテゴリー別の模擬問題です。

合計20問がシステムに登録した順番どおりに1問1答形式で出題されます。

なおタイマー機能はありません。

準備が整い次第、ボタンを押して試験を開始してください。

1.

VBAで発生するエラーの種類、および構文チェックに関する説明として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

プログラムの実行時の構文チェックは、実際にプログラムを実行しなくても、「デバッグ」メニューから「(プロジェクト名)のコンパイル」を選択して行うことができる。

実行時エラーとは、プログラムが、目的の意図とおり動作を行わないエラーである。

論理エラーとは、構文や文法等に間違った記述があり、コードの実行ができないエラーである。

コンパイルエラーとは、コード実行時に、処理の継続ができなくなり発生するエラーである。

2.

コードウィンドウに、次のように途中までコードを記述してEnterキーを押した。このとき発生するエラーについての説明として最も適切ものはどれか。

以下の選択肢より1つ解答しなさい。

Sub Exam1()
　　Dim i As Long
　　For i = 1
　　　

行の文法は正しく、実行するまでエラーは検出されないため、実行時に発生するコンパイルエラーとなる。

処理が継続できなくなって発生するため、実行時エラーとなる。

構文には誤りがないが、目的通りの動作を行わないため、論理エラーとなる。

For ステートメントに必要な「To」以降が記述されておらず、行の文法が誤っているため、記述中に発生するコンパイルエラーとなる。

3.

次のコード実行したときに発生するエラーについて説明として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim i As Long

　　For i = 1 To 10

　　　　Debug.Print i

　　MsgBox "完了"

End Sub

For ステートメントに対応する「Next」が記述されていないため、実行時に発生するコンパイルエラーとなる。

各行の文法が誤っているため、記述中に発生するコンパイルエラーとなる。

構文には誤りがないが、目的通りの動作を行わないため、論理エラーとなる。

処理が継続できなくなって発生するため、実行時エラーとなる。

4.

VBEに次のコードを記述して実行した。

このとき発生するエラーについて、説明として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim n As Integer

　　Dim i As Integer

　　For i = 1 To 5

　　　　n = n + 10000

　　Next i

　　Debug.Print n

End Sub

構文や文法に誤りがあるため、記述中に発生するコンパイルエラーとなる。

繰り返し加算により、Integer 型の変数 n が扱える範囲を超える値になるため、実行時エラー（オーバーフロー）が発生する。

構文には誤りがなく実行もできるが、目的通りの動作を行わない論理エラーとなる。

For に対応する必要な語句がないため、実行時に発生するコンパイルエラーとなる。

5.

VBEに次のコードを記述して実行した。イミディエイトウィンドウに出力される結果として最も適切ものはどれか。

以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim n As Long

　　Dim n2 As Long

　　n = 11 + 15 + 20

　 n2= n / 3

　　Debug.Print n2

End Sub

15.33333

15.5

16

15

6.

On Error ステートメントおよびエラートラップに関する記述として正しいものはどれか。以下の選択肢より1つ解答しなさい

エラートラップとは、エラーが発生することを予測し、前もってエラーに対処しておくことである。

On Error GoTo ステートメントは、エラーが発生してもエラーを無視して処理をその後も継続するステートメントである。

On Error GoTo 0 ステートメントは、エラーが発生したときに実行する処理を新しく指定するステートメントである。

On Error Resume Next ステートメントは、エラーが発生したとき、行ラベルの場所に移動して以降の処理を実行するステートメントである。

7.

次のコードは、エラーが発生した場合に行ラベル「ErrHandler」へ処理へを移し、エラー未発生時にコードが終了するように記述したものである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　On Error ErrHandler

　　Dim N As Integer

　　N = 1 / 0

MsgBox "完了"

Sub

ErrHandler

　　MsgBox "エラーが発生しました"

End Sub

8.

次のコードを記述して
1つ目のダイアログボックス（文字列を入力する画面）に「ABC」を入力し、2つ目のダイアログボックス（日付を入力する画面）に文字列「あああ」を入力して[OK]ボタンをクリックした。

このときの動作として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim moji As String
　　Dim hiduke As Date

　　On Error GoTo ErrHandler1

　　moji = InputBox("文字列を入力する")

　　On Error GoTo ErrHandler2

　　hiduke = InputBox("日付を入力する")

　　MsgBox "入力完了しました"

　　Exit Sub

ErrHandler1:

　　MsgBox "文字列は未入力です"

　　Exit Sub

ErrHandler2:

　　MsgBox "日付は未入力です"

End Sub

実行時エラーのダイアログボックスが表示され、中断モードになる。

「日付は未入力です」というメッセージが表示される。

「文字列は未入力です」というメッセージが表示される。

「入力完了しました」というメッセージが表示される。

9.

次のコードを記述して実行した。メッセージボックスに表示される結果として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As Long

　　On Error Resume Next

　　N = 8 / 0

　　N = 8 / 4

　　MsgBox N

End Sub

2

実行時エラー（0 で除算しました。）のダイアログボックスが表示され、中断モードになる。

8

0

10.

次のコードを実行したときの動作として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As Integer

　　On Error GoTo ErrHandler

　　N = 8 / 4

　　MsgBox N

　　On Error GoTo 0

　　N = 8 / 0

　　Exit Sub

ErrHandler:

　　MsgBox Err.Description

End Sub

メッセージボックスに「2」が表示された後、0除算エラーは無視され、そのままコードの実行が正常に終了する。

メッセージボックスに「2」が表示された後、0除算による実行時エラーのダイアログボックスが表示され、中断モードになる。

メッセージボックスに「2」が表示された後、行ラベル ErrHandler へ移動し、エラーの情報がメッセージボックスに表示される。

最初から実行時エラーが発生し、メッセージボックスは何も表示されない。

11.

Resume ステートメントに関する記述として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Resume ステートメントは、エラーが発生した行の次の行から処理を再実行する。

Resume Nextは、エラーが発生した行から処理を再実行する。

Resume 行ラベルは、エラートラップを無効にする。

Resume ステートメントとは、エラー処理ルーチンでエラー処理を行った後、指定した場所から処理を再実行するステートメントである。

12.

次のコードは、エラー処理ルーチンの中で、条件に応じて処理を再実行する Resume ステートメントを使い分けるものである。

空欄①〜③に以下の条件当てはまる語句の組み合わせとして適切ものはどれか。選択肢より1つ解答しなさい。

条件
・1番目の空欄…指定した行ラベルから処理を再実行し、もう一度入力させる。
・2番目の空欄…エラーが発生した次のステートメントから処理を再実行する。
・3番目の空欄…エラーが発生したステートメントと同じ行から処理を再実行する。

Sub Exam1()

　　Dim N As Integer

　　On Error GoTo ErrHandler

Re:

　　N = InputBox("0以外の数値を入力")

　　MsgBox 1 / N

　　N = 0

　　Exit Sub

ErrHandler:

　　If Err.Number = 11 Then

　　　　【　① 】 Re

　　ElseIf Err.Number = 13 Then

　　　　【　➁ 】

　　Else

　　　　【　③ 】

　　End If

End Sub

①−Resume Next ②−Resume ③−Resume Next

①−Resume ②−Resume ③−Resume Next

①−Resume ②−Resume Next ③−Resume

①−Resume Next ②Resume Next ③−Resume

13.

VBEに次のコードを記述して実行した。
1つ目の入力画面で「0」を入力し、次に表示された入力画面で「5」を入力した。このときの動作として正しいものはどれか。

以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N As Integer

　　On Error GoTo ErrHandler

Re:

　　N = InputBox("0以外の数値を入力")

　　MsgBox 10 / N

　　N = 0

　　Exit Sub

ErrHandler:

　　If Err.Number = 13 Then

　　　　Resume Next

　　ElseIf Err.Number = 11 Then

　　　　Resume Re

　　Else

　　　　Resume

　　End If

End Sub

「0」の入力で0除算エラーが発生し、エラーが発生した次の行へ進むため、入力画面には戻らずに終了する。

「0」の入力で0除算エラーが発生し、入力画面に戻る。次に「5」を入力すると、メッセージボックスに「2」が表示される。

「5」を入力すると、メッセージボックスに「5」が表示される。

「0」を入力した時点で、実行時エラー（0 で除算しました。）のダイアログボックスが表示され、中断モードになる。

14.

次のコードは、発生したエラーの番号と内容をメッセージボックスに表示するものである。以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　On Error GoTo ErrHandler

　　Dim N As Integer

　　N = 1 / 0

Exit Sub

ErrHandler:

　　MsgBox "エラー番号：" & Err. & vbCrLf & "内容：" & Err.

End Sub

15.

Err オブジェクトの Number プロパティが返すエラー番号と、そのエラーの内容の組み合わせとして正しいものはどれか。

以下の選択肢より1つ解答しなさい。

13 ーメモリが足りません。

11 ーインデックスが有効範囲にありません。

6 ーオーバーフローしました。

9 ー 0 で除算しました。

16.

次のコードを記述して実行した。表示された入力画面に「40000」を入力して「OK」ボタンをクリックしたとき、メッセージボックスに表示される内容として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N As Integer
　　Dim ary(2) As Integer

　　On Error Resume Next
　　N = InputBox("数値を入力してください")

　　ary(N) = 1

　　If Err.Number = 6 Then

　　　　MsgBox "エラー番号：" & Err.Number & vbCrLf & Err.Description

　　ElseIf Err.Number = 9 Then

　　　　MsgBox "エラー番号：" & Err.Number & vbCrLf & Err.Description

　　ElseIf Err.Number = 13 Then

　　　　MsgBox "エラー番号：" & Err.Number & vbCrLf & Err.Description

　　End If

End Sub

実行時エラーのダイアログボックスが表示され、中断モードになる。

「エラー番号：13」と「型が一致しません。」が表示される。

「エラー番号：9」と「インデックスが有効範囲にありません。」が表示される。

「エラー番号：6」と「オーバーフローしました。」が表示される。

17.

次のコードは、[Table Product1] テーブルの各レコードについて、Product Category が "Table" のものだけ Price に 1 を加算するものである。

無限ループを防ぐために、rst.MoveNext を記述すべき正しい位置はどこか。以下の選択肢より1つ解答しなさい。

Sub Exam1()
　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "SELECT * FROM [Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　Do Until rst.EOF
　　　　If rst("Product Category") = "Table" Then
　　　　　　rst("Price") = rst("Price") + 1
　　　　　　rst.Update
　　　　　　　（1）
　　　　End If
　　　　　（2）
　　Loop

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing
　　MsgBox "完了"

End Sub

（1）の位置（If ブロックの中、rst.Update の直後）に rst.MoveNext を置く。

rst.Update と同じ行に、rst.MoveNext をまとめて置く。

（2）の位置（End If の後、Loop の直前）に rst.MoveNext を置く

Do Until rst.EOF のすぐ下（If の前）に rst.MoveNext を置く。

18.

次のコードは、[Table Product1] テーブルのレコードを1件ずつ読み取って表示するものである。

ただし、レコードが1件もない場合にエラーが発生してしまう。

レコードが1件もないときにエラーを発生させないためには、繰り返し条件「「Until rst.EOF」、「Do」、「Loop」をどこに記述すればよいか。以下の選択肢より1つ解答しなさい。

Sub Exam1()
　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "SELECT * FROM [Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　（1）
　　　　 Debug.Print rst.Fields(0), rst.Fields(1)
　　　　　　　　　　　　　
　　　　rst.MoveNext
　　（2）
　　rst.Close

　　Set rst = Nothing: Set conn = Nothing
　　MsgBox "完了"
End Sub

（1）を「Do Until rst.EOF」、（2）を「Loop Until rst.EOF」とし、両方に繰り返し条件を書く。

（1）を「Do」、（2）を「Loop Until rst.EOF」とする（繰り返し条件を末尾に置く＝実行後判断）。

（1）を「Do」、（2）を「Loop」とし、繰り返し条件はどこにも書かない。

（1）を「Do Until rst.EOF」、（2）を「Loop」とする（繰り返し条件を先頭に置く＝実行前判断）。

19.

次のコードは、配列変数 N のすべての要素に 1 を繰り返し代入しようとするものである。
このままでは最後の繰り返し処理で「インデックスが有効範囲にありません。」というエラーが発生する。
エラーを発生させず、すべての要素に正しく 1 を代入するには、どのように修正すればよいか。

以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N(3) As Long

　　Dim A As Variant

　　Dim i As Long

　　For Each A In N

　　　　i = i + 1

　　　　N(i) = 1

　　Next

End Sub

配列の宣言を「Dim N(3) As Long」から「Dim N(4) As Long」に変更する。

「i = i + 1」を「i = i + 2」に変更する。

「N(i) = 1」と「i = i + 1」の順序を入れ替え、先に N(i) = 1 を実行してから i = i + 1 を実行する。

「For Each A In N」を「For Each A In i」に変更する。

20.

次のコードは、InputBox 関数で「数量」と「締切日」を入力させ、正しいデータが入力されるまで再入力を求めるものである。

入力チェックを行うため、空欄①には数値かどうかを判定する関数を、空欄②には日付かどうかを判定する関数を記述したい。

空欄に当てはまる最も適切な組み合わせはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim suryo As String
　　Dim shimekiri As String

　　Do
　　　　suryo = InputBox("数量を入力")

　　Loop Until 【　① 】(suryo)

　　Do
　　　　shimekiri = InputBox("締切日を入力")

　　Loop Until 【　② 】(shimekiri)

　　MsgBox suryo & "個／締切 " & shimekiri

End Sub

①−IsNumeric　②−IsDate

①−IsDate　②−IsDate

①−IsDate　②−IsNumeric

①−IsNumeric　②−IsNumeric