2020/05/13 VBAクイズ回答用紙

間違っている箇所にチェックを入れて下さい。 *

Sub VbaQuiz_20200512_改訂版()

____Dim arr

____arr = Array("2", "1", "4", "3")

____On Err GoTo ERROR_LABEL

____Dim sum

____Dim i As Long

____For i = 1 To UBound(arr)

________sum = sum + arr(i)

____Next

____MsgBox sum

____Exit Sub

ERROR_LABEL:

____Debug.Print "Error : ", Err.Number, Err.Description

____MsgBox "Error : ", Err.Number, Err.Description

End Sub

Required

実行結果 *

気がついたことを好きなだけ書いて下さい。

書きたかったら名前を書いて下さい。