【ランダム順出題】Access VBA スタンダード模擬試験　③

制限時間は60分です。

問題の出題順や選択肢の並び順は、サイト側で自動でシャッフルされます。

準備が整い次第、ボタンを押して試験を開始してください。

1.

次のコードは、パスを指定し「C:￥Data￥data1.txt」ファイルを削除したあと、「C:￥data」フォルダ自体を削除する処理である。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　fso. "C:￥Data￥data1.txt"

　　fso. "C:￥Data"

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

2.

他のアプリケーション（Excelなど）をOLEオートメーションで操作する際の注意点として、最も適切なものを1つ選びなさい。

操作対象アプリのすべての機能は、Accessのオブジェクトブラウザだけで確認できる。

外部アプリを操作するには、必ず実行時バインディングを使わなければならない。

操作対象アプリのオブジェクト・メソッド・プロパティはAccessのヘルプには載っていないため、対象アプリ側の情報を別途参照する必要がある。

外部アプリのオブジェクトは解放不要で、使用後に放置してよい。

3.

次のコードは、OpenメソッドでRecordsetを開く前に、あらかじめ接続を設定し実行する方法である。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst. = conn

　　rst.Open "[Table Product1]"

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

4.

次のコードは、Table1に「data10」という短いテキスト型のフィールドを追加するものである。

以下の空欄に入る適切なコードを解答しなさい。

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = " Table1 data10 TEXT(50);"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

5.

次のコードは、[Table Sports1]を開き、カレントレコード（先頭）を削除するものである。以下の空欄に入る適切なコードを解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

6.

DAOでテーブルを作成する手順として最も適切ものはどれか。

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

CreateTableDefで作成し、CreateFieldでフィールドを作成してAppendで追加した後、TableDefsオブジェクトにAppendで追加する。

テーブルはDAOでは作成できない。

CreateTableだけでテーブルとフィールドを同時に作成する。

DAO でテーブルを作成するときは、まず CreateField でテーブルの器を作成し、続いて CreateTableDef で各フィールドを作成し、Append で1つずつ追加していくという手順を踏む。

7.

VBEに次のコードを記述して実行した。
1つ目の入力画面で「0」を入力し、次に表示された入力画面で「5」を入力した。このときの動作として正しいものはどれか。

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

Sub Exam1()

　　Dim N As Integer

　　On Error GoTo ErrHandler

Re:

　　N = InputBox("0以外の数値を入力")

　　MsgBox 10 / N

　　N = 0

　　Exit Sub

ErrHandler:

　　If Err.Number = 13 Then

　　　　Resume Next

　　ElseIf Err.Number = 11 Then

　　　　Resume Re

　　Else

　　　　Resume

　　End If

End Sub

「5」を入力すると、メッセージボックスに「5」が表示される。

「0」の入力で0除算エラーが発生し、エラーが発生した次の行へ進むため、入力画面には戻らずに終了する。

「0」を入力した時点で、実行時エラー（0 で除算しました。）のダイアログボックスが表示され、中断モードになる。

「0」の入力で0除算エラーが発生し、入力画面に戻る。次に「5」を入力すると、メッセージボックスに「2」が表示される。

8.

標準モジュールから、開いているフォーム「form1」上のテキストボックス「txt1」の値を参照したい。参照方法として最も適切なものはどれか。

選択肢の中から適切なものを１つ解答しなさい。

Me![form1]![txt1]

txt1（コントロール名だけで参照する）

Forms!form1!txt1

Forms.txt1

9.

次のコードは、[Table Sports1]のレコードセットをPriceの降順に並べ替えるものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.CursorLocation = adUseClient

　　rst.Open "[Table Sports1]", conn, adOpenStatic

　　rst. = "Price "

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

10.

次のコードは、ダイアログで選択されたファイルのパスを取得するものである。以下の空欄に入る適切な語句を解答しなさい。

*例ではＣドライブ内Dataフォルダ内のテキストファイルを選択しています。

Sub Exam1()

　　Dim fld As FileDialog

　　Set fld = Application.FileDialog(msoFileDialogFilePicker)

　　If fld.Show = -1 Then MsgBox fld.(1)

　　Set fld = Nothing

End Sub

11.

イミディエイトウィンドウでの演算・関数・ステートメントの実行、およびイミディエイトウィンドウの特徴に関する記述として、正しいものはどれか。

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

イミディエイトウィンドウは大文字と小文字を区別するため、「msgbox」のように小文字で入力するとエラーになる。

変数への代入や MsgBox関数の実行のように、結果を返す必要がない記述は、先頭に「?」を付けずに実行する。

イミディエイトウィンドウにキーワードを入力すると、コードウィンドウと同じように自動的に大文字・小文字が整えられる。

演算や関数の結果をイミディエイトウィンドウに表示したいときは、先頭に「?」を付けずに記述する。

12.

VBEに次のコードを記述して実行した。イミディエイトウィンドウに出力される結果として最も適切ものはどれか。

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

Sub Exam1()

　　Dim n As Long

　　Dim n2 As Long

　　n = 11 + 15 + 20

　 n2= n / 3

　　Debug.Print n2

End Sub

15

15.33333

16

15.5

13.

フォームモジュール・レポートモジュールの具体的な作成・削除の手順に関する説明、として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

フォームを新規作成してそのまま保存すれば、コードを書かなくてもプロジェクトエクスプローラにモジュールのアイコンが表示される。

フォームモジュールを削除する手順をデザインビューで実行すると、そのモジュール内に記述されたコードだけでなく、モジュールに対応するフォーム自体もデータベースから完全に削除されてしまうため、注意が必要である。

デザインビューでフォームやコントロールを右クリックして「イベントのビルド」から「コードビルダー」を選ぶと、プロジェクトエクスプローラにそのモジュールがコードを記述できるよう作成・表示される。

「コード保持」プロパティを「いいえ」にすると、その場ですぐにコードが削除される。

14.

SQLの集計関数（グループごとの集計に使う関数）として正しい組み合わせを1つ解答しなさい。

COUNT･SUM･AVG･MAX･MIN

FORMAT･STR･VAL･CSTR

LEFT･RIGHT･MID･TRIM

IIF･SWITCH･CHOOSE

15.

プロシージャの呼び出しに関する説明として、選択肢の中から適切なものを１つ解答しなさい。

Subプロシージャは戻り値を使わないためCallで呼び出し、Functionプロシージャは戻り値を変数などに代入する形で呼び出す。

Callを省略してSubプロシージャを呼び出すときは、引数をカッコで囲む必要がある。

Subプロシージャを呼び出すCallステートメントは省略できず、呼び出しでは必ず記述しなければならない。

他のプロシージャから呼び出される側のプロシージャを「親プロシージャ」と呼ぶ。

16.

変数を引数として渡すときの値渡しと参照渡しに関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

値渡しは変数をそのまま渡すため、呼び出し先での変更が呼び出し元の変数にも反映される。

呼び出し先の引数に ByVal を指定すると値渡し、ByRef を指定すると参照渡しになるが、そのどちらも省略した場合は値渡しとなり、呼び出し先で引数の値を変更しても呼び出し元の変数には影響しない。

引数として渡す変数名と、受け取る側の引数名は、必ず同じ名前にしなければならない。

呼び出し先の引数にByValを指定すると値渡し、ByRefを指定すると参照渡しになり、どちらも省略した場合は参照渡しになる。また、渡す変数名と受け取る側の引数名は同じである必要はない。

17.

次のコードは、TextStreamオブジェクトに「Access」を書き込み、続けて改行文字を1つ書き込んでから、「VBA」を改行付きで書き込み、最後にTextStreamオブジェクを閉じる処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim ts As TextStream

　　Dim strpath As String

　　strpath = CurrentProject.Path & "￥a.txt"

　　Set ts = fso.CreateTextFile(strpath, True)

　　ts.【　①　】 "Access"

　　ts.WriteBlankLines 1

　　ts.WriteLine "VBA"

　　ts.【　②　】

　　Set fso = Nothing

　　Set ts = Nothing

　　MsgBox "完了"

End Sub

【　①　】−WriteLine　【　②　】−Close

【　①　】−Write　【　②　】−Delete

【　①　】−Write　【　②　】−Close

【　①　】−WriteBlankLines　【　②　】−Close

18.

次のプロシージャを実行し、ダイアログボックスに「36」と入力したときに表示されるメッセージとして最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = InputBox("値を入力")

　　If IsNumeric(N) Then

　　　　If N = Int(N) Then

　　　　　　If N > 0 Then

　　　　　　　　MsgBox "正の整数"

　　　　　　ElseIf N = 0 Then

　　　　　　　　MsgBox "ゼロ"

　　　　　　Else

　　　　　　　　MsgBox "負の整数"

　　　　　　End If

　　　　Else

　　　　　　MsgBox "小数"

　　　　End If

　　Else

　　　　MsgBox "数値ではない"

　　End If

End Sub

「小数」と表示される。

「正の整数」と表示される。

「ゼロ」と表示される。

「数値ではない」と表示される。

19.

次のコードは、テキストファイルからTextStreamオブジェクトを取得し上書きするものである。

以下の空欄に入る適切な語句を解答しなさい。
　Dim ts As Object

　Set ts = fso. ("C:￥Data￥Data1.txt", )

　ts.Write "VBA"

　ts.Close

　　Set fso = Nothing

　　Set ts = Nothing

　MsgBox "完了"

End Sub

20.

モジュールとプロシージャに関する説明として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

モジュールには標準モジュールの1種類しかなく、フォームやレポートに紐づくモジュールというものは存在しない。利用者はどのモジュールも制限なく自由に作成・削除できる。

プロシージャはプログラムを組み立てる最小の部品であり、必ずいずれかのモジュールの中に書かれる。モジュールはその部品を収める入れ物にあたる。

1本のプログラムは、必ずちょうど1つのプロシージャだけで成り立つ。

プロシージャは、モジュールに属さず単独で記述することもできる。

21.

DriveTypeプロパティが返す数値と、その数値が表すドライブの種類の組み合わせとして正しいものはどれか。以下の選択肢より1つ解答しなさい。

0 − 不明

1 − ハードディスク

3 − CD-ROM

5 − ネットワークドライブ

22.

次のコードは、Exam1 から Exam2 を呼び出している。Exam2 の途中で、すべてのコードの実行を強制終了し、同時にすべての変数を初期化したい。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Call Exam2

　　MsgBox "完了"

End Sub

Sub Exam2()

　　Dim N As Long

　　N = "123"

　　

End Sub

23.

Access 2016でADOを利用するために、参照設定ダイアログボックスで有効にするライブラリとして最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

Microsoft Office xx.x Access database engine Object Library

Microsoft Access xx.x Object Library

Microsoft Scripting Runtime

Microsoft ActiveX Data Objects x.x Library

24.

次のコードは、レコードセットの先頭から最終レコードまでレコードが1件も無いかどうかを判定するものである。
以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = conn.Execute("SELECT * FROM [Table Product3]")

　If rst. And rst. Then

　MsgBox "レコードがありません"

　End If

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

25.

ADOのExcelブックの接続において次の条件において、接続文字列の空欄に入る適切な語句を解答しなさい。

先頭行をフィールド名として扱う場合

Extended Properties='Excel 12.0;HDR= '

先頭行をデータとして扱う場合

Extended Properties='Excel 12.0;HDR= '

26.

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

正規化とは、テーブルの繰り返し項目を複数のテーブルに分割し、できるだけ単純に管理できるようにする手法で、一般に第1正規化から第3正規化までの3段階がある。

正規化とは、複数のテーブルに分かれたデータを1つのテーブルに集約し、まとめて管理する手法である。

正規化を行うと、繰り返し項目が増えるため、データベースのサイズは大きくなる。

正規化の手順では、はじめに繰り返し項目をまとめる第3正規化を行い、続いて第2正規化、最後に第1正規化を行うという順序で、段階を追って上位の正規形から下位の正規形へと進めていく。

27.

次のコードは、[Table Product3]から、IDのT100に続く5文字目が「1」または「5」であるレコードを抽出するものである。

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

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID Like 'T100【　① 】;"

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

　　DoCmd.OpenQuery "Query1"

MsgBox "完了"

End Sub

#15

(15)

[15]

{15}

28.

DAOの説明として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

DAOはADOの新しいバージョンである。

Access以外のさまざまなデータベースを共通の方法で操作するための汎用的なライブラリである。

AccessのJetデータベースエンジンに直接接続するライブラリで、テーブルやクエリを作成する機能を持つ。

DAOはテーブルやクエリを作成する機能を持たない。

29.

テキストボックス「txt1」で、数字キー以外が押されたときに入力を無効にするコードである。

空欄に入る適切な語句を解答しなさい。

Private Sub txt1_KeyPress(KeyAscii As Integer)

　　　　If KeyAscii < ("0") Or KeyAscii > 「左記空欄と同じ」("9") Then

　　　　KeyAscii =

　　　MsgBox ("0から9数字以外は入力できません")

　　End If

End Sub

30.

次のコードは、実行時バインディングでFileSystemObjectのオブジェクトを生成するものである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim fso As

　　Set fso = ("Scripting.FileSystemObject")

　　Set fso = Nothing

　MsgBox "完了"

End Sub

31.

次のコードは、トランザクション中にエラーが発生した場合に、変更をすべて取り消すものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　On Error GoTo ErrHandler

　　conn.BeginTrans

　　conn.Execute "UPDATE [Table Product1] SET Price = 0"

　　conn.CommitTrans

　　MsgBox "完了"

　　Exit Sub

ErrHandler:

　　conn.

　　MsgBox "取り消しました"

End Sub

32.

インデックスやデータベースの正規化を効果的に活用した高速化の説明として、適切なもの以下の選択肢より2つ解答しなさい。

正規化をやめてすべてのデータを1つの巨大なテーブルにまとめる。

インデックスは多ければ多いほど、更新も含めてすべての処理が速くなる。

検索や並べ替えの条件、集計関数の引数に使うフィールドにインデックスを設定すると高速化が図れる。

適切な正規化、主キーの適切な設定、不要なインデックスの削除などを組み合わせて行う。

33.

配列や配列変数の宣言に関する説明として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

配列のインデックス番号は通常1から始まるため、要素数が5の一次元配列は「Dim 変数(5) As データ型」の形で宣言し、1つ目の要素のインデックス番号は1、最後の要素のインデックス番号は5になる。

配列は最大でも二次元までしか宣言できず、三次元以上の配列を作ることはできない。

配列変数は「Dim 変数(要素数−1) As データ型」の形で宣言する。インデックス番号は通常0から始まるため、要素数が5の一次元配列は「Dim 変数(4) As データ型」と宣言する。

一次元配列のことを多次元配列と呼び、二次元以上の配列や、配列を持つ変数のことを配列変数と呼ぶ。

34.

テーブルを内部結合するときの「結合フィールド」に関する説明として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

結合フィールドは、2つのテーブルでまったく同じ名前でなければならない。

フィールド名は同じでなくてもよいが、データ型や種類は一致している必要がある。

結合には必ず主キー同士を使わなければならない。

データ型が違っていても、名前さえ同じなら結合できる。

35.

以下のコードはオプションボタン選択し結果を反映したレコードがサブフォームに表示されるコードです。

ボタンのコントロール名は左からopt1～opt4と設定してあります。

コードの意図通り実行できるように以下の空欄に入る適切な語句を解答しなさい。

Private Sub frm1_AfterUpdate()

　　DoCmd.Echo False

　　Me.sub1.Form. = False

　　Select Case Me.frm1.Value

　　Case Me.opt1.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeA'"

　　Case Me.opt2.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeB'"

　　Case Me.opt3.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeC'"

　　Case Me.opt4.OptionValue

　　　　Me.sub1.Form.Filter = ""

　　End Select

　　Me.sub1.Form.「上記空欄と同じ」 = True

　　DoCmd.Echo True

End Sub

36.

登録用フォーム「form_add」には、No 欄と Product Name 欄があり、Product Name 欄に次のコードが記述されている。

No 欄には値（例：T1006）が入っており、Product Name 欄は空である。

Product Name 欄にカーソルを置いた状態で、Esc キーを押した。このときの結果として適切なものはどれか。以下の選択肢より1つ解答しなさい。

Private Sub Product_Name_KeyPress(KeyAscii As Integer)

　　If KeyAscii <> 27 Then Exit Sub

　　DoCmd.Close acForm, Me.Name

End Sub

何も起こらず、そのまま入力を続けられる。

form_add が閉じる。

Product Name に「27」という文字が入力される。

「T1006」が Table Product1 に登録される。

37.

次のコードは、ユーザー定義型 MeType を定義し、その変数 MeRec に値を設定して別のプロシージャに渡すものである。ユーザー定義型の定義を開始する行と、定義を終了する行の空欄に入る適切な語句とコードを解答しなさい。

宣言セクション

MeType

　　N As String

　　M As Long

　　D As Date

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub Exam1()

　　Dim MeRec As MeType

　　MeRec.N = "VBA"

　　MeRec.M = 5000

　　MeRec.D = #4/1/2020#

　　Call Exam2(MeRec)

　　MsgBox "完了"

End Sub

Sub Exam2(ByRef MeRec As MeType)

　　Debug.Print MeRec.D & MeRec.N & MeRec.M

End Sub

38.

Visual Basic Editor（VBE）の呼び出し履歴の概要として、適切なものを以下の選択肢より1つ解答しなさい。

呼び出し履歴は例えば、プロシージャーの中でCallステートメント等で実行された時点でコードを中断させて表示する機能である。

呼び出し履歴の一覧では、上にあるほど古い呼び出し履歴になる。

プロシージャの実行を中断した際、どの順番に呼び出されたか履歴を確認でき、一覧では上にあるほど新しい呼び出し履歴になる。

呼び出し履歴はプロシージャが正常終了した後にのみ確認でき、実行中断時には確認できない。

39.

次の「Exam1」プロシージャを実行したとき、イミディエイトウィンドウに出力される内容について選択肢の中から適切なものを１つ解答しなさい。

宣言セクション

Type MeType

　　N As String

　　M As Long

　　D As Date

End Type
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub Exam1()

　　Dim MeRec As MeType

　　MeRec.N = "VBA"

　　MeRec.M = 5000

　　MeRec.D = #4/1/2020#

　　Call Exam2(MeRec)

　　MsgBox "完了"

End Sub

Sub Exam2(ByRef MeRec As MeType)

　　Debug.Print MeRec.D & MeRec.N & MeRec.M

End Sub

何も出力されない。ユーザー定義型の変数は引数として渡せず、エラーになるため。

2020/04/01VBA5000

VBA5000

2020/04/01

40.

次のコードは、[Table Sports1]の先頭レコードのPriceを15000に変更し、その変更をテーブルに反映するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Fields("Price").Value = 15000

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub