スタンダード 模擬問題

Excel VBA スタンダード 模擬試験 ランダム順出題 ⑤ 第1問

次のコードは配列に格納した値をメッセージで表示するマクロである。

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

Sub Exam1()

 Dim B As Variant

 Dim i As Long

  B = Split("baseball:football:basketball", "【  ①  】")

 For i = LBound(B) To UBound(B)

  MsgBox B(i)

 Next i

End Sub

正解

【  ①  】:

【2章 変数の活用】

【Split関数】

配列を返す関数はSplit関数です。

構文:Split (元の文字列, 区切り文字)

「元の文字列」に指定した文字列を引数「区切り文字」で区切り、それぞれ分かれている文字列を各要素に入れた配列を格納して返します。

・本問題では、`Split("baseball:football:basketball", ":")` を実行し "baseball"、"football"、"basketball" に ":" で区切り、1つずつ分けて返します。

excel-vba-standard-test-variable

【コード解説】

Sub Exam1()

 Dim B As Variant

'Variant型として宣言する。 Split関数による結果を配列として受け取ります。

 Dim i As Long

  B = Split("baseball:football:basketball", ":")

'("baseball:football:basketball")を ":" で区切り、配列Bに格納します。

 For i = LBound(B) To UBound(B)

'⓵("baseball:football:basketball")から要素数下限0、上限2が判明し、要素の下限値0から上限値2まで繰り返し処理をする。

  MsgBox B(i)

'配列Bの各要素をメッセージボックスで表示します。

 Next i

'要素の上限値まで⓵に戻ります。

End Sub