【カテゴリー別】Access VBA ベーシック 模擬問題　関数

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

Sub Exam1()

　Dim N As Double

　N = -7.8

　　MsgBox Int(N)

End Sub

次のコードは、数値「-5.8」の整数部分を取得する処理である。単純に小数点以下を切り捨てて「-5」という結果を得たい場合、空欄に当てはまる最も適切な関数はどれか。

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

Sub Exam1()

　　Dim N As Double

　　N = -5.8

　　　MsgBox 【　①　】(N)

End Sub

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

Sub Exam1()

　MsgBox Round(3.25,1)

　MsgBox Round(3.26,1)

End Sub

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

Sub Exam1()

　　Randomize

　　MsgBox Int((Rnd * 8) + 13)

End Sub

次の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

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

Sub Exam1()

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

End Sub

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

Sub Exam1 ()

　　MsgBox Right("HELLO WORLD", 5)

End Sub

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

Sub Exam1()

　　Dim N As String

　　　N="Middle East"

　　MsgBox Mid(N, 3, 4)

End Sub

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

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

Sub Exam1()

　Dim N As String

　N = "Access VBA"

　　MsgBox【　①　】(N)

End Sub

次のコードを実行すると、1回目は「7」、2回目は「14」と表示されます。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　MsgBox 【　①　】("ABCDEFG")

　　MsgBox 【　②　】("ABCDEFG")

End Sub

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

なお、" 山田 太郎 "の前後(左右両端)と、名前の間にそれぞれ1つずつ全角スペースが入っているものとします。

Sub Exam1()

　　Dim N As String

　　Dim A As Long

　　N = " 山田 太郎 "

　　N = Trim(N)

　　A = Len(N)

　　　MsgBox "文字列の長さは" & A

End Sub

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

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

Sub Exam1()

　Dim N As String

　　N = " Access "

　　　MsgBox"Hello " & 【　①   】(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

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

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

Sub Exam1()

　Dim N As Variant

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

　　MsgBox 【　②　】(N, "：")

End Sub

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

Sub Exam1()

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

End Sub

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

次のコードを実行すると"10月1日 (2024)"と表示されます。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As Date

　　N = #10/1/2024#

　　MsgBox 【　①   】(N) & "月" & Day(N) & "日 (" & 【　②   】N) & ")"

End Sub

次のコードを実行すると"時：23、分：59、秒：59"と表示されます。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1 ()

　Dim N As Date

　N = #23:59:59#

　　MsgBox "時：" & 【　①   】(N) & "、分：" & Minute(N) & "、秒：" & 【　②   】(N)

End Sub

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

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

Sub Exam1()

　　Dim N As Date

　　N = #1/1/2024#

　　MsgBox 【　①　】(Weekday(N))

End Sub

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

Sub Exam1()

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

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

次の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

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

Sub Exam1()

　Dim N As Integer

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

　MsgBox N

End Sub

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

Sub Exam1()

　　Dim MyDate As Date

　　　MyDate = DateSerial(2025, 4, 1)

　　MsgBox MyDate

End Sub

次のVBAコードは、午前0時からの経過秒数を用いて処理に要した時間を表示するプログラムである。空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　　Dim N As Single

　　N = Timer

　　　MsgBox "OK押下"

　　　MsgBox "経過時間は " & 【　①　】- N & " 秒"

End Sub

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

Sub Exam1()

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

End Sub

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

Sub Exam1()

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

End Sub

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

Sub Exam1()

　Dim N As Variant

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

　MsgBox N

End Sub

次のコードは、実行すると【　①   】と表示された。

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

Sub Exam1()

　　Dim N As Variant 

　　　N = DMax ("data1","Table1")

　　MsgBox N

End Sub

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

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

Sub Exam1()

 Dim N As Variant

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

 MsgBox N

End Sub

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

Sub Exam1 ()

　　Dim N As Variant

　　N = DLast("data1", "Table1", "data3 = 55")

　　　MsgBox N

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 Variant

　N = Null

　　MsgBox Nz(N, 10)

End Sub

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

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

Sub Exam1()

Dim N As Variant

　N = "123"

　If 【　①　】(N) Then

　　MsgBox "数値です"

　Else

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

　End If

End Sub

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

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

Sub Exam1()

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

　　MsgBox "処理を開始します"

　Else

　　MsgBox "処理を中止します"

　End If

End Sub

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

Sub Exam1()

　Dim N As Integer

　N = MsgBox("処理を続けますか？", vbYesNo + vbQuestion)

　　If N = vbYes Then

　　　MsgBox "実行しました"

　　Else

　　　MsgBox "キャンセルしました"

　　End If

End Sub

次のVBAコードを入力欄に、"野球"と入力した場合、表示されるメッセージボックスの内容として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　N = InputBox("好きなスポーツ名を入力してください。", "好きなスポーツ", "例:野球")

　If N = "" Then

　　MsgBox "未入力あるいは、キャンセルされました。"

　ElseIf N = "例:野球" Then

　　MsgBox "例のままです。"

　Else

　　MsgBox N & "がお好きなんですね。素敵ですね。"

　End If

End Sub

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

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

Sub Exam1()

　　Dim N As String

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

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 Integer

　N = 75

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

End Sub