vb 删除重复数字 Private Sub Command1_Click()bbb=Split(Text1.Text，；For i=0 To UBound(bbb)-1For j=0 To 9If InStr(bbb(i)，CStr(j))Then kkk=kkk&jNext jIf InStr(ddd，kkk&\"\")=0 Thenddd=ddd&kkk&\"Text2.Text=Text2.Text&kkk&vbCrLfEnd Ifkkk=\"Next iEnd Sub
请教高手啊 VB下标越界什么意思？ 删除重复数 请教高手啊 VB下标越界什么意思？删除重复数 Option ExplicitOption Base 1Dim a()As IntegerPrivate Sub Command1_Click()Dim n As Integer，i As Integer n=InputBox(。
vb，删除数组中的重复元素 Private Sub Command1_Click()S=Array(3，1，1，1，1，1，1，4，3，5，3)For i=0 To UBound(S)For j=0 To i-1If S(i)=S(j)Then Exit ForNextIf j=i Then Print S(i)NextEnd Sub
