【カテゴリー別】Access VBA スタンダード模擬問題コンポーネントファイルの操作　

こちらはカテゴリー別の模擬問題です。

合計56問が、システムに登録した順番に1問1答形式で出題されます。

タイマー機能やランダム機能はありません。

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

1.

外部オブジェクトを参照する「事前バインディング」と「実行時バインディング（遅延バインディング）」の違いに関する説明として、最も適切なものを1つ選びなさい。

実行時バインディングは、利用したいライブラリの固有オブジェクト型で変数を宣言する。

実行時バインディングは参照設定が必要で、自動メンバ表示やコンパイル時のエラーチェックが使える。

事前バインディングは参照設定で型をあらかじめ選択するため実行が速く、自動メンバ表示やコンパイル時のエラーチェックが使える。

事前バインディングはObject型で宣言し、実行時に型が解釈されるため実行速度が速い。

2.

次のコードは、事前バインディングでExcelアプリケーションのオブジェクトを生成するものである。

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

Sub Exam1()

　　Dim obt As Excel.Application

　　Set obt = Excel.Application

　MsgBox "完了"

End Sub

3.

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

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

Sub Exam1()

　　Dim fso As

　　Set fso = ("Scripting.FileSystemObject")

　MsgBox "完了"

End Sub

4.

次のコードは、使用し終えたオブジェクト変数の参照を明示的に解放するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set fso =

　MsgBox "完了"

End Sub

5.

次のコードは、カレントデータベースが保存されているフォルダーのパスを取得し、取得したパスをメッセージで表示するものである。

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

Sub Exam1()

　　Dim pt As String

　　pt = CurrentProject.

　　MsgBox pt

End Sub

6.

次のコードは、カレントデータベースのファイル名を取得しメッセージで表示するものである。

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

Sub Exam1()

　　Dim dbs As String

　　dbs = CurrentProject.

　MsgBox dbs

End Sub

7.

次のコードを実行したとき、メッセージボックスに表示される内容として最も適切なものを1つ選びなさい。

Sub Exam1()

　　MsgBox CurrentDb.Name

End Sub

カレントデータベースの完全なパスとファイル名（例：C:￥data￥1.accdb）

カレントデータベースのファイル名のみ（例：1.accdb）

カレントデータベース内の先頭のテーブル名

カレントデータベースが保存されているフォルダーのパスのみ（例：C:￥data）

8.

次のコードは、参照設定「Microsoft Scripting Runtime」を行いFileSystemObjectを事前バインディングで生成するものである。

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

Sub Exam1()

　　Dim fso As FileSystemObject

　　If fso.FileExists("C:￥Data￥Sample.txt") Then MsgBox "あり"

End Sub

9.

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

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.")

　MsgBox "完了"

End Sub

10.

次のコードは、「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

11.

次のコードは、新しいフォルダーを作成するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　fso. "C:￥NewFolder"

　MsgBox "完了"

End Sub

12.

次のコードは、「C:￥Data」フォルダが存在するかどうかを調べ、存在する場合はさらにその中の「data1.txt」が存在するかどうかを調べて、結果を表示する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　If fso.("C:￥Data") Then

　　　　If fso.("C:￥test￥data1.txt") Then

　　　　　　Debug.Print "ファイルがあります"

　　　　End If

　　End If

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

13.

次のコードは、「C:￥Data」フォルダを「C:￥Data2」という名前でコピーし、続けて「C:￥Data￥data1.txt」を「C:￥Data2」の中へファイル名変え移動する処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　fso. "C:￥Data", "C:￥Data2"

　　fso. "C:￥Data￥data1.txt", "C:￥Data2￥data2.txt"

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

14.

次のコードは、ファイルを別の場所へコピーするものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　 fso. "C:￥Data￥a.txt", "C:￥Data￥b.txt"

　MsgBox "完了"

End Sub

15.

次のコードは、指定したドライブの情報を扱うDriveオブジェクトを取得しメッセージで表示するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim drv As Object

　　Set drv = fso.("C:")

　MsgBox drv

End Sub

16.

次のコードは、パソコンで利用できるすべてのドライブを順に調べ、使用できる状態のドライブについてのみ、そのパスを表示する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim drv As Drive

　　For Each drv In fso.

　　　　If drv. Then

　　　　　　Debug.Print drv.Path

　　　　End If

　　Next

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

17.

次のコードは、Cドライブの総容量と、「C:￥test」フォルダに含まれるファイルやサブフォルダの合計サイズを、それぞれバイト単位で表示する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim drv As Drive

　　Dim fld As Folder

　　Set drv = fso.GetDrive("C:")

　　Debug.Print drv.

　　Set fld = fso.GetFolder("C:￥Data")

　　Debug.Print fld.

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

18.

次のコードは、ドライブの空き容量を取得するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim drv As Object

　　Set drv = fso.GetDrive("C:")

　　MsgBox drv.

End Sub

19.

次のコードは、指定したフォルダーを扱うFolderオブジェクトを取得するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim fld As Object

　　Set fld = fso.("C:￥Data")

　MsgBox fld

End Sub

20.

次のコードは、「C:￥test」フォルダの中にあるすべてのサブフォルダについて、その名前と最後に更新された日時を順に表示する処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim fld As Folder

　　Dim sub_fld As Folder

　　Set fld = fso.GetFolder("C:￥Data")

　　For Each sub_fld In fld.

　　　　Debug.Print sub_fld.Name, sub_fld.

　　Next

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

21.

次のコードは、指定したファイルを扱うFileオブジェクトを取得するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim fl As Object

　　Set fl = fso.("C:￥Data￥a.txt")

　MsgBox fl

End Sub

22.

次のコードは、「C:￥Data￥a.txt」というファイルについて、作成された日時とファイルの種類を表示する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim fil As File

　　Set fil = fso.GetFile("C:￥Data￥a.txt")

　　Debug.Print fil.

　　Debug.Print fil.

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

23.

次のコードは、「C:￥Data￥a.txt」の属性を表示したうえで、そのファイル自身から直接テキストの読み取り用のストリームを取得し、1行目を読み取って表示する処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim fil As File

　　Dim ts As TextStream

　　Set fil = fso.GetFile("C:￥Data￥a.txt")

　　Debug.Print fil.

　　Set ts = fil.(ForReading)

　　Debug.Print ts.ReadLine

　　ts.Close

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

24.

次のコードは、フォルダー内のすべてのファイルを1つずつ処理するものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim fld As Object, f As Object

　　Set fld = fso.GetFolder("C:￥Data")

　　For Each f In fld.

　　　　Debug.Print f.Name

　　Next f

　MsgBox "完了"

End Sub

25.

次のコードは、取得したFileオブジェクト自身を使ってファイルをコピーするものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim fl As Object

　　Set fl = fso.GetFile(C:￥Data￥a.txt")

　　fl. "C:￥Data2￥a.txt"

　MsgBox "完了"

End Sub

26.

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

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim ts As Object

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

MsgBox "完了"

End Sub

27.

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

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

Sub Exam1()

　Dim fso As Object

　Set fso = CreateObject("Scripting.FileSystemObject")

　Dim ts As Object

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

　ts.Write "VBA"

　ts.Close

　MsgBox "完了"

End Sub

28.

次のコードは、取得したフォルダをそのオブジェクト自身の操作で削除、続けて取得したフォルダを別の場所のフォルダへ移動する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim fld As Folder

　　Set fld = fso.GetFolder("C:￥Data￥old")

　　fld.

　　Set fld = fso.GetFolder("C:￥Data￥work")

　　fld. "C:￥backup￥work"

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

29.

次のコードは、テキストファイルを読み取り専用で開くものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim ts As Object

　　Set ts = fso.OpenTextFile("C:￥a.txt", )

MsgBox "完了"

End Sub

30.

次のコードは、既存のテキストファイルの末尾に追記する形で開くものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim ts As Object

　　Set ts = fso.OpenTextFile("C:\a.txt", )

MsgBox "完了"

End Sub

31.

次のコードは、カレントデータベースと同じフォルダに「a.txt」というテキストファイルを作成し、1行分の文字を書き込む処理である。なお、実行前の時点で、同じ場所に「a.txt」がすでに存在しているものとする。

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

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, False)

　　ts.WriteLine "ABC"

　　ts.Close

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

既存の「test.txt」の末尾に「ABC」が追加で書き込まれる。

実行時エラーが発生し、既存の「test.txt」は変更されない。

既存の「test.txt」が破棄され、「ABC」だけが書き込まれた新しいファイルに置き換わる。

エラーも書き込みも起こらず、そのまま正常終了する。

32.

次のコードは、カレントデータベースと同じフォルダにある「a.txt」を開いて文字を書き込み、そのあと同じファイルを読み取って内容を表示する処理である。なお、実行前の「a.txt」には「ABC」という1行だけが書かれているものとする。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim ts As TextStream

　　Dim strpath As String

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

　　Set ts = fso.OpenTextFile(strpath, ForWriting)

　　ts.WriteLine "DEF"

　　ts.Close

　　Set ts = fso.OpenTextFile(strpath, ForReading)

　　MsgBox ts.ReadAll

　　ts.Close

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

ABCDEF

ABC と DEF が2行に分かれて表示される。

ABC

DEF

33.

次のコードは、テキストファイルを1行ずつ最後まで読み取り、イミディエイトウィンドウに出力する処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim ts As TextStream

　　Dim strpath As String

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

　　Set ts = fso.OpenTextFile(strpath, ForReading)

　　Do Until ts.【　①　】

　　　　Debug.Print ts.ReadLine

　　Loop

　　ts.Close

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

AtEndOfStream

AtEndOfLine

Column

Line

34.

次のコードは、テキストファイルの1行目を読み飛ばしたうえで、2行目の先頭から3文字だけを取り出して表示する処理である。

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

Sub Exam1()

　　Dim fso As New FileSystemObject

　　Dim ts As TextStream

　　Dim strpath As String

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

　　Set ts = fso.OpenTextFile(strpath, ForReading)

　　ts.【　①　】

　　MsgBox ts.【　②　】(3)

　　ts.Close

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

【　①　】−SkipLine　【　②　】−Read

【　①　】−SkipLine　【　②　】−ReadAll

【　①　】−Skip　【　②　】−ReadLine

【　①　】−ReadLine　【　②　】−ReadAll

35.

次のコードは、テキストファイルに改行を付けずに「ABC」を書き込み、続けて改行を1つ書き込んでから、「DEF」を改行付きで書き込み、最後にファイルを閉じる処理である。

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

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.【　①　】 "ABC"

　　ts.WriteBlankLines 1

　　ts.WriteLine "DEF"

　　ts.【　②　】

　　Set fso = Nothing

　　MsgBox "完了"

End Sub

【　①　】−WriteLine　【　②　】−Close

【　①　】−Write　【　②　】−Close

【　①　】−Write　【　②　】−Delete

【　①　】−WriteBlankLines　【　②　】−Close

36.

次のコードは、開いたテキストファイルに、改行付きで1行書き込むものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim ts As Object

　　Set ts = fso.CreateTextFile("C:￥new.txt")

　　ts. "1行目のデータ"

　　ts.Close

MsgBox "完了"

End Sub

37.

次のコードは、開いたテキストファイルから1行分を読み取るものである。

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

Sub Exam1()

　　Dim fso As Object

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Dim ts As Object, s As String

　　Set ts = fso.OpenTextFile("C:￥a.txt", ForReading)

　　s = ts.

　　ts.Close

MsgBox "完了"

End Sub

38.

次のコードは、ファイルを選択するダイアログを表示するためにFileDialogを取得するものである。

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

Sub Exam1()

　　Dim fd As Object

　　Set fd = Application.FileDialog()

MsgBox "完了"

End Sub

39.

FileDialogの次のコードで、ユーザーがファイルを選択して[OK]をクリックしたときのShowメソッドの戻り値と分岐として、正しい説明を1つ選びなさい。

Sub Exam1()

　　Dim fd As Object

　　Set fd = Application.FileDialog(msoFileDialogFilePicker)

　　If fd.Show = -1 Then MsgBox fd.SelectedItems(1)

End Sub

Showは、選択して実行すると-1（True）、キャンセルすると0（False）を返す。

Showは、選択されたファイルのパス文字列を返す。

Showは、選択して実行すると0、キャンセルすると-1を返す。

Showは、選択されたファイルの個数を返す。

40.

次のコードは、ファイルを選択するダイアログボックスについて、実行ボタンに表示する文字列と、開いたときに最初に選ばれているファイルの種類を設定する処理である。

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

Sub Exam1()

　　Dim dlg As FileDialog

　　Set dlg = Application.FileDialog(msoFileDialogFilePicker)

　　dlg.Title = "ファイルの選択"

　　dlg.【　①　】 = "取り込む"

　　dlg.InitialFileName = CurrentProject.Path

　　dlg.Filters.Clear

　　dlg.Filters.Add "テキストファイル", "*.txt", 1

　　dlg.Filters.Add "すべてのファイル", "*.*", 2

　　dlg.【　②　】 = 2

　　If dlg.Show Then

　　　　Debug.Print dlg.SelectedItems(1)

　　End If

　　Set dlg = Nothing

　　MsgBox "完了"

End Sub

【　①　】−Title　【　②　】−FilterIndex

【　①　】−InitialFileName　【　②　】−FilterIndex

【　①　】−ButtonName　【　②　】−Filters

【　①　】−ButtonName　【　②　】−FilterIndex

41.

次のコードは、ファイルを選択するダイアログボックスに「ファイルを選択してください」というタイトルを表示し、複数のファイルを同時に選択できるようにしたうえで、選択されたすべてのファイルのパスを表示する処理である。

空欄に入る語句を、上から順に解答しなさい。

Sub Exam1()

　　Dim dlg As FileDialog

　　Dim N As Variant

　　Set dlg = Application.FileDialog(msoFileDialogFilePicker)

　　dlg. = "ファイルを選択してください"

　　dlg. = True

　　If dlg.Show Then

　　　　For Each N In dlg.SelectedItems

　　　　　　Debug.Print N

　　　　Next

　　End If

　　Set dlg = Nothing

　　MsgBox "完了"

End Sub

42.

次のコードは、ファイルを選択するダイアログボックスを、ファイルの詳細情報を並べた形式で表示する処理である。

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

Sub Exam1()

　　Dim dlg As FileDialog

　　Set dlg = Application.FileDialog(msoFileDialogFilePicker)

　　dlg.Title = "ファイルの選択"

　　dlg.【　①　】 = 【　②　】

　　If dlg.Show Then

　　　　Debug.Print dlg.SelectedItems(1)

　　End If

　　Set dlg = Nothing

　　MsgBox "完了"

End Sub

【　①　】−InitialFileName　【　②　】−msoFileDialogViewDetails

【　①　】−InitialView　【　②　】−msoFileDialogViewProperties

【　①　】−InitialView　【　②　】−msoFileDialogViewList

【　①　】−InitialView　【　②　】−msoFileDialogViewDetails

43.

次のコードは、ファイルを選択するダイアログボックスを、ファイルを大きいアイコンで並べた形式で表示する処理である。

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

Sub Exam1()

　　Dim dlg As FileDialog

　　Set dlg = Application.FileDialog(msoFileDialogFilePicker)

　　dlg.Title = "画像ファイルの選択"

　　dlg.InitialView = 【　①　】

　　If dlg.Show Then

　　　　Debug.Print dlg.SelectedItems(1)

　　End If

　　Set dlg = Nothing

　　MsgBox "完了"

End Sub

msoFileDialogViewPreview

msoFileDialogViewThumbnail

msoFileDialogViewSmallIcons

msoFileDialogViewLargeIcons

44.

次のコードは、ダイアログで選択されたファイルのパスを取得するものである。

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

Sub Exam1()

　　Dim fd As Object

　　Set fd = Application.FileDialog(msoFileDialogFilePicker)

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

End Sub

45.

次のコードは、Shell.Applicationを使ってフォルダー選択ダイアログを表示するものである。

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

Sub Exam1()

　　Dim sh As Object, fol As Object

　　Set sh = CreateObject("Shell.Application")

　　Set fol = sh.(0, "フォルダを選択してください", 0)

MsgBox "完了"

End Sub

46.

OLE（OLEオートメーション）に関する説明として、最も適切なものを1つ選びなさい。

OLEはファイルを圧縮して保存するための形式である。

OLEはObject Linking and Embeddingの略で、あるアプリケーションから他のアプリケーションのオブジェクトを操作する仕組みである。

OLEはデータベース専用の接続方式で、Access以外のアプリケーションでは使えない。

OLEはOnline Editionの略で、Webサービスと連携するための仕組みである。

47.

OLEオートメーションでAccessからExcelを操作する場合の「オートメーションサーバ」と「オートメーションクライアント」の組み合わせとして正しいものを1つ選びなさい。

ExcelもAccessも、どちらもサーバである。

サーバ・クライアントの区別はOLEオートメーションには存在しない。

操作される側のExcelがサーバ、操作する側のAccessがクライアントである。

操作する側のAccessがサーバ、操作される側のExcelがクライアントである。

48.

次のコードは、参照設定でMicrosoft Excel Object Libraryを有効にし、事前バインディングでExcelアプリケーションを生成するものである。

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

Sub Exam1()

　　Dim xl As New

　　xl.Visible = True

MsgBox "完了"

End Sub

49.

次のコードは、操作し終えたExcelアプリケーションを終了するものである。

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

Sub Exam1()

　　Dim xl As Object

　　Set xl = CreateObject("Excel.Application")

　　xl.

　　Set xl = Nothing

MsgBox "完了"

End Sub

50.

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

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

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

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

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

51.

VBAの高速化の基本的な考え方に関する説明として、最も適切なものを1つ選びなさい。

高速化は、コードの行数をできるだけ減らすことだけで達成できる。

高速化とは、コンピューターのメモリを増設することを指す。

高速化のためには、必ずすべての変数をVariant型で宣言する。

高速化には「できる限り無駄な処理を行わない」ことと「より処理速度の速い方法を選ぶ」ことの2つのアプローチがある。

52.

処理の高速化の観点から、事前バインディングと実行時バインディングを比較した説明として、最も適切なものを1つ選びなさい。

どちらのバインディングでも処理速度に差はない。

事前バインディングは実行前に型が確定するため、実行時バインディングより高速に動作する。

実行時バインディングのほうが常に高速である。

事前バインディングは参照設定が不要な分だけ高速である。

53.

次のコードは、目的の値が見つかった時点で、それ以上不要な繰り返しを途中で抜けるものである。

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

Sub Exam1()

　　Dim i As Long

　　For i = 1 To 1000

　　　　If i = 500 Then

　　Next i

MsgBox "完了"

End Sub

54.

次のコードは、[Table Product1]からIDが"T1005"のProduct Nameを取得して表示するものである。同じ取得をDLookup関数で行う場合と比べたときの、動作と処理速度の説明として最も適切なものを1つ選びなさい。

Sub Exam1()

　　Dim rst As DAO.Recordset

　　Dim strSQL As String

　　strSQL = "SELECT [Product Name] FROM [Table Product1] WHERE ID = 'T1005'"

　　Set rst = CurrentDb.OpenRecordset(strSQL)

　　MsgBox rst.Fields("Product Name")

　　rst.Close

End Sub

DLookup関数で取得する場合と結果は同じだが、この方法の方が処理は遅い。

DLookup関数では1件しか取得できないため、この方法とは結果が異なる。

どちらの方法でも、結果・速度に違いはない。

DLookup関数で取得する場合と結果は同じで、この方法（SQL＋Recordset）の方が高速に処理できる。

55.

次のコードは、[Table Sports1]に新しいレコードを1件追加するものである。同じ追加を「INSERT文をExecuteメソッドで実行する方法」と比べたときの、動作と処理速度の説明として最も適切なものを1つ選びなさい。

Sub Exam1()

　　Dim rst As DAO.Recordset

　　Set rst = CurrentDb.OpenRecordset("Table Sports1")

　　rst.AddNew

　　　　rst.Fields("Name of sport") = "Curling"

　　　　rst.Fields("Price") = 1200

　　rst.Update

　　rst.Close

End Sub

Execute方式の方が常に高速である。

INSERT文をExecuteで実行する場合と結果は同じで、特に繰り返し追加する場合はこのAddNew方式の方が高速である。

どちらの方法でも、結果・速度に違いはない。

AddNew方式ではレコードを追加できず、結果が異なる。

56.

VBAの高速化と可読性（読みやすさ・保守性）の関係に関する説明として、最も適切なものを1つ選びなさい。

高速化は重要だが、コンピューターの性能が十分な場合は、過度な高速化よりも可読性や保守性を優先すべき場面もある。

高速化と可読性は無関係で、両立を考える必要はない。

可読性を犠牲にしてでも、常に最大限の高速化を最優先すべきである。

変数の型はすべて省略したほうが、高速で読みやすくなる。