[填空题] 下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。Option ExplicitOptionBase 1Private Sub Commandl_Click()Dim A() As Integer,N As Integer,I AS IntegerDim OP As IntegerN=InputBox("请输入数据个数", ,10)ReDim A(N)RandomizeFor I=1 To NA(I)=Int(Rnd*10)+1Text1=Text1 & A(1) & " "Next ICall Statistic(A,OP)Text2="有" & oP & "个不同的数:"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<=RightK=（）For I=K To 1 Step -1If A(Left)=A(I) Then Exit ForNext IIf （）ThenLeft=Left+1． ElseA(Left)=A(Right)（）End IfLoopEnd Sub
