[填空題] 下面程序的功能是：統(tǒng)計(jì)存放在數(shù)組A中的N個數(shù)有多少個是不同的。具體做法是：變量Left指向要被處理的數(shù)(從第2個元素開始)，Right指向數(shù)組最后一
[填空題] 下面程序的功能是：統(tǒng)計(jì)存放在數(shù)組A中的N個數(shù)有多少個是不同的。具體做法是：變量Left指向要被處理的數(shù)(從第2個元素開始)，Right指向數(shù)組最后一個元素。若A(Left)與排在它前面的某個數(shù)組元素值相同，就用數(shù)組元素A(Right)的值來替換A(Left)的值，同時將變量Right的值減1；否則將變量Left的值加1，處理數(shù)組下一個元素，重復(fù)以上過程，直到Left>Right為止。Right的值即為不同的數(shù)的個數(shù)。Option ExplicitOptionBase 1Private Sub Commandl_Click()Dim A() As Integer,N As Integer,I AS IntegerDim OP As IntegerN=InputBox("請輸入數(shù)據(jù)個數(shù)", ,10)ReDim A(N)RandomizeFor I=1 To NA(I)=Int(Rnd*10)+1Text1=Text1 & A(1) & " "Next ICall Statistic(A,OP)Text2="有" & oP & "個不同的數(shù):"For I=1 To OPText2=Text2 & A(I) & " "Next IEnd SubPrivate Sub Statistic(A() As Integer,Right As Integer)Dim Left As Integer,K As Integer,I As IntegerRight=（）Left=2Do While Left
正確答案：UBound(A)；Left-1；I=0；Right=Right-1
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。