数组a中存放m个随即产生的不大于n的正整数，编写过程删除数组中相同的元素，并显示删除前和删除后的数组中的所有内容以及被删除的数据个数。
如题，我编的程序是：
Dim m%, n%, i%, Num%, j%, Same%, d%
Print Chr(13) + Chr(13); " 随机生成的原数组为:"
Dim a()
m = Val(InputBox("请输入数组元素个数m:(输入-1结束)"))
If m = -1 Then Exit Sub
n = Val(InputBox("请输入正整数n的值(输入-1结束):"))
If n = -1 Then Exit Sub
For i = 1 To m
ReDim Preserve a(i)
a(i) = Int(Rnd * n)
Print a(i);: d = d + 1
If d Mod 10 = 0 Then Print a(i)

Next i
For i = 1 To m
For j = i + 1 To m
If a(i) = a(j) Then
Same = a(j)
a(i) = "" '删除a(i)
Num = Num + 1
a(j) = ""
Num = Num + 1
End If
Next j
Next i
Print Chr(13) + Chr(13); "其中相同的元素为："; Same
Print Chr(13) + Chr(13); "删除的相同元素个数为："; Num

当运行时输入，100和100是就不出错
而输入1000和1000时就说：Same = a(j)“类型不匹配”
这是为什么啊？

数组a中存放m个随即产生的不大于n的正整数，编写过程删除数组中相同的元素－－－－搞这么复杂！

参考我的帖子：[经验]取20个在10到87之间中的随机整数（不包括10和87）
http://bbs.bc-cn.net/viewthread.php?tid=138065
要看完帖子哦！

产生的随机整数没重复的该多好啊

a(i) = "" '删除a(i)
Num = Num + 1
a(j) = ""

将
a(i) = ""
改为
a(i) = 0 '赋值为“0”的，进行筛选和计数。。。a(i)不是记录字符串的数组

常数数组的值必须为数字，不能设置为没有值，空格或者字符串

[此贴子已经被作者于2007-5-14 3:50:12编辑过]