这个怎么才能打印一次存在重复数，我这打印了10次

楼上那位很不喜欢用数值型数组啊
这里我暂且认为楼主的其他代码是
正确的
，只写“判断”按钮的代码：
Dim i As Integer, j As Integer
For i = 1 To 9
For j = i + 1 To 10
If a(i) = a(j) Then
Print "存在重复数"
Exit Sub '这句很关键，一旦发现有重复之后，输出完结果立刻退出过程
End If
Next j
Next i
Print "不存在重复数"

if a(i) = a(i)，实在是高啊！