求助 vb 奇怪的字符串问题

[adodc1]

Private Sub Command1_Click()

Dim i As Long
Dim j As Long
Dim ArrData(9) As String

For i = 0 To 9
ArrData(i) = CStr(i)
Next

For i = 0 To 9
For j = 1 To ListView1.ListItems.Count
If Not ArrData(i) = ListView1.ListItems(j).Text Then
ListView2.ListItems.Add , , ArrData(i)
End If
Exit For
Next
Next

End Sub

Private Sub Form_Load()

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , ""
ListView2.View = lvwReport
ListView2.ColumnHeaders.Add , , ""
For i = 1 To 7
ListView1.ListItems.Add , , i
Next

End Su

运行时，怎么结果不对了，应该是运行结果是089。

[trustyboy]

你的算法不对 里面那个for
循环你认为不等就加入是错误你，具体的你就拿个特例代进去，比如 i=4时，想一下就知道错了

正确代码如下：

Private Sub Command1_Click()

  Dim i As Long
  Dim j As Long
  Dim ArrData(9) As String
  Dim flag As Boolean
  
  For i = 0 To 9
  ArrData(i) = CStr(i)
  Next

  
   
  For i = 0 To 9
  flag = False 'true表示等
  For j = 1 To ListView1.ListItems.Count
  If ArrData(i) = ListView1.ListItems(j).Text Then
  flag = True
  End If
  Next
  If flag = False Then
  ListView2.ListItems.Add , , ArrData(i)
  End If
  Next
  
End Sub

[adodc1]

啊~ 明白了. 原来是这样的问题.