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

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

Sub Exam1()

　DoCmd.Echo False

　DoCmd.OpenForm "Form1"

　DoCmd.OpenForm "Form2"

　　DoCmd.Echo True

End Sub

次のコードは、" Table1"テーブルから"data3"が20であるレコードの"data1"フィールドの値を取得して表示する処理である。空欄に当てはまる最も適切な関数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As Variant

　　N = 【　①　】("data1", " Table1", "data3 = 20")

　MsgBox N

End Sub

次のコードは、カレントレコードのレコード番号を表示する処理である。空欄に当てはまる最も適切なプロパティはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　MsgBox Forms("Form1").【　①　】& "がカレントレコード番号です"

End Sub

Accessの画面から標準モジュールを新しく作成する手順として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

VBEでのヘルプの利用に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

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

VBEにおいて、開いているプロジェクトに含まれるモジュールを階層（ツリー）形式で一覧表示し、管理するためのウィンドウを【　①　】と呼びます。

Accessのクエリに関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のコードはFormatイベントで、レポートヘッダーの印刷制御を行う処理である。

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

Private Sub レポートヘッダー_Format(Cancel As Integer,FormatCount As Integer)

　Me.【　①　】= False

End Sub

次のコードは、Table Product1テーブルからフィールド名「Price」が10000から30000までのデータを抽出するSQL文を設定し、クエリを開く処理である。

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

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Product1] WHERE Price 【　①　】 10000 AND 30000;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

Accessデータベースの配布形式に関する記述として、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

テーブルで使用するデータ型に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

テーブルのフィールドに、最大255文字までの文字列を格納する場合に使用するデータ型は【　①   】である。

次のVBAコードはFormat関数を使用して数値と文字列を特定の書式に変換し、メッセージボックスに表示する処理である。

空欄に当てはまる書式記号のうち、指定した桁や位置に元のデータが存在しない場合、数値には「0」、文字列には「スペース」が両方とも入らない書式指定の組み合わせとして正しいものはどれか。

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

Sub Exam1()

　　Dim A As String

　　Dim B As String

　　A = Format(1234, "【　①　】")

　　B = Format("VBA", "【　②　】")

　　MsgBox A & vbCrLf & B

End Sub

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

VBEの各ウィンドウは、画面の枠に固定して配置する【　①　】状態と、独立したウィンドウとして画面上の自由な位置に配置する【　②　】状態を切り替えることができます。

定数に関する文章について正しいものはどれか。以下の選択肢より１つ解答しなさい。

デバッグ機能のステップイン実行に関する文章について,空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

ステップイン実行は,プロシージャのステートメントを【　①   】単位で実行し,動作を確認する機能です。

ステップイン実行を行うには、【　②   】キーを押します。

なお、ステップイン実行を行うと,実行箇所が黄色く反転して一時停止しますが,この黄色く反転しているステートメントは【　③   】という点に注意が必要です。

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

次のコードは，文字列 "A-B-C" をハイフン "-" で分割し，配列に格納した後，配列を「：」 区切りで結合して表示します。

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

Sub Exam1()

　Dim N As Variant

　N = 【　①　】("A-B-C","-")

　　MsgBox 【　②　】(N, "：")

End Sub

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

Private Sub btn1_Click()

　If Me.RecordSelectors = True Then

　　Me.RecordSelectors = False

　Else

　　Me.RecordSelectors = False

　End If

　　MsgBox "完了"

End Sub

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

Sub Exam1()

　DoCmd.OutputTo acOutputReport, "Report1", acFormatHTML, "C:¥work¥Invoice.html"

　　MsgBox "完了"

End Sub

次のコードは、レコードが更新される直前に実行されるイベントプロシージャである。
空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub Form_【　①   】 (Cancel As Integer)

　If Len(Me.data3.Value & "") = 0 Then

　MsgBox "data3が入力されていないため、保存をキャンセルします"

　　Cancel = True

End If

End Sub

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

Sub Exam1()

　Dim i As Long

　Dim j As Long

　　For i = 1 To 3

　　　For j = 1 To 2

　　　　MsgBox j & "-" & i

　　　Next j

　　Next i

End Sub

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

「Exit Do」と「Exit For」の主な違いは、処理を抜ける対象の繰り返し構造がそれぞれ【　①　】と【　②　】であることである。

次のコードは、フォームモジュール内に記述されており、フォームの表題に表示されている文字列を表示する処理である。

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

Private Sub btn1_Click()

　MsgBox【　①　】. Caption

End Sub

変数Nへの値の代入や変数Nの値の取得(利用)に関する記述として、誤っているコードはどれか。

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

VBAにおけるプロパティの取得と設定に関する記述として正しいものはどれか。以下の選択肢より１つ解答しなさい。

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

フォームのタイトルバーに表示される文字列や、ユーザーに見える標題を返すのは【　①　】プロパティであり、フォームやコントロールをVBAで識別する際に利用されるのは【　②　】プロパティです。

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

(※実行前において、データベース内に"Table1"は存在し、"Table10"は存在しないものとします。)

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　 N = "SELECT * INTO Table10 FROM Table1;"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

次のVBAコードを実行したとき、レポート"Report1"はどのように実行されるか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenReport "Report1", acViewPreview

End Sub

VBEにおけるコードの編集作業の支援機能について、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

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

Sub Exam1()

　Dim N As String 　

　N = "SELECT data4, Count(ID) AS group件数 FROM Table1 GROUP BY data4;"

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

　DoCmd.OpenQuery "Query1" 

　　MsgBox "完了"

End Sub

次のVBAコードは、フォーム上に配置されたボタン(btn1)をクリックし、リストボックス(list1)に、指定した値のリストをデータとして表示するための処理です。

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


→

Private Sub btn1_Click()

　　Me.list1.【　①　】 = "Value List"

　　Me.list1.【　②　】 = "9;8;7;6;5"

　MsgBox "完了"

End Sub

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

Sub Exam1()

　　Dim A As Date

　　Dim B As Date

　　A = #12/17/2025#

　　B = #12/31/2025#

　　　MsgBox DateDiff("d",A,B)

　　　MsgBox DateDiff("ww",A,B)

End Sub

データベースを操作するための言語である「SQL」は、何の略称か。最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、変数の値が数値として評価できるかどうかを判定する処理である。

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

Sub Exam1()

Dim N As Variant

　N = "123"

　If 【　①　】(N) Then

　　MsgBox "数値です"

　Else

　　MsgBox "数値ではありません"

　End If

End Sub

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

Sub Exam1()

　　Dim A As Integer, B As Integer

　　　A = 10

　　　B = 20

　　MsgBox (A > 5) And (B < 10)

　　MsgBox (A > 15) Or (B = 20)

End Sub

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

Sub Exam1()

　MsgBox InStr(5, "ABCDEFGCDE", "CDE")

End Sub

次のコードは、アクティブなオブジェクト(レポートなど)の1ページ目から3ページ目までを印刷する処理である。

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

Sub Exam1()

　　DoCmd.【　①　】 acPrintAll, 1, 3

　MsgBox "完了"

End Sub

VBAの参照設定に関する記述として正しいものはどれか。以下の選択肢より１つ解答しなさい。