【カテゴリー別】Access VBA ベーシック 模擬問題　ステートメント

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

Sub Exam1()

　Dim N As Integer

　N = 20

　If N < 20 ¥ 2 Then

　　MsgBox "A"

　Else

　　MsgBox "B"

　End If

End Sub

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

Sub Exam1()

　　Dim N As Integer

　　　N = 10

　　If N < 50 / 5 Then

　　　　MsgBox "A"

　　　ElseIf N = 20 Then

　　　　MsgBox "B"

　　　ElseIf N = 30 Then

　　　　MsgBox "C"

　　Else

　　　　MsgBox "D"

　 End If

End Sub

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

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

Sub Exam1()

　　Dim N As String

　　N = "C"

　　　　Select Case N

　　　　Case "A"

　　MsgBox "優秀"

　　　　Case "B"

　　MsgBox "良好"

　　　　Case Else

　　MsgBox "判定外"

　　　　End Select

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

次のコードは、九九の表のように1から9までの数値を掛け合わせた結果をイミディエイトウィンドウに出力する処理である。

空欄に当てはまる最も適切なものはどれか。

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

Sub Exam1()

　Dim i As Integer, j As Integer

　For i = 1 To 9

　　For j = 1 To 9

　　Debug.Print i * j

　【　①　】

　Next i

End Sub

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

Sub Exam1()

　Dim i As Long

　Dim j As Long

　　For i = 1 To 3

　　　For j = 1 To 2

　　　　MsgBox j & "-" & i

　　　Next j

　　Next i

End Sub

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

Sub Exam1()

　Dim i As Integer

　　i = 10

　Do While i < 5

　　i = i + 1

　Loop

　　MsgBox i

End Sub

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

Sub Exam1()

　　Dim N As Integer

　　N = 5

　　Do

　　　MsgBox "現在のカウントは " & N & " です"

　　　N = N - 2

　　Loop Until N < 5

End Sub

次のコードは、カレントデータベース内のすべてのフォームの名前をイミディエイトウィンドウに出力する処理である。

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

Sub Exam1()

　　Dim N As Variant

　　For【　①   】N In CurrentProject.AllForms

　　　Debug.Print N.Name

　　Next N

End Sub

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

Sub Exam1()

　Dim N As Variant

　For Each N In CurrentProject.AllModules

　　Debug.Print N.Name

　Next N

End Sub

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

txt1・・・は図のテキストボックスのことです。




Sub Exam1()

　With Forms("Form1").txt1

　　　.Value = "VBA"

　　　.ForeColor = vbRed

　End With

End Sub

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

「Exit Do」と「Exit For」の主な違いは、処理を抜ける対象の繰り返し構造がそれぞれ【　①　】と【　②　】であることである。