求助 vb

Question

  怎样删除自然数的奇偶比数据呢  

Answer 1

http://topic.csdn.net/u/20080930/10/16b620b3-f527-46ca-9696-d28e2d83e722.html与上面的是同样的.只是改了一个地方而以.Option Explicit'增加五个 Combo1 用数组。 index 是从0-4 一个按扭
Private Sub Form_Load()
   Dim i As Long
   For i = 0 To 4
     Combo1(i).AddItem "奇数"
     Combo1(i).AddItem "偶数"
     Combo1(i).ListIndex = i Mod 2
   Next
   
   ListView1.ColumnHeaders.Add , , "A列"
   
   ListView1.View = lvwReport
   
   ListView1.ListItems.Add , , "12345"
   ListView1.ListItems.Add , , "57812"
   ListView1.ListItems.Add , , "35974"
   ListView1.ListItems.Add , , "01247"
   ListView1.ListItems.Add , , "35420"
   ListView1.ListItems.Add , , "32154"
   ListView1.ListItems.Add , , "98520"
   
End SubPrivate Sub Command1_Click()
  Dim i As Long
  
  For i = ListView1.ListItems.Count To 1 Step -1
      If DelData(ListView1.ListItems(i).Text) Then
         ListView1.ListItems.Remove i
      End If
  Next
End Sub
Private Function DelData(ByVal Data As String) As Boolean
   Dim DelStr As String
   Dim FindStr As String
   Dim i As Long
   For i = 0 To 4
      DelStr = DelStr & Combo1(i).ListIndex
      FindStr = FindStr & ((Mid(Data, i + 1, 1) - 1) Mod 2)'以前是二位数一取,现在是一位一位的取.
   Next
 
   If DelStr = FindStr Then
      DelData = True
   Else
      DelData = False
   End If
 
End Function