VB text内不能有重复

只能用循环挨个判断！
for i=0 to 17
for j=i+1 to 19
if text(i).text=text(j).text
msgbox "提示信息"
exit sub
end if
next j
next i

for i=0 to 18
for j=1 to 19
if text(i)=text(j) and i<>j then
msgbox("第" & i & & j &"重复")
exit sub
end if
next
next

Private Sub Command1_Click()
For i = 0 To 19
For m = 0 To 19
If i <> m And Text1(i).Text = Text1(m) Then

MsgBox i & "和" & m & "中的内容相同"
Exit Sub
End If
Next m
Next i
End Sub

这是我经过测试的可以判断文本是否重复,并且弹出重复结果!
思路:数据不与自己比较(自己和自己没有意义)
FOR语句循环判断

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 19
If i > 0 Then
For j = 0 To i - 1
If Text1(j).Text = Text1(i).Text Then MsgBox "文本" & j & "与" & i & " 重复！"
Next j
En