Option Explicit
                  Option Base 1
                  Private Sub Form_click()
                           Dim stu() As String, glass() As String, i As Integer
                           Dim n As Integer, name As String, k As Integer
                           Open "c:\stu\stu.txt" For Input As #11
                           Do While （1）
                                    （2）
                                    ReDim Preserve stu(n), glass(n)
                                    Input #11, stu(n), glass(n)
                           Loop
                           name = InputBox("輸入欲查找的學生姓名：")
                           Call search(name, stu, k)
                           If k <= n Then
                                    MsgBox （3）
                           Else
                                    MsgBox "無此人。"
                           End If
                           Close #11
                  End Sub
                  Private Sub search(name As String, stu() As String, k As Integer)
                           Dim i As Integer
                           For i = 1 To UBound(stu)
                                    If name = stu(i) Then
                                             （4）
                                    End If
                           Next i
                           （5）
                  End Sub

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目