【ランダム順出題】Access VBA ベーシック 模擬試験　③

イミディエイトウィンドウからプロシージャを実行する方法について正しいものはどれか。以下の選択肢より1つ解答しなさい。

次のVBAコードは、Table Product1テーブルから「ID」が「T1005」のレコードのみを削除する処理です。

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

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　N = "【　①　】 * FROM [Table Product1]【　②　】 ID = 'T1005';"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　　MsgBox "完了"

End Sub

次のVBAコードを入力欄に、"野球"と入力した場合、表示されるメッセージボックスの内容として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　N = InputBox("好きなスポーツ名を入力してください。", "好きなスポーツ", "例:野球")

　If N = "" Then

　　MsgBox "未入力あるいは、キャンセルされました。"

　ElseIf N = "例:野球" Then

　　MsgBox "例のままです。"

　Else

　　MsgBox N & "がお好きなんですね。素敵ですね。"

　End If

End Sub

標準モジュールの削除に関する文章について正しいものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、フォーム「Form1」を開き、「data3」コントロールにフォーカスを移した後で、data3が「5」から始まるレコードを検索する処理である。

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

Sub Exam1 ()

　DoCmd.OpenForm "Form1"

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "5",【　①　】 

　　MsgBox "完了"

End Sub

イベントプロシージャを作成する方法に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

次のVBAコードを実行したとき、表示されるメッセージボックスの内容として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "C"

　　　　Select Case N

　　　　Case "A"

　　MsgBox "優秀"

　　　　Case "B"

　　MsgBox "良好"

　　　　Case Else

　　MsgBox "判定外"

　　　　End Select

End Sub

次のVBAコードは、午前0時からの経過秒数を用いて処理に要した時間を表示するプログラムである。空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　　Dim N As Single

　　N = Timer

　　　MsgBox "OK押下"

　　　MsgBox "経過時間は " & 【　①　】- N & " 秒"

End Sub

コントロールのプロパティに関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

フォーム上のコントロールを無効に設定するには【　①   】プロパティにFalseを設定します。

一方、コントロールのデータ編集だけを無効にするには、【　②   】プロパティにTrueを設定します。

標準プロシージャの削除と命名規則に関する文章について正しいものはどれか。以下の選択肢より１つ解答しなさい。

VBEの画面構成に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

VBEの【　①   】を利用すると、プロシージャを直接呼び出して動作確認を行うことができる。

ブレークポイントに関して正しいものはどれか。以下の選択肢より1つ解答しなさい。

Accessの画面下部にあり、マウスポインタが指しているコマンドの説明や、現在の実行状況を表示する領域はどれか。以下の選択肢より１つ解答しなさい。

コードウィンドウの操作に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

コードウィンドウ上部の【　①　】ボックスには、オブジェクトで利用できるイベント名や、標準プロシージャの一覧が表示される。

コントロールのプロパティを利用して、値の取得や設定を行うことができます。

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

【コントロールに値を設定する場合】 コントロール.プロパティ = 【　①　】

【コントロールから値を取得する場合】 【　②　】 = コントロール.プロパティ

次のコードは、2つのテーブル「Table1」と「Table2」を、それぞれの「data1」フィールドで内部結合してデータを抽出する処理である。

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

Sub Exam1()

　　Dim N As String

　　　N = "SELECT ID, Table1.data1, data4 FROM Table1 【　①   】 Table2 ON Table1.data1 = Table2.data1;"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox"完了"

End Sub

次のコードは"Table1"テーブルをデータシートビューで開く例である。空欄に当てはまる最も適切な定数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenTable "Table1",【　①   】,acAdd

End Sub

次の文章のうち誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、カレントデータベース内のすべてのフォームの名前をイミディエイトウィンドウに出力する処理である。

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

Sub Exam1()

　　Dim N As Variant

　　For【　①   】N In CurrentProject.AllForms

　　　Debug.Print N.Name

　　Next N

End Sub

次のコードは、数値「-5.8」の整数部分を取得する処理である。単純に小数点以下を切り捨てて「-5」という結果を得たい場合、空欄に当てはまる最も適切な関数はどれか。

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

Sub Exam1()

　　Dim N As Double

　　N = -5.8

　　　MsgBox 【　①　】(N)

End Sub

VBEでの自動メンバ表示に関して正しいものはどれか。以下の選択肢より1つ解答しなさい。

ListIndexプロパティに関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

リストボックスで選択されたデータの項目番号を取得するには、ListIndexプロパティを使用します。

行数は"0"から始まるため、リストボックスの2行目のデータを選択している場合、ListIndexプロパティが返す値は【　①   】になります。また、どの項目も選択されていないときは【　②   】を返します。

テーブルのインデックス設定に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、アクティブウィンドウを最小化して表示する処理です。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1 ()

　　DoCmd.SelectObject acTable, "Table1"

　　DoCmd.【　①　】

　MsgBox "完了"

End Sub

次のコードはAccessを終了する際に、保存の確認ダイアログを表示する処理である。

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

Sub Exam1 ()

　DoCmd.Quit 【　①　】

End Sub

VBAのセキュリティ設定に関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のコードの実行結果として適切なものを、選択肢の中から1つ解答しなさい。

なお、" 山田 太郎 "の前後(左右両端)と、名前の間にそれぞれ1つずつ全角スペースが入っているものとします。

Sub Exam1()

　　Dim N As String

　　Dim A As Long

　　N = " 山田 太郎 "

　　N = Trim(N)

　　A = Len(N)

　　　MsgBox "文字列の長さは" & A

End Sub

次のコードは、カンマ区切り付きテキストファイルをテーブル「Table1」としてインポートする処理である。

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

Sub Exam1 ()

　DoCmd.TransferText 【　①　】, , "Table1", "C:¥test¥1.txt", True

MsgBox "完了"

End Sub

次のコードを実行すると"時：23、分：59、秒：59"と表示されます。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1 ()

　Dim N As Date

　N = #23:59:59#

　　MsgBox "時：" & 【　①   】(N) & "、分：" & Minute(N) & "、秒：" & 【　②   】(N)

End Sub

次のコードは、オブジェクト変数が空であるかどうかを比較し、結果をメッセージボックスで表示する処理である。空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　　Dim N As Form

　　Set N = Nothing

　　If N 【　①   】Nothing Then

　　　　MsgBox "対象のフォームが開かれていません。"

　　Else

　　　　MsgBox "フォームの名前は " & N.Name & " です。"

　　End If

End Sub

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1() 　　

　　Const A As Integer = B

　　Const B As Integer = A

　　MsgBox A

End Sub

RecordsetオブジェクトのFind系メソッドを使用した検索結果に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Find系メソッド(FindFirstメソッドなど)を使用してレコードを検索した結果、条件を満たすレコードが見つからなかった場合、NoMatchプロパティは【　①　】を返します。

条件を満たすレコードが見つかった場合は【　②　】を返します。

次のコードは、テキストボックス「txt」にフォーカスがある状態でキーボードのキーを押した瞬間に発生するイベントプロシージャである。

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

Private Sub txt_【　①　】(KeyCode As Integer, Shift As Integer)

　　Me.lbl.Caption = "キーが押されました"

End Sub

次のVBAコードを実行したとき、表示されるメッセージボックスの内容として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　　N="Middle East"

　　MsgBox Mid(N, 3, 4)

End Sub

次のコードは、算術演算子を使用した処理である。空欄に当てはまる算術演算子のうち、最も優先順位が高いものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As Double

　N = 2【　①   】3

　　　MsgBox N

End Sub

Accessのデータベースオブジェクトの命名規則に関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。




Sub Exam1()

　　Dim N As String

　　  N = "SELECT DISTINCT data2, data3 FROM Table2;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

次のVBAコードを実行したとき、表示されるメッセージボックスの内容として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1 ()

　　Dim N As Variant

　　N = DLast("data1", "Table1", "data3 = 55")

　　　MsgBox N

End Sub

以下の空欄の中に、選択肢から整数で最も範囲が広い型指定文字を記述したい。

適切なものを選択肢の中から一つ答えなさい。

Dim N As 【　① 　】

次のコードは、テキストボックス間のフォーカス移動に伴うイベントプロシージャである。

現在、テキストボックス「txt1」にフォーカスがある状態で、テキストボックス「txt2」をクリックしてフォーカスを移動させたとき、メッセージが表示される順番として正しいものはどれか。

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

Private Sub txt1_Exit(Cancel As Integer)

　　MsgBox "txt1からフォーカスが移動します"

End Sub

Private Sub txt2_GotFocus()

　　MsgBox "txt2にフォーカスが移動しました"

End Sub