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

リストボックスの項目の追加・削除に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

RowSourceTypeプロパティが「Value List」に設定されている場合、【　①   】メソッドを使用してリストボックスに新しい項目を追加できます。

また、項目を削除する場合はRemoveItemメソッドを使用しますが、引数に項目番号を指定して削除する場合、リストボックスの項目番号は【　②   】から始まる点に注意が必要です。

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

なお、このコードはレポートの「レポートヘッダー」セクションのイベントプロシージャに記述されているものとする。

Private Sub レポートヘッダー_Print(Cancel As Integer, PrintCount As Integer)

　　Me.レポートヘッダー.BackColor = vbWhite

End Sub

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

Private Sub btn1_Click()

 Me.Filter = "data3 Like '5*'"

　Me.FilterOn = True

　MsgBox Me.Recordset.RecordCount

　Me.FilterOn = False

　Me.Requery

　　MsgBox Me.Recordset.RecordCount

End Sub

次のコードは、ユーザーに実行可否を確認し、「はい」が選択された場合のみ処理を開始するものである。

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

Sub Exam1()

　If MsgBox("実行しますか？", vbYesNo + vbQuestion) = 【　①　】 Then

　　MsgBox "処理を開始します"

　Else

　　MsgBox "処理を中止します"

　End If

End Sub

次のコードは、標準モジュールからフォーム「Form1」を参照してフォームの標題を表示する処理と、

フォーム「Form1」のフォームモジュールからフォーム自身を参照してフォームの標題を表示する処理である。

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

' 標準モジュールから実行するプロシージャ

Sub Exam1()

　　MsgBox 【　①　】. Caption

End Sub

' フォーム「Form1」のフォームモジュールから実行するプロシージャ

Private Sub btn1_Click()

　　MsgBox 【　②　】. Caption

End Sub

次のコードは、テーブルのdata1フィールドの最小値を求めて表示するものである。

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

Sub Exam1()

 Dim N As Variant

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

 MsgBox N

End Sub

次のコードは、フィールドを定義して新しいテーブル「TableNew」を作成する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　DoCmd.SetWarnings False

　　N = "【　①　】 TABLE TableNew(data1 TEXT(6) PRIMARY KEY, data2 TEXT(15))"

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

　DoCmd.OpenQuery "Query1"

　DoCmd.SetWarnings True

　　MsgBox"完了"

End Sub

VBEにおけるエラーの種類に関して誤っている記述はどれか。以下の選択肢より1つ解答しなさい。

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

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

Sub Exam1()

　Dim i As Integer

　　i = 10

　Do While i < 5

　　i = i + 1

　Loop

　　MsgBox i

End Sub

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

画面左上にある【　①　】には、Accessやデータベースを操作するコマンドがメニュー形式でまとめられています。

また、その上部にある【　②　】には頻繁に使われるコマンドが常に表示され、ユーザーがカスタマイズすることもできます。

そして画面上部の【　③　】には、よく使用する機能やコマンドがまとめられており、選択したオブジェクトに対し最適なものが表示されるようになっています。

次のコードは、オブジェクト名を省略して、ナビゲーションウィンドウで最初に見つかったフォームを選択する処理です。

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

Sub Exam1()

　　DoCmd.SelectObject acForm, , 【　①　】

End Sub

次のコードは、警告メッセージを表示せずに「Query1」クエリを実行する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.SetWarnings 【　①　】

　DoCmd.OpenQuery "Query1"

　　MsgBox"処理実行"

End Sub

VBAを使う目的として正しいものはどれか。以下の選択肢より1つ解答しなさい。

次のVBAコードは、フォーム上に配置されたテキストボックス(txt1)とボタン(btn1)を操作する処理です。このコードを実行したときの実行結果として正しいものはどれか。

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

Private Sub btn1_Click()

　　Me.btn1.SetFocus

　　Me.txt1.Value = "VBA"

　　　MsgBox Me.txt1.Text

End Sub

レコードが追加されるときのイベントの発生順序に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

新規レコードが追加されると、BeforeInsert → 【　①   】→ 【　②   】→ AfterInsert の順番でイベントが発生します。

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

ウィンドウのサイズを変更するには、ウィンドウの【　①   】をドラッグアンドドロップする。

VBE上で構文を誤って記述した場合の動作として正しいものはどれか。以下の選択肢より1つ解答しなさい。

次のコードは、テーブル「Table Product1」のすべてのフィールドのデータを取得するSQLステートメントを実行する処理である。

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

Sub Exam1()

　Dim N As String

　　N = "SELECT * 【　①　】 [Table Product1];"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

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

Sub Exam1()

　Dim N As Integer

　N = 20

　If N < 20 ¥ 2 Then

　　MsgBox "A"

　Else

　　MsgBox "B"

　End If

End Sub

代入演算子と比較演算子に関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、文字列「ＡＢＣ」を半角文字「ABC」に変換して表示する処理である。空欄に当てはまる最も適切な定数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　MsgBox StrConv("ＡＢＣ", 【　①　】)

End Sub

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

Sub Exam1()

　Dim N As Integer

　　N = DatePart("d", #8/15/2023#)

　MsgBox N

End Sub

次のコードは、「data4」でグループ化し、グループごとのdata3の平均値を求める処理である。
空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　　N = "SELECT data4, 【　①   】(data3) AS data3平均 " & "FROM Table1 GROUP BY data4;" 

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

　DoCmd.OpenQuery "Query1" 

　MsgBox "完了"

End Sub

次のコードは、変数に入力されたアルファベットをすべて「小文字」に変換して表示する処理である。

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

Sub Exam1()

　Dim N As String

　N = "Access VBA"

　　MsgBox【　①　】(N)

End Sub

テーブルで使用するデータ型の説明として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

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

次のコードは、テーブル「Table Sports1」から「data3」が 1500、3000、4500 のいずれかに一致するレコードを抽出する処理である。

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

Sub Exam1()

　Dim N As String

　　N = "SELECT * FROM [Table Sports1] WHERE data3 【　①   】(1500, 3000, 4500);" 

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

　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

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

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

Sub Exam1()

　Dim N As Integer

　N = 75

　　MsgBox IIf (N >= 80, "〇", "×")

End Sub

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

VBAを使用して指定したコントロールにフォーカスを移動するには、コントロールの【　①　】メソッドを使用します。

これは、DoCmdオブジェクトの【　②　】メソッドを使用した場合と同じような処理を行うことができます。

フォームとレポートに共通する特徴に関する文章について誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、テーブル「Table1」をExcelファイルとして出力する処理である。空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　DoCmd.OutputTo 【　①　】, "Table1", 【　②　】,"C:¥test¥test2.xlsx", True

End Sub

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

Sub Exam1()

　DoCmd.OpenForm "Form1"

　DoCmd.OpenTable "Table1"

　DoCmd.Save acForm, "Form1"

　DoCmd.Close acTable,"Table1", acSaveYes

　　MsgBox "完了"

End Sub

次のコードは、繰り返し処理の回数をイミディエイトウィンドウに表示させる処理である。空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　Dim i As Long

　For i = 1 To 5

　　【　①　】 i & " 回目"

　Next i

End Sub

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

選択されているオブジェクトのプロパティを表示・編集できるのは、VBEの【　①　】である。

次のVBAコードのように、1行で複数の変数を宣言したとき、変数「A」と変数「B」のデータ型の組み合わせとして正しいものはどれか。
以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim A, B As String

End Sub

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

Sub Exam1()

　Dim i As Integer

　For i = 1 To 10

　　If i = 3 Then

　　　Exit For

　　End If

　Next i

　　MsgBox i

End Sub