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

以下コードを実行した際の結果として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

ただし、Accessデータベース内に「Table1」というテーブルが存在し、C:¥Temp¥フォルダが事前に作成されているものとします。

Sub Exam1()

　DoCmd.TransferSpreadsheet acExport, , "Table1", "C:¥Temp¥Table1.xlsx", True

　　MsgBox "完了"

End Sub

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

Sub Exam1()

　MsgBox Format(#12/5/2023#, "yyyy/mm/dd")

End Sub

For Each...Next ステートメントにおいて、繰り返し処理の対象として指定できるグループと、その際に要素変数として指定するデータ型の組み合わせに関する記述として、正しいものはどれか。

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

以下のVBAコードは、Accessデータベースのテーブルから特定の条件を満たすレコードを抽出するためのSELECTステートメントを示しています。

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

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM T競技 【　①　】 利用料金 > 500; "

　CurrentDb.QueryDefs("Q競技").SQL = N

　　DoCmd.OpenQuery "Q競技”

End Sub

SELECTステートメントで、重複するレコードを排除して1件にする場合に使用する語句はどれか。以下の選択肢より１つ解答しなさい。

次のコードは「Table1」テーブルをデータシートビューで開く例である。

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

Sub Exam1()

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

End Sub

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

ただし、InputBoxには文字列の「B」が入力されたものと仮定します。

Sub Exam1()

　Dim N As String

　N = InputBox(”成績をアルファベットで入力してください (A, B, C) ”)

　　SELECT Case N

　　　Case ”A”

　　 MsgBox ”素晴らしい成績です！”

　　　Case “B”, “C”

　　 MsgBox “良い成績です。”

　　　Case Else

　　MsgBox “その他の成績です。”

　End SELECT

End Sub

次のコードは、指定した条件を使って、次のレコードを検索する処理である。

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

Sub Exam1()

　 DoCmd.GoToControl "data2"

　 DoCmd.FindRecord "D", acStart

　 　 DoCmd.【　①　】

End Sub

以下のコードを実行した際の結果として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim A As Long

　A = 30/2

　If A > 10 Then

　　MsgBox "入力値は10より大きい。"

　End If

End Sub

フォーム上のボタンを押して変更されるプロパティの説明として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　With Me.txt1

　　.Value = "VBA"

　　.ForeColor = vbRed

　End With

End Sub

次のコードは、メッセージを表示する処理です。なおコード内にはコメントを記述しています。

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

Sub Exam1()

　MsgBox "Hello" 【　①　】これはメッセージ表示です。

End Sub

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

Sub Exam1()

　MsgBox 10/( 5 * 2 )

End Sub

次のVBAコードを実行したとき、表示されるメッセージボックスの内容として正しいものはどれか。

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

Sub Exam1()

　MsgBox DateDiff("yyyy", #4/1/2020#, #4/1/2023#)

End Sub

以下コードを実行した際、メッセージボックスに表示される結果として最も適切なものはどれか。

選択肢から1つ解答しなさい。

Sub Exam1()

　Dim N As Variant

　　N = Array("V", "B", "A")

　MsgBox LBound(N)

End Sub

VBEのコードウィンドウに表示される「オブジェクトボックス」に関する説明として、最も適切なものはどれか。

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

以下のVBAコードは、Accessレポートのセクションが印刷プレビューされる際にデータを判別する処理を行うイベントのコードです。

空欄に当てはまる最も適切なイベント名を以下の選択肢より１つ解答しなさい。

Private Sub ページヘッダーセクション_【　①   】(Cancel As Integer,FormatCount As Integer)

　Me.PrintSection = False

　MsgBox "設定完了"

End Sub

次のコードは、数値として扱われている「12345」を、文字列型のデータに変換して変数に格納する処理である。

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

Sub Exam1()

　Dim N As String

　　N = 【　①　】(12345)

　MsgBox TypeName(N)

End Sub

テーブルの正規化に関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

以下のコードを実行した際、フォームの左端に表示されるレコードセレクタの表示/非表示を切り替えます。空欄に当てはまる最も適切なプロパティを以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　Me.【　①   】= False

　　MsgBox “レコードセレクタを非表示にしました。”

End Sub

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

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　N = "UPDATE T競技 SET 利用料金 = Null"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

乱数を使用する際、乱数を初期化して、実行するたびに「１から10」の乱数が発生するようにするために使用する関数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As Integer

　　【　①　】

　N = Int((10 - 1 + 1) * Rnd + 1)

　　MsgBox "本日のラッキーナンバーは " & N & " です！"

End Sub

以下のコードはフォームに配置された「btn1」ボタンをクリックして、フォームのソース(参照元)を設定するコードである。

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

なおAccessフォームモジュールに記述されていると仮定する。

Private Sub btn1_Click()

　Me.【　①　】 = "Product Master2"

　　MsgBox "フォームのレコードソースがProduct Master2に変更されました。"

End Sub

以下の文章はAccessのデータ型について説明したものである。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

金額などの計算を行うための数値を格納するデータ型は【　①　】である。

Access VBAにおける「コントロール」に関する説明として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

テーブルのフィールドを主キーに設定できない条件（状態）として正しいものはどれか。以下の選択肢より１つ解答しなさい。

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

Sub Exam1()

　Dim N As Integer

　N = 0

　Do While N > 0

　　MsgBox N

　　N = N-1

　Loop

End Sub

VBEのデバッグ作業でステップインを実行するショートカットキーはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、レポート"Report1"を選択しアクティブにする処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.SelectObject 【　①　】, "Report1"

End Sub

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

Sub Exam1()

　　MsgBox Forms("Form1").txt1.Value

End Sub

Accessのフォームで、キーボードのANSIキー(アルファベットや数字などの標準的なキー)が押されたときに発生するイベントの順番として、正しいものはどれか。
以下の選択肢より１つ解答しなさい。

イベントプロシージャをVisual Basic Editor (VBE) から作成する際の手順に関する記述として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

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

データ型の格納に関する文章について正しいものはどれか。以下の選択肢より１つ解答しなさい。

「配列」に関する記述として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、指定したコントロールに移動しフォーカスのあるフィールド全体で「30」という文字列と一致するレコードを検索する処理である。

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

Sub Exam1()

　 DoCmd.GoToControl "data3"

　 DoCmd.FindRecord "30", 【　①　】

　 　 MsgBox "完了"

End Sub

以下のコードは、Accessのフォームがレコードが表示される際に実行されるイベントプロシージャです。

空欄に当てはまる最も適切なイベント名を以下の選択肢より１つ解答しなさい。

Private Sub Form_【　①　】()

　MsgBox "完了"

End Sub

以下のコードを実行した際、リストボックスに表示される列数を設定します。

空欄に入る最も適切なプロパティを以下の選択肢より１つ解答しなさい。

なお list1はリストボックスのことです。

Private Sub btn_Click()

　　Me.list1.【　①   】= 2

　　Me.list1.RowSourceType = "Table/Query"

　　Me.list1.RowSource = "T競技"

　MsgBox "リストボックスの表示列数を2列に設定しました。"

End Sub

以下のコードにおいて、SQLのWHERE句でBetween…And演算子を使用して販売価格の範囲指定を行うSQL文と同じ意味になるように、空欄に当てはまる適切な演算子の組み合わせを選びなさい。

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM T競技 WHERE 利用料金 【　①　】 300 And 利用料金【　②　】500; "

　CurrentDb.QueryDefs("Q競技").SQL = N

　　DoCmd.OpenQuery “Q競技”

End Sub