填空题 下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。 Option Explicit OptionBase 1 Private Sub Commandl_Click1 Dim A2 As Integer,N As Integer,I AS Integer Dim OP As Integer N=InputBox("请输入数据个数", ,10) ReDim A(N) Randomize For I=1 To N A(I)=Int(Rnd*10)+1 Text1=Text1 & A(1) & " " Next I Call Statistic(A,OP) Text2="有" & oP & "个不同的数:" For I=1 To OP Text2=Text2 & A(I) & " " Next I End Sub Private Sub Statistic(A3 As Integer,Right As Integer) Dim Left As Integer,K As Integer,I As Integer Right=( 23 ) Left=2 Do While Left<=Right K=( 24 ) For I=K To 1 Step -1 If A(Left)=A(I) Then Exit For Next I If ( 25 )Then Left=Left+1 ． Else A(Left)=A(Right) ( 26 ) End If Loop End Sub