下面程序的功能是：统计存放在数组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_Click()

Dim A() 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(A() As Integer,Right As Integer)

Dim Left As Integer,K As Integer,I As Integer

Right=（）

Left=2

Do While Left<=Right

K=（）

For I=K To 1 Step -1

If A(Left)=A(I) Then Exit For

Next I

If （）Then

Left=Left+1

． Else

A(Left)=A(Right)

（）

End If

Loop

End Sub