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("輸入欲查找的學(xué)生姓名:")
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
希望與更多計(jì)算機(jī)等級考試的網(wǎng)友交流,請進(jìn)入計(jì)算機(jī)等級考試論壇
更多信息請?jiān)L問:考試吧計(jì)算機(jī)等級考試欄目
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |