配列の要素の最大値を指定するには？ (ID:118815)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 なんの問題も無いです。+ 1 を忘れてるとかでは？ [VB6.0] Private Sub Command1_Click() Dim a() As Integer Dim i As Integer ReDim a(0) For i = 0 To 3 a(i) = i ReDim Preserve a(0 To UBound(a) + 1) Next i For i = 0 To UBound(a) Debug.Print a(i) Next i End Sub