Dim a(15) As String
Private Sub C1_Click()
    Dim k As Integer
    Open "in5.txt" For Input As #1
    Form1.Cls
    For k = 1 To 15
        Input #1, a(k)
        Print a(k)
    Next k
'    Close ?
End Sub
Private Sub C2_Click()
    Dim k As Integer, n As Integer, c As String
'    n = Len( ? )
    c = ""
    If n > 0 Then
        For k = 1 To 15
'            If Left(a(k), ? ) = Text1.Text Then
'                c = c + "  " + ?
            End If
        Next k
        If c = "" Then
            Text2.Text = "未找到！"
        Else
'            Text2.Text = ?
        End If
    Else
        Text2.Text = "未输入查找内容！"
    End If
End Sub