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

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

VBEで開発中にAccessの画面に切り替える方法の1つとして、【　①   】のタスクバーからAccessのアイコンを押下する方法がある。

次のコードは、フォーム"Form1"を新しいレコードを追加するモードで開く処理です。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenForm "Form1", , , , 【　①　】

End Sub

次のコードは、フォームを閉じる際に、画面から非表示となる前に発生するイベントプロシージャである。空欄に当てはまる最も適切なイベント名はどれか。

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

Private Sub Form_【　①　】(Cancel As Integer)

　If Me.txt.Value = "0" Then

　　MsgBox "テキストボックス内が「0」のため、終了をキャンセルします"

　Cancel = True

　End If

End Sub

配列のインデックス番号に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

データベースを構成する「テーブル」の構造に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

VBAプロジェクトの保護とデータベースの保護について誤っているものはどれか。以下の選択肢より1つ解答しなさい。

次の変数の命名ルールに関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

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

なお、「btn」はボタンであり「txt」はテキストボックスのことです。テキストボックス「txt」は、初めは画面に表示されている状態であるものとする。

Private Sub btn_Click()

　　If Me.txt.Visible = True Then

　　　　Me.txt.Visible = False

　　Else

　　　　Me.txt.Visible = True

　　End If

End Sub

次のコードは、フォームの並べ替えを実行する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　Me.【　①　】 = "data3 DESC"

　Me.OrderByOn = True

　　MsgBox "完了"

End Sub

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

【　①　】では、条件式を設定し、その条件を満たした時にはプログラムの実行を中断することができる。

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

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

現在カーソルのあるプロシージャだけを表示するには、コードウィンドウの【　①　】ボタンを使用する。

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。(※"Table1"テーブルと"Table7"テーブルのフィールド構成は完全に一致しているものとします)

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　N = "INSERT INTO Table1 SELECT * FROM Table7;"

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

　　DoCmd.OpenQuery "Query1"

　　DoCmd.SetWarnings True

End Sub

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

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

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

Sub Exam1()

　　Randomize

　　MsgBox Int((Rnd * 8) + 13)

End Sub

次のコードは、リストボックス「list1」の２列目の値をコントロールの値として取得するように設定し、その値を表示する処理である。

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

なおlst1はリストボックスのことである。

Private Sub btn1_Click()

Me.lst1.【　①   】 = 2

    Dim N As Variant

     N = Me.lst1.Value

    MsgBox "選択されたデータは 「" & N & "」 です。"

End Sub

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

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

Sub Exam1()

　DoCmd.Beep

　　Debug.Print "処理が完了しました"

End Sub

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

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

Private Sub btn1_Click()

　Forms("MainForm").Form1.Form.data1 = "123"

End Sub

Replace関数における実引数「比較方法」に指定できる定数とその内容の組み合わせとして、正しいものはどれか。以下の選択肢より１つ解答しなさい。

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

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Product1] WHERE Price < 10000;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

次のVBAコードは、基準日である「2025年12月31日」に1「週」を加算した日付（2026/01/07）を取得し、メッセージボックスに表示する処理である。

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

Sub Exam1()

　　Dim N As Date

　　N= DateAdd（【　①　】, 1, #12/31/2025#）

　　MsgBox N

End Sub

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

Sub Exam1()

　Dim A As String

　Dim B As String

　　　A = Space(3)

　　　B = String(4, "V")

　MsgBox A & B

End Sub

次のコードは、二つの変数を結合する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim A As String

　Dim N As Integer

　A = "合計："

　N = 5

　　　MsgBox A【　①   】N

End Sub

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

txt1・・・は図のテキストボックスのことです。




Sub Exam1()

　With Forms("Form1").txt1

　　　.Value = "VBA"

　　　.ForeColor = vbRed

　End With

End Sub

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

Sub Exam1()

　Dim N As Variant

　　N = Array("4", "2",  "1",  "3")

　MsgBox N(2)

End Sub

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

Sub Exam1()

　Dim N As Variant

　N = Null

　　MsgBox Nz(N, 10)

End Sub

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

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Sports1] ORDER BY data3 DESC, data4;"

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

　DoCmd.OpenQuery "Query1"

　　MsgBox"完了"

End Sub

次のコードは、Cドライブの「test」フォルダにテーブルTable3をエクスポートする処理である。

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

Sub Exam1()

　DoCmd.TransferSpreadsheet 【　①　】,acSpreadsheetTypeExcel12Xml ,"Table3", "C:¥test¥test1.xlsx ", False

　MsgBox "完了"

End Sub

VBAのコメントの書き方に関する記述として、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

リレーショナルデータベースの正規化の手順や用語に関する記述として、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

変数の宣言において、データ型の指定を省略した場合(例：Dim A)に自動的に適用される変数の型はどれか。以下の選択肢より１つ解答しなさい。

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

Sub Exam1()

　MsgBox DCount("data3", "Table1", "data3 < 35")

End Sub

ウォッチウィンドウに関して正しいものはどれか。以下の選択肢より1つ解答しなさい。

次のコードは、フォーム"Form1"を削除する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.【　①　】 acForm, "Form1"

　MsgBox "完了"

End Sub

VBEでの文字列の検索·置換やヘルプの利用に関して誤っているものはどれか。以下の選択肢より1つ解答しなさい。

次のコードは、九九の表のように1から9までの数値を掛け合わせた結果をイミディエイトウィンドウに出力する処理である。

空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　Dim i As Integer, j As Integer

　For i = 1 To 9

　　For j = 1 To 9

　　Debug.Print i * j

　【　①　】

　Next i

End Sub

リストボックスとコンボボックスに関する説明として、正しいものはどれか。以下の選択肢より１つ解答しなさい。