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

OLEやOLEオートメーションに関する説明として、選択肢の中から適切なものを１つ解答しなさい。

参照整合性を設定するために、2つの結合フィールドが満たすべき条件の説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

ADOにおいてCSVファイルへ接続するための接続文字列の説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Access の主なコレクションと、その内容の組み合わせに関する説明として、最も適切なものを選びなさい。

Accessのクエリモード（ANSI-89とANSI-92）に関する説明として、

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

オブジェクトブラウザを「プロジェクト/ライブラリ」ボックスでライブラリ（ADODB）を選んで絞り込み下図青枠の「検索文字列」ボックスを使って「CursorType」を検索したい。

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

次のコードを実行したとき、メッセージボックスに表示される内容として最も適切なものを1つ選びなさい。

Sub Exam1()

　　MsgBox CurrentDb.Name

End Sub

次のコードは、ADOのConnectionオブジェクトのExecuteメソッドを使い、[Table Sports1] テーブルのすべてのレコードを削除するものである。

実行してもレコードセットが返らない時、そのアクションを実行する場合のExecuteメソッドを使用した記述として正しいものを、次の選択肢の中から1つ選び解答しなさい。

空欄に入る記述を選択肢から選んで解答しなさい。

 


Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　【　①   】

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

次のコードは、レコードセットをFilterで抽出した後、その抽出を解除してすべてのレコードを対象に戻すものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst.Filter = "Price >= 3000"

　　rst.Filter = 【　①   】

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

次のコードを記述し、
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

モジュールの種類と、モジュールをまたいだプロシージャの呼び出しに関する説明として選択肢の中から適切なものを１つ解答しなさい。

VBAの高速化と可読性（読みやすさ・保守性）の関係に関する説明として、最も適切なものを1つ選びなさい。

DAO（Data Access Objects）を使って、Recordsetオブジェクト変数を宣言する。DAOのRecordsetであるとして最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

次のプロシージャを実行したとき、イミディエイトウィンドウに出力される内容として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As Long

　　N = 3

　　Do

　　　　Debug.Print N

　　　　N = N + 1

　　Loop Until N > 0

　　Do While N > 0

　　　　Debug.Print N

　　　　N = N - 1

　　Loop

　　MsgBox "完了"

End Sub

モジュールのエクスポートおよびインポートの操作手順に関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

プロシージャの引数と戻り値に関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

標準モジュールから、名前に半角スペースを含むフォーム「form 1」上のコントロールを参照する。

フォーム名の記述として最も適切なものはどれか。以下の選択肢より1つ解答しなさい。

次のコードは、 他のユーザーによる追加や削除は確認できない、 レコードを全ての方向に移動できるように動的カーソルと同じタイプを設定してレコードセットを開くものである。
空欄に入る語句として最も適切なものはどれか。

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



Sub Exam1()

　Dim conn As ADODB.Connection
　Dim rst As ADODB.Recordset

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

　rst.CursorType = 【　①　】

　rst.Open "[Table Product1]", conn

　rst.MoveLast

　rst.MoveFirst

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

フォームをダイアログボックスとして表示させたい場合について、次のうち誤っているもの以下の選択肢より1つ解答しなさい。

次のコードを実行し、表示された入力画面に「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

静的配列と動的配列に関する説明として、最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

以下のコードのときにイミディエイトウィンドウから、Subプロシージャ「Exam2」に引数 12345 を渡して呼び出したい。

この目的のイミディエイトウィンドウへの記述として最も適切な組み合わせはどれか。

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


Sub Exam2(ByVal n As Long)

　Debug.Print "受け取った引数：" & n

　MsgBox "完了"

End Sub


①Exam2 12345

➁Exam2(12345)

③?Exam2 12345

④?Exam2(12345)

DAOでCreateFieldメソッドを使って新しいフィールドを作成するとき、第2引数にはフィールドのデータ型を表す定数を指定する。

「倍精度浮動小数点型」のフィールドを作成するときに第2引数へ指定する定数として、正しいものはどれか。以下の選択肢より1つ解答しなさい。

次のコードを記述し、Exam1 プロシージャを実行した。イミディエイトウィンドウにどのように出力されるか、最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

宣言セクション

Public LngPublic As Long

Dim LngModule As Long

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub Variable1()

　　LngPublic = 100

　　LngModule = 200

　　Dim LngLocal As Long

　　LngLocal = 500

End Sub

Sub Exam1()

　　Dim LngLocal As Long

　　Call Variable1

　　Debug.Print LngLocal

　　Debug.Print LngPublic

　　Debug.Print LngModule

　　MsgBox "完了"

End Sub