frmfilter.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmFilter 
   AutoRedraw      =   -1  'True
   Caption         =   "Demonstrating Function Filter"
   ClientHeight    =   2565
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2565
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "frmFilter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 8.28
' Demonstrating function Filter
Option Explicit

Private Sub Form_Load()
    Dim a(9) As String, b() As String
    
    a(0) = "Java"
    a(1) = "Visual Basic 6"
    a(2) = "Visual Basic 5"
    a(3) = "C++"
    a(4) = "Visual Basic 6"
    a(5) = "Visual Basic 5"
    a(6) = "Visual Basic 6"
    a(7) = "Visual C++ 6"
    a(8) = "Visual J++ 6"
    a(9) = "Visual Basic 6"

    Print "Filtering for the string: " & Chr$(34) & _
          "Visual Basic 6" & Chr$(34)
    b = Filter(a, "Visual Basic 6")
    Call PrintStrings(b)
    
    Print
    Erase b
    
    Print "Filtering for strings other than: " & Chr$(34) & _
          "Visual Basic 6" & Chr$(34)
    b = Filter(a, "Visual Basic 6", False)
    Call PrintStrings(b)
End Sub


Private Sub PrintStrings(c() As String)
    Dim z As Integer
    
    For z = 0 To UBound(c)
       Print c(z)
    Next z
    
End Sub