以下过程的功能是向数组中增加字符,则程序中下画线处应为( ) 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)