我想问一道汇编题:

晕啊，这哪是汇编，这明明是VB嘛。
功能是随机生成数组A中的数据（-10到10的整数），显示数组A的数据，然后删除A中相同的数字，再显示。
数组的长度是运行时输入的。

每一步解释如下：

Private Sub Form_Click() '这个不用解释吧：）
Dim i%, j%, n%, k% '定义i、j、n、k为整型数据
Dim a() As Integer '定义a为整型动态数组
n = Val(InputBox("输入一个数")) '读入一个数，变成数值型，放在n中。

ReDim a(n) As Integer '重新定义动态数组的长度为n

For i = 1 To n '从1到n循环
a(i) = Int(Rnd * 21) - 10 '数组a中的数据是随机生成的，范围是0到20，共21个数据，转换成整型，并减去10，那么范围变成-10到10。
Print a(i); '显示第i个元素
Next i

Print '换行

For i = 1 To n '这个for循环嵌套主要是完成查找相同数据，并删除。
For j = i + 1 To n
If a(i) = a(j) Then '如果发现两数据相同，就把后面一个删除掉。
For k = j To n - 1
a(k) = a(k + 1)
Next k
n = n - 1
End If
Next j
Next i

Print "删除数组中相同的数据之后该数组为："
For i = 1 To n - Count '你这里这个count没有用啊，没有定义，初值为0，减不减不影响结果。
Print a(i); '显示删除后的数组元素
Next i
Print
End Sub