Access VBA ベーシック 関数 穴埋めテスト

セルC4に入力された実績との差異データ（-7.8）に対して、元の数値を超えない（より小さい）最大の整数である「-8」に丸めてメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。


Sub Exam1()

  Dim A As Double

    A = Range("C4").Value

  MsgBox (A)

End Sub

セルC2に入力された差異データ（-12.4）の整数部分を取得し、メッセージボックスに表示するマクロである。

Int関数を使用した場合は「-13」とより小さい整数に丸められてしまうが、単純に小数点以下を切り捨てて「-12」という結果を得たい場合、以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As Double

　A = Range("C2").Value

　　MsgBox (A)

End Sub

セルD2に入力されたカンマ区切りの文字列（"P101,P102,P103"）をカンマ（","）で分割して配列に格納し、その後、配列の要素をスラッシュ（"/"）区切りで結合してメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As Variant

　A = (Range("D2").Value, ",")

　MsgBox (A, "/")

End Sub

セルB2に入力された契約開始日に対して、3「ヶ月」を加算した日付（契約更新日）を算出し、変数 N に格納したうえでセルC2に入力するマクロである。
以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。）

Sub Exam1()

　Dim N As Date

　　N = ("m", 3, Range("B2").Value)

　Range("C2").Value = N

End Sub

セルC3に入力された「納品日」のデータから「日」の部分だけを抽出し、変数 A に格納したうえでメッセージボックスに表示するマクロである。
以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

   Dim A As Integer

  　A = ("d", Range("C3").Value)

　MsgBox A

End Sub

"TABLE1"テーブルから、"ID"が105であるレコードの"Name"フィールドの値を取得して変数 A に格納し、メッセージボックスで表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As Variant

　　A = ("Name", "TABLE1", "ID = 105")

　MsgBox A

End Sub

変数 A に格納されたデータベースからの取得値が Null であった場合、Null の代わりに 500 という数値を返してメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As Variant

　A = Null

　MsgBox (A, 500)

End Sub

変数 A に複数の部署コード（"1", "2", "3", "4"）をまとめて格納し、その中から3番目の要素（"3"）を取得してメッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As Variant

　　A = （"1", "2", "3", "4"）

　MsgBox A(2)

End Sub

セルC4に入力された点数が80点以上であれば「合格」、そうでなければ「不合格」を変数 A に格納し、メッセージボックスで表示するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As String　

　　A = (Range("C4").Value >= 80, "合格", "不合格")
　
　MsgBox A 　

End Sub

セルC3に入力されている文字列としての和暦データ（例："令和8年5月1日"）を、厳密な日付型（Date型）のデータに変換して変数 A に格納し、メッセージボックスに表示するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As Date

　　A = (Range("C3").Value)

　MsgBox A

End Sub