以下过程的功能是向数组中增加字符,则程序中下画线处应为( )
Private Sub AddToArray(arr(),arraycount%,ByVal charstring)
Dim i%,found As Boolean
found=False
For i=1 To arraycount
If array(i)=charstring Then
found=True
Exit For
End If
Next i
If Not found Then
arraycount=arraycount+1
______
arr(arraycount)=charstring
End If
End Sub
A) EeDim arr(arraycount)
B) ReDim Preserve arr(arraycount)
C) Dim arr(arraycount)
D) Dim Preserve arr(arraycount)