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

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

Sub Exam1()

　MsgBox Round(3.25,1)

　MsgBox Round(3.26,1)

End Sub

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

Sub Exam1()

　MsgBox DSum("data1", "Table1", "data2 = 'A'")

End Sub

次のVBAコードは、フォームを開いた時に3秒(3000ミリ秒)間隔で特定のイベントが発生するように設定し、そのイベントによって一定間隔でラベルの内容を現在時刻に更新する処理である。

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

Private Sub Form_Load()

　　Me.【　①　】 = 3000

End Sub

Private Sub Form_【　②　】()

　　Me.txt = Now & " 自動で書き換えています"

End Sub

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

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = "INSERT INTO Table5 VALUES ('A6', 'F');"

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

　　DoCmd.OpenQuery "Query1"

　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

次のコードは、テキストボックスに入力された文字数を制御するイベントプロシージャである。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

なお、lblはラベル、txtはテキストボックスのことである。

Private Sub txt_【　①　】(KeyAscii As Integer)

　　Me.lbl.Caption = "ANSIキー押下"

　Dim N As Integer

　N = Len(Me.txt.Text)

　If N >= 6 Then

　　Me.lbl.Caption = "文字数は6文字までです。"

　KeyAscii = 0

　End If

End Sub

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

次のコードは、フォームを開いた時に最初に発生するイベントプロシージャである。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub 【　①　】 (Cancel As Integer)

　If IsNull(Me.txt2.Value) Or Me.txt2.Value =  "" Then

　　　MsgBox "テキストボックス2にデータがないため、起動をキャンセルします"

　　Cancel = True

　Else

　　Me.txt2.SetFocus

 　End If

End Sub

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

プロシージャの実行を中断している状態における、イミディエイトウィンドウの利用方法として誤っているものはどれか。以下の選択肢より１つ解答しなさい。

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

次のVBAコードは、Case Isステートメントを使用した処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As Long

　N = InputBox("点数を入力してください")

　Select Case N

　　Case Is >= 90

　　　MsgBox "評価：A"

　　Case Is >= 70

　　　MsgBox "評価：B"

　　Case Is >= 50

　　　MsgBox "評価：C"

　　【　①   】

　　　MsgBox "評価：D"

　End Select

End Sub

次のコードは、文字列の右側にあるスペースのみを削除して表示する処理である。

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

Sub Exam1()

　Dim N As String

　　N = " Access "

　　　MsgBox"Hello " & 【　①   】(N)

End Sub

フォームとレポートの役割に関する説明として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

VBEの起動と終了に関する記述として、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

次のVBAコードはリストボックスを操作するコードである。実行したとき、リストボックスの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click ()

　Dim i As Integer

　For i = 0 To Me.list.ListCount - 1

　　Me.list.Selected(i) = True

　MsgBox "選択しました。"

　Next i

End Sub

次のコードは、フォームに「data4が '5' で始まる」というフィルタ条件を設定し、そのフィルタを有効にする処理である。

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

Private Sub btn1_Click()

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

　Me.【　①　】 = True

MsgBox "完了"

End Sub

次のコードは、Excelファイル「data.xlsx」をインポートして、新しいテーブル「Table2」を作成する処理である。空欄に当てはまる最も適切な語句はどれか。

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

Sub Exam1()

　　DoCmd.【　①　】 acImport, acSpreadsheetTypeExcel12Xml, "Table2", "C:¥work¥data.xlsx", True

　　　MsgBox "完了"

End Sub

VBEの「入力候補の表示」機能の役割や実行方法に関する記述として、誤っているものはどれか。以下の選択肢より１つ解答しなさい。

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

Sub Exam1()

　Dim N As String

　N = "SELECT ID, data1 /500 AS data5 FROM Table1;"

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

　 DoCmd.OpenQuery "Query1"

End Sub

次のVBAコードは、フォーム上に配置されたfrmオプショングループ内で、どのオプションボタン(op1、op2)が選択されているかを確認し、メッセージを表示する処理です。

このコードを実行した際、事前にオプションボタン「op2」が選択されていた場合の実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　　Select Case Me.frm.Value

　　　　Case Me.op1.OptionValue

　　　　　　MsgBox "op1"

　　　　Case Me.op2.OptionValue

　　　　　　MsgBox "op2"

　　End Select

End Sub

プロシージャの種類と特徴に関する説明として、最も適切なものはどれか。

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

次のコードは「data3」フィールドにフォーカスを移し最初に「30」を検索した後、同じ条件で次のレコードを検索する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "30"

　【　①　】 

　　　MsgBox "完了"

End Sub

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

Sub Exam1()

　MsgBox "AccessVBA" Like "A*B?"

End Sub

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

信頼できる場所へのフォルダ追加とセキュリティの挙動に関する記述として、誤っているものはどれか。

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

次のコードは、インプットボックスを表示し、ユーザーに年齢を入力させる処理である。

入力欄の初期値として"20"を表示させておきたい場合、空欄に当てはまる記述はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = InputBox("年齢を入力してください", "年齢確認", 【　①　】)

End Sub

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

Sub Exam1()

　Dim N As Variant

　For Each N In CurrentProject.AllModules

　　Debug.Print N.Name

　Next N

End Sub

VBAの「Stop」ステートメントに関する記述として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

VBAのデータ型において、小数を扱うことができる(小数点以下の値を持つことができる)データ型の組み合わせとして正しいものはどれか。

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

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

Sub Exam1()

　　MsgBox Replace("VBAVBAVBA", "VBA", "9", 2, 1)

End Sub

プロシージャはステートメント、コメント、キーワード等で作成されていますが、そのうち長いステートメントを途中で改行して記述する場合に使用する「行継続文字」として、正しい記述はどれか。

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

次のコードは、指定した日付の曜日を"月曜日"や"火曜日"といった文字列で取得する処理である。空欄に当てはまる最も適切な関数はどれか。

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

Sub Exam1()

　　Dim N As Date

　　N = #1/1/2024#

　　MsgBox 【　①　】(Weekday(N))

End Sub

次のVBAコードを実行したとき、アクティブウィンドウの状態として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　　DoCmd.MoveSize 1440,  1440,  5000,  3000

　　MsgBox "完了"

End Sub

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

フォームのRecordsetプロパティで取得したレコードセットオブジェクトにおいて、カレントレコードを先頭のレコードに移動するメソッドは【　①   】であり、次のレコードに移動するメソッドは【　②   】である。

次のコードは、クエリ「Query1」を「読み取り専用」で開く処理である。空欄に当てはまる最も適切な定数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenQuery "Query1", acViewNormal,  【　①　】

End Sub

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

Sub Exam1()

　　MsgBox CInt(20.5)

　　MsgBox CLng(33.5)

　　MsgBox CStr(98765)

　　MsgBox CDate("令和5年4月1日")

End Sub

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

Sub Exam1()

　　Dim N As String

　　N = "SELECT ID, Table1.data1, data4 FROM Table1, Table2 WHERE Table1.data1 = Table2.data1;"

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

　　DoCmd.OpenQuery "Query1"

　　　MsgBox "完了"

End Sub

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

ステップイン実行時などに、現在実行中のプロシージャ内で宣言されている変数の値の変化を一覧で確認することができるウィンドウを【　①　】と呼びます。

リレーショナルデータベースに関する文章について正しいものはどれか。 以下の選択肢より１つ解答しなさい。

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

コードウィンドウを上下に分割して別々の場所を同時に表示させるための機能を【　①　】と呼びます。

また、コードの左端にあり、ブレークポイントの設定や現在実行中の行を示す矢印が表示される領域を【　②　】と呼びます。


①　


②