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

制限時間は60分です。

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

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

1.

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

Sub Exam1()

　　Debug.Print Fun1("VBA", 3)

　　MsgBox "完了"

End Sub

Function Fun1(MeStr As String, MeLng As Long) As String

　　Dim i As Long

　　Dim N As String

　　For i = 1 To MeLng

　　　　N = N & MeStr

　　Next i

　　Fun1 = N

End Function

VBA が1行だけ出力される。

繰り返し回数の 3 が出力される。

VBA が縦に3行出力される（1行目：VBA／2行目：VBA／3行目：VBA）

VBAVBAVBA と、改行されずに1行で出力される。

2.

メインフォーム「form1」には、サブフォームコントロール「sub1」が配置されている。対象オブジェクト自身のモジュールであるform1 のフォームモジュールから、sub1 に表示されているサブフォームそのものを参照したい。

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

Me.sub1

Forms("form1").sub1.Form

Me.Form.sub1

Me.sub1.Form

3.

ADOのRecordsetでFindメソッドを使ってレコードを検索する方法に関する説明として、正しいものを次の選択肢の中から1つ選び解答しなさい。

条件を満たすレコードが複数見つかった場合は、最後に見つかったレコードがカレントレコードになる。

カーソルタイプが前方スクロールカーソルのレコードセットでFindメソッドを使用しても、エラーは発生しない。

Findメソッドの引数「検索条件」には、And 演算子や Or 演算子を使って複数の条件式を自由に組み合わせて指定でき、一度の検索で複数の項目にまたがる複雑な条件を指定することができる。

検索方向を指定する引数にadSearchForwardを指定すると最終レコードへ向かって、adSearchBackwardを指定すると先頭レコードへ向かって検索する。

4.

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

Sub Exam1()

　　Dim N As Integer

　　On Error GoTo ErrHandler

　　N = 8 / 4

　　MsgBox N

　　On Error GoTo 0

　　N = 8 / 0

　　Exit Sub

ErrHandler:

　　MsgBox Err.Description

End Sub

メッセージボックスに「2」が表示された後、0除算エラーは無視され、そのままコードの実行が正常に終了する。

最初から実行時エラーが発生し、メッセージボックスは何も表示されない。

メッセージボックスに「2」が表示された後、0除算による実行時エラーのダイアログボックスが表示され、中断モードになる。

メッセージボックスに「2」が表示された後、行ラベル ErrHandler へ移動し、エラーの情報がメッセージボックスに表示される。

5.

次のコードは、コンボボックス「cmda」に1列目のNoを入力しリストにない値が入力されたとき、確認して「form_add」フォームで新規登録する処理である。

なおNoはコンボボックス1列目の列名、Table Product1はコンボボックス2列目の列名のことである。

空欄①②③に入る語句の組み合わせとして正しいものはどれか。以下の選択肢より1つ解答しなさい。

Private Sub cmda_NotInList(NewData As String, Response As Integer)

　　Dim N As Integer

　　N = MsgBox("データを登録しますか?", vbYesNoCancel)

　　Select Case N

　　Case vbYes

　　　　DoCmd.OpenForm "form_add", , , , 【　①　】, acDialog, NewData

　　Case vbNo

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　　　Exit Sub

　　Case vbCancel

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　　　Exit Sub

　　End Select

　　If 【　②　】("[No]", "Table Product1", "[No] = '" & NewData & "'") <> 0 Then

　　　　Response = acDataErrAdded

　　Else

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　End If

End Sub

① acFormAdd　② DCount　③ Undo

① acFormAdd　② DCount　③ Requery

① acFormEdit　② DCount　③ Undo

① acFormAdd　② DLookup　③ Undo

6.

次のコードは、レコードを更新するために、ロックタイプに共有的ロックを指定するものである。

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

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = New ADODB.Recordset

　rst.CursorType = adOpenKeyset

　rst. =

　rst.Open "[Table Product1]", conn

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

　rst.Update

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

7.

次のコードは、取得した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"

　　Set fso = Nothing

　　Set fl = Nothing

　MsgBox "完了"

End Sub

8.

次のコードは、画面の表示を最新の状態にするものである。以下の空欄に入る適切な語句を解答しなさい。

　　Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

9.

form5 のボタンを押すと form6 が開き、押したボタンの名前が form6 のテキストボックスに表示される次の2つのコードは、それぞれ form5 と form6 に記述されています。

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

［form5：btn1のクリック時］

Private Sub btn1_Click()

　　DoCmd.OpenForm "form6", , , , , acDialog, Screen.ActiveControl.Name

End Sub

［form6：開く時］

Private Sub Form_Open(Cancel As Integer)

　　Me.txt1.Value = "[" & Me. & "] ボタンより開かれました"

End Sub

10.

フォームのテキストボックス「txta」に、次のコードが記述されている。

form1 をフォームビューで開き、txta に「123１２３」（前半は半角、後半は全角）と入力して Enter キーを押した。このとき lbla に表示される内容として正しいものはどれか。

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

Private Sub txta_BeforeUpdate(Cancel As Integer)

　　If LenB(Me.txta.Value) <> LenB(StrConv(Me.txta.Value, vbFromUnicode)) Then

　　　　Me.lbla.Caption = "半角"

　　Else

　　　　Me.lbla.Caption = "全角"

　　End If

End Sub

半角と全角が混在しているため「半角全角」と表示される。

「半角」と表示される。

半角と全角が混在しているため、何も表示されない。

「全角」と表示される。

11.

連鎖更新と連鎖削除に関する説明として、正しいものを1つ選びなさい。

連鎖更新を設定すると、一側テーブルのレコードを削除したとき、多側テーブルの関連レコードも自動的に削除される。

連鎖削除を設定すると、一側テーブルの主キーを変更したとき、多側テーブルの外部キーの値も自動的に更新される。

連鎖更新や連鎖削除を設定しても、参照整合性による制限は一切緩和されない。

連鎖更新を設定すると、一側テーブルの主キーを変更したとき、多側テーブルの外部キーの値も自動的に更新される。

12.

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

Sub Exam1()

　　Dim N(2) As String

　　Dim i As Long

　　For i = 0 To 2

　　　　N(i) = "VBA" & (i + 1)

　　Next i

　　Call Exam2(N)

　　MsgBox "完了"

End Sub

Sub Exam2(ByRef N() As String)

　　Dim j As Variant

　　For Each j In N

　　　　Debug.Print j

　　Next j

End Sub

VBA0／VBA1／VBA2 が縦に3行出力される。

VBA1／VBA2／VBA3 が縦に3行出力される。

VBA1 が1行だけ出力される。

配列は値渡しできないためエラーになり、何も出力されない。

13.

コードウィンドウに、次のように途中までコードを記述してEnterキーを押した。このとき発生するエラーについての説明として最も適切ものはどれか。

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

Sub Exam1()
　　Dim i As Long
　　For i = 1
　　　

For ステートメントに必要な「To」以降が記述されておらず、行の文法が誤っているため、記述中に発生するコンパイルエラーとなる。

「For i = 1」の行は構文としては誤っていないが、意図した繰り返し回数どおりに動作しないため、実行しても止まらず結果だけが異なる論理エラーになる。

行の文法は正しく、実行するまでエラーは検出されないため、実行時に発生するコンパイルエラーとなる。

処理が継続できなくなって発生するため、実行時エラーとなる。

14.

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

Sub Exam1()

　　Dim rst As DAO.Recordset

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

　　rst.AddNew

　　　　rst.Fields("No") = "D0002"

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

　　　　rst.Fields("Price") = 1200

　　rst.Update

　　rst.Close

　　Set rst = Nothing

End Sub

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

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

INSERT文をExecuteで実行する方法とは異なり、AddNew方式ではレコードを追加できないため、得られる結果も変わってくる。

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

15.

次のコードは、ADOのRecordsetを最終レコードから先頭レコードへ向かって1件ずつ処理し、最後にカレントレコードを先頭へ戻すものである。

最初の空欄には前のレコードに移動するメソッド、次の空欄には先頭レコードに移動するメソッドが入る。

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

Sub Exam1()

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

　Set conn = CurrentProject.Connection

　Set rst = New ADODB.Recordset

　rst.Open "SELECT * FROM [Table Sports1]", conn, adOpenStatic

　If Not rst.EOF Then

　rst.MoveLast

　Do Until rst.BOF

　Debug.Print rst.Fields(0)

　rst.

Loop

　rst.

End If

　rst.Close: conn.Close

　Set rst = Nothing: Set conn = Nothing

End Sub

16.

ADOでExcelブックまたはCSVファイルに接続し、Executeメソッドでレコードセットを抽出し取得する時、

接続文字列のExtended Propertiesにある「HDR」の設定によって、WHERE句でのフィールドの抽出指定方法が変わります。HDR=YES ならフィールド名で指定できるが、HDR=NO ではフィールド名が使えず、別の記述で指定する。

HDR=NO のとき1列目を指定した記述について、空欄に入るコードを解答しなさい。

＊前提：Excelのシート名は「VBA」、CSVはファイル名拡張子含めて「data.csv」、抽出条件に使うのは1列目のフィールドHDR=YES 時にはフィールド名はそれぞれ「data1」抽出する値は「100」とする。

・Excelブック

【HDR=YES の場合】

SELECT * FROM [VBA\$] WHERE data1 = 100

【HDR=NO の場合】

SELECT * FROM [VBA\$] WHERE = 100

・CSVファイル

【HDR=YES の場合】

SELECT * FROM data.csv WHERE data1 = 100

【HDR=NO の場合】

SELECT * FROM [data.csv] WHERE = 100

17.

次のコードは、CSVファイルが置かれたフォルダーに接続し、1行目を見出し行として、data.csvの全レコードを表示するものである。

このコードを実行するとどうなるか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

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

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

　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:￥data￥;Extended Properties='Text;HDR=Yes'"

　Set rst = conn.Execute("SELECT * FROM data.csv")

　Do Until rst.EOF

　　　Debug.Print rst.Fields(0).Value & "," & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & rst.Fields(4).Value

　　rst.MoveNext

　Loop

　rst.Close
　
　conn.Close

　Set rst = Nothing

　Set conn = Nothing

　MsgBox "完了"

End Sub

HDR=Yes を指定していても、data.csv の1行目の見出し行を含めたすべての行が、各行5つのフィールドをカンマ区切りにした形で1行ずつ表示される。

data.csvの2行目以降（見出し行を除く全データ行）が、各行5つのフィールドをカンマ区切りにした形で、1行ずつイミディエイトウィンドウに表示される。

先頭の1レコードだけが表示される。

エラーが発生し何も表示されない。

18.

次のコードは、ADOでカレントデータベースへ接続し、Connectionオブジェクトの接続状態を判定してメッセージに表示するものである。
以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = .Connection

　　Select Case conn.

　　　　Case adStateOpen

　　　　　　MsgBox "接続しています"

　　　　Case adStateClosed

　　　　　　MsgBox "接続していません"

　　End Select

　　Set conn = Nothing

End Sub

19.

次のコードは、「Type」の種類ごとに「Price」を合計し、合計が3000以上のグループだけを抽出するものである。

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

Sub Exam1()

　　Dim N As String

　　N = "SELECT [Type], SUM(Price) FROM [Table Sports1] GROUP BY [Type] SUM(Price) >= 3000;"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

20.

ADOのRecordsetでAddNewメソッドを使ってレコードを追加する方法に関する説明として、正しいものを次の選択肢の中から1つ選び解答しなさい。

AddNewメソッドの実行後にFieldオブジェクトへ値を代入する方法では、Updateメソッドを実行しなくても、AddNewメソッドの実行だけでレコードの追加が確定する。

AddNewメソッドの引数としてフィールドリストと値リストを指定した場合、レコードの追加はレコードセットを閉じた時点で反映される。

AddNewメソッドの引数としてフィールドリストと値リストを指定する方法と、AddNewメソッドの実行後にFieldオブジェクトへ値を代入し、最後にUpdateメソッドを実行する方法の2通りがある。

レコードを追加するには、必ずAddNewメソッドの引数としてフィールドリストと値リストを指定する必要があり、Fieldオブジェクトへ値を代入する方法は使えない。

21.

ANSI-92モードにおいて、ANSI-89のリスト「[!15]」（リスト以外の1文字）に相当する記述を「15」使用して以下の空欄に解答しなさい。

22.

次のコードは、DAOを使って、現在開いているデータベース（カレントデータベース）ではなく、別の場所にあるデータベースファイル（C:￥data￥test.accdb）に接続し、そのデータベース名を表示する処理である。

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

Sub Exam1()

　　Dim dbs As DAO.Database

　　Set dbs = ("C:￥data￥test.accdb")

　　MsgBox dbs.Name

　　dbs.Close

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub

23.

オブジェクト変数の宣言と Set ステートメントに関する説明として、最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

通常の変数に値を代入するときは Let を省略できないが、オブジェクト変数に参照を代入するときの Set は省略できる。

オブジェクトの型が分かっているときは、型を指定する固有オブジェクト型で宣言する方が、エラーを発見しやすく、実行速度もわずかに向上するというメリットがある。

オブジェクト変数に参照するオブジェクトを代入するときは、通常の値の代入と同じく Set を省略して「オブジェクト変数 = 参照するオブジェクト」と記述するのが正しい書き方である。

オブジェクトの型が分かっているときでも、総称オブジェクト型（Object）で宣言する方が、エラーを発見しやすく実行速度も向上する。

24.

次のコードは、データベースに保存されない一時的なクエリを作成するものである。

空欄に入るメソッド名を解答しなさい。なお、第1引数（クエリ名）に長さ0の文字列を指定している。

Sub Exam1()

　　Dim dbs As DAO.Database

　　Dim qdf As DAO.

　　Set dbs = CurrentDb

　　Set qdf = dbs.( "", "SELECT * FROM [Table Product1]")

　　Set qdf = Nothing: Set dbs = Nothing

　　MsgBox "完了"

End Sub

25.

次のコードは、InputBox 関数で「数量」と「締切日」を入力させ、正しいデータが入力されるまで再入力を求めるものである。

入力チェックを行うため、空欄①には数値かどうかを判定する関数を、空欄②には日付かどうかを判定する関数を記述したい。

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

Sub Exam1()

　　Dim suryo As String
　　Dim shimekiri As String

　　Do
　　　　suryo = InputBox("数量を入力")

　　Loop Until 【　① 】(suryo)

　　Do
　　　　shimekiri = InputBox("締切日を入力")

　　Loop Until 【　② 】(shimekiri)

　　MsgBox suryo & "個／締切 " & shimekiri

End Sub

①−IsDate　②−IsDate

①−IsDate　②−IsNumeric

①−IsNumeric　②−IsDate

①−IsNumeric　②−IsNumeric

26.

以下のコードのとき、イミディエイトウィンドウから、Function プロシージャ「Exam3」に引数 12345 を渡して呼び出したい。イミディエイトウィンドウへの記述として正しいものはどれか。組み合わせとして適切なものを1つ解答しなさい。

Function Exam3(ByVal n As Long) As Long

　　Exam3 = n * 10

End Function

①Exam3 12345
②Exam3(12345)
③?Exam3 12345
④?Exam3(12345)

② のみ

① と ②

④ のみ

③ と ④

27.

次のコードは、フォームモジュールに記述されている。システムで使用可能なすべてのプリンタを取り出し、そのプリンタ名を lbl1 に表示したい。

先の空欄には Printers コレクションが属するオブジェクト、後ろの空欄にはプリンタ名を取得するプロパティが入る。

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

Private Sub btn1_Click()

　　Dim i As Object

　　Me.lbl1.Caption = ""

　　For Each i In .Printers

　　　　Me.lbl1.Caption = Me.lbl1.Caption & i. & vbCrLf

　　Next i

　　MsgBox "完了"

End Sub

28.

次のコードは、Table1を左外部結合し、Table8に一致するレコードが無い指定フィールドのレコードだけを抽出するものである。

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

Sub Exam1()

　　Dim N As String

　　 N = "SELECT Table8.data1 FROM Table8 LEFT JOIN Table1 ON Table8.data1 = Table1.data1 WHERE Table1.data1 ;"

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

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

29.

次のコードは、FileSystemObjectを実行時バインディングで生成するものである。以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim fso As Object

　　Set fso = (".FileSystemObject)

　　Set fso = Nothing

　MsgBox "完了"

End Sub

30.

次のコードは、既存テーブルの指定フィールドにインデックス「idx」を作成するものである。以下の空欄に入る適切なコードを解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = " idx ON Table1 (data1);"

　　DoCmd.RunSQL N

　MsgBox "完了"

End Sub

31.

次のコードは、カレントデータベースと同じフォルダにある「a.txt」TextStreamオブジェクトを開いて文字を書き込み、そのあと同じファイルを読み取って内容を表示する処理である。

なお、実行前の「a.txt」であるTextStreamオブジェクトには「123」という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.Write "456"

　　ts.Close

　　Set ts = fso.OpenTextFile(strpath, ForReading)

　　MsgBox ts.ReadAll

　　ts.Close

　　Set fso = Nothing

　　Set ts = Nothing

　　MsgBox "完了"

End Sub

123 と 456 が2行に分かれて表示される。

123456

456

123

32.

次のコードは、ファイルを選択するダイアログボックスについて、開いたときに最初に選ばれているファイルの種類を、登録した順番の番号で設定する処理である。

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

Sub Exam1()

　　Dim fld As FileDialog

　　Set fld = Application.FileDialog(msoFileDialogFilePicker)

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

fld.ButtonName = "取り込む"

　　 fld.InitialFileName = CurrentProject.Path

　　 fld .Filters.Clear

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

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

　　 fld.【　①　】 = 2

　　If fld.Show Then

　　　　Debug.Print fld.SelectedItems(1)

　　End If

　　Set fld = Nothing

　　MsgBox "完了"

End Sub

FilterIndex

Filters

ButtonName

Title

33.

Access VBAからOLEオートメーションでExcelを操作する際、オートメーションサーバとして作成できる主なオブジェクトには、それぞれ固有のクラス名がある。

Excelのワークシートを表すクラス名選択肢の中から適切なものを１つ解答しなさい。

Excel.Chart

Excel.Workbook

Excel.Worksheet

Excel.Sheet

34.

次のコードは、[Table Product1] テーブルのレコードを1件ずつ読み取って表示するものである。

ただし、レコードが1件もない場合にエラーが発生してしまう。

レコードが1件もないときにエラーを発生させないためには、繰り返し条件「「Until rst.EOF」、「Do」、「Loop」をどこに記述すればよいか。以下の選択肢より1つ解答しなさい。

Sub Exam1()
　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

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

　　rst.Open "SELECT * FROM [Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　（1）
　　　　 Debug.Print rst.Fields(0), rst.Fields(1)
　　　　　　　　　　　　　
　　　　rst.MoveNext
　　（2）
　　rst.Close

　　Set rst = Nothing: Set conn = Nothing
　　MsgBox "完了"
End Sub

（1）を「Do」、（2）を「Loop」とし、繰り返し条件はどこにも書かない。

（1）を「Do Until rst.EOF」、（2）を「Loop」とする（繰り返し条件を先頭に置く＝実行前判断）。

（1）を「Do Until rst.EOF」、（2）を「Loop Until rst.EOF」とし、両方に繰り返し条件を書く。

（1）を「Do」、（2）を「Loop Until rst.EOF」とする（繰り返し条件を末尾に置く＝実行後判断）。

35.

フォームには、テキストボックス txt1 ボタン btn1 のみが配置されている。ボタンを押して次のプロシージャを実行したときの結果として最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　　With Me.txt1

　　　　.Value = "VBA"

　　　　.RowSource = "Q1"

　　End With

End Sub

エラーが発生し、txt1 の値も設定されない。

txt1 の値が「VBA」になったあと、2行目でエラーが発生する。

txt1 の値が「VBA」になり、2行目は無視されて正常に終了する。

txt1 の値が「VBA」になり、txt1 の行ソースに「Q1」が設定される。

36.

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

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

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

　　Set drv = Nothing

　　Set fld = Nothing

　　MsgBox "完了"

End Sub

37.

SQLの高速化の基本的な考え方として、最も適切なものを1つ解答しなさい。

とにかくインデックスをできるだけ多くのフィールドに設定することだけが高速化の方法である。

「無駄な処理を行わないこと」と「より高速な方法を選択すること」の2つが基本方針である。

SELECT * を使ってすべてのフィールドを取得すれば必ず高速になる。

テーブルを正規化せず1つにまとめれば必ず高速になる。

38.

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

フォームモジュール・レポートモジュールは、標準モジュールと同じくリボンの「作成」タブから単独で新規作成する。

フォームモジュール・レポートモジュールはフォームやレポートを新規作成すると自動的に用意され、「コード保持」プロパティを「いいえ」にして保存して閉じると、そのコードが削除される。

「コード保持」プロパティを「いいえ」にして保存して閉じると、コードだけでなくフォームやレポート自体も削除される。

フォームモジュール・レポートモジュールの名前は、利用者が自由に変更できる。

39.

次のコードは、動的配列 N を宣言し、要素数を変更しながら値を格納するものである。空欄には要素数を初めて設定する語句、その次の空欄にはそれまでの値を保持したまま要素数を変更する語句が入る。

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

Sub Exam1()

　　Dim N() As String

　　 N(1)

　　N(0) = "VBA"

　　N(1) = "SQL"

　　 N(3)

　　N(2) = "CSV"

　　N(3) = "XML"

　　Debug.Print N(0) & N(1) & N(2) & N(3)

　　MsgBox "完了"

End Sub

40.

改行に関する組み込み定数の説明として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

vbLf は、キャリッジリターン文字を表す。

vbNewLine は、vbCr と同じ働きをする。

改行を表す定数は、Chr関数を使用した文字コードで表すことができる。

vbCr は、ラインフィード文字を表す。