哪儿错了vb?Command3是删除数组里重复元素。

Option Base 1
Dim a(5) As Integer

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个数")
Text1 = Text1 & a(i) & " "
Next i

End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer, n As Integer
For i = 1 To 5
For j = i + 1 To 5
If a(i) > a(j) Then
n = a(i)
a(i) = a(j)
a(j) = n
End If
Next j
Next i
For i = 1 To 5
Text2.Text = Text2 & a(i) & " "
Next i
End Sub

Private Sub Command3_Click()
Dim i As Integer, j As Integer, n As Integer, c As Integer, k As Integer

Dim S As Integer
c = 0

For i = 1 To 5
c = 0
For j = i + 1 To 5
If a(i) = a(j) Then
c = c + 1
S = S + 1
End If
Next j
For k = i + c To 5
a(k - c) =

哪儿错了vb?Command3是删除数组里重复元素。 我VB菜鸟，帮忙看看哪儿错了 VB 如何用键盘的上下左右 控制 command_Click() command2 command3 command4 很简单的VB代码，就是不知哪儿错了，高手帮忙看一下 我哪儿错了 哪儿错了 哪儿错了?? 看看哪儿错了 VB语句错了 这个程序哪儿错了