【redraw】...Load()Me.AutoRedraw=TrueReDimdata(n)ForI=1Tond...

请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Printx = Val(InputBox(输入插入的数据值))m = m + 1ReDim Preserve data(n + m) '扩大数组长度For I = n + m - 1 To 1 Step -1If x >= data(I) ThenI = I + 1 '新数据的插入位置Exit ForEnd IfNextFor J = n + m - 1 To I Step -1data(J + 1) = data(J) '从插入点的位置开始,所有元素挪一个位置NextIf I = 0 Thendata(I + 1) = x '插入新数据Elsedata(I) = xEnd IfFor I = 1 To n + mPrint data(I); '显示所有元素NextEnd Sub