【ランダム順出題】Access VBA スタンダード 模擬試験　②

登録用フォーム「form_add」には、No 欄と Product Name 欄があり、次のコードが記述されている。No 欄には値（例：T1006）が入っており、Product Name 欄は空である。

Product Name 欄を空欄のままにして Enter キーを押し、レコードを確定しようとした。このときの挙動として適切なものはどれか。以下の選択肢より1つ解答しなさい。



Private Sub Form_BeforeUpdate(Cancel As Integer)

　　If IsNull(Me.[Product Name].Value) Then

　　　　Cancel = True

　　End If

End Sub

Private Sub Form_AfterInsert()

　　DoCmd.Close acForm, Me.Name

End Sub

変数の「種類」「宣言する場所」「宣言するステートメント」「適用範囲」「有効期間」の関係として、最も適切なものを選びなさい。

ADOのErrorsコレクションとErrorオブジェクトの説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

フォームやコントロールで発生する各イベントの発生について、次のうち誤っているものを以下の選択肢より1つ解答しなさい。

配列やユーザー定義型の変数を引数として渡すことに関する説明として、適切なものを1つ選びなさい。

ローカルウィンドウの使い方、およびステップイン実行に関する説明として適切ものはどれか。以下の選択肢より１つ解答しなさい。

RecordsetオブジェクトのOpenメソッドの引数の説明として正しいものはどれか。
以下の選択肢より1つ解答しなさい。

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

フォーム「form1」のフォームモジュール内から、同じフォーム上にあるテキストボックス「txt1」を参照する場合の説明として、最も適切なものはどれか。

選択肢の中から適切なものを１つ解答しなさい。

次のコードは、[Table Product3]から、IDが「T1」から始まる 1文字から任意数のレコードを抽出するものである。

空欄に入るワイルドカードとして適切なものを、以下の選択肢より1つ解答しなさい。




Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID Like 'T1【　①    】;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

GROUP BY句に複数のフィールドを指定した場合のグループ化の動作として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードを実行するとどうなるか。実行結果として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

高速化の観点から、UNIONとUNION ALLを使い分ける際の説明として、

最も適切なものを以下の選択肢より1つ解答しなさい。

次のコードは、2つの配列 price と stock に格納したデータを、繰り返し処理でイミディエイトウィンドウに出力するものである。

このコードを実行したとき、イミディエイトウィンドウの表示として適切ものはどれか。以下の選択肢より１つ解答しなさい。


Sub Exam1()
　　Dim price(2) As Long
　　Dim stock(2) As Long
　　Dim i As Integer

　　price(0) = 100
　　stock(0) = 5
　　price(1) = 200
　　stock(1) = 3
　　price(2) = 150
　　stock(2) = 4

　　For i = 0 To UBound(price)
　　　　Debug.Print price(i), stock(i)
　　Next i
　　MsgBox "完了"
End Sub

次のコードは、ファイルを選択するダイアログボックスを、ファイルの詳細情報を並べた形式で表示する処理である。

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

Sub Exam1()

　　Dim fld As FileDialog

　　Set fld = Application.FileDialog(msoFileDialogFilePicker)

　　fld.Title = "ファイルの選択"

　　fld.【　①　】 = 【　②　】

　　If fld.Show Then

　　　　Debug.Print fld.SelectedItems(1)

　　End If

　　Set fld = Nothing

　　MsgBox "完了"

End Sub

ADOを構成する主要オブジェクトの説明として誤っているものはどれか。
以下の選択肢より1つ解答しなさい。

SQLクエリに関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、 カレント以外のデータベースへの接続を開き、閉じてその後解放するものである

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

フォーム「F1」には、テキストボックス txt1・txt2 が配置されている。次のコードで Exam1 を実行し、確認メッセージで「いいえ」をクリックした。

このときの動作として、最も適切なものを選びなさい。




Sub Exam1()

　　Dim N As Form

　　DoCmd.OpenForm "F1"

　　Set N = Forms("F1")

　　N.txt1.Value = "VBA"

　　N.txt2.Value = "SQL"

　　If MsgBox("フォームを閉じる？", vbYesNoCancel) = vbYes Then

　　　　Set N = Nothing

　　　　If N Is Nothing Then

　　　　　　DoCmd.Close acForm, "F1"

　　　　End If

　　End If

End Sub

次のコードは、エラー処理ルーチンの中で、条件に応じて処理を再実行する 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

モジュールの種類と、そのモジュールが格納する内容の組み合わせとして、誤っているものを1つ選びなさい。

プロシージャから別のプロシージャを呼び出して処理をまとめることの利点(メリット)として、選択肢の中から適切なものを１つ解答しなさい。

名前付き引数に関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

主キーに関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、TextStreamオブジェクトの1行目を読み飛ばしたうえで、2行目の先頭から3文字だけを取り出して表示する処理である。

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



Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim ts As TextStream

　　Dim strpath As String

　　strpath = CurrentProject.Path & "￥a.txt"

　　Set ts = fso.OpenTextFile(strpath, ForReading)

　　ts.【　①　】

　　MsgBox ts.【　②　】(3)

　　ts.Close

　　Set fso = Nothing

　　Set ts = Nothing

　　MsgBox "完了"

End Sub