顺序查找算法及程序实现

输入报名序号与考生姓名，若报名序号存在 且考生姓名输入正确，则显示考生已报考科 目信息。部分代码如下所示：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
Dim z As String, n As String, k As String
Dim p As String, k As String
Private Sub Command1_Click()
Dim s As Integer, result As String, flag As Boolean
result ＝ “”
p ＝ Text_1.Text
k ＝ Text_2.Text
For s ＝ 1 To Len(p)
②顺序查找算法流程图
3．顺序查找算法的程序结构
程序实现代码： k＝0 For i＝1 To n
If a(i)＝key Then k＝i
Next i
If k<>0 Then ' 输出查找成功
Else ' 输出查找不成功
End If
本节的学习要求掌握顺序查找算法的基本思想，能用程序 来实现顺序查找的算法。考查方式为选择题与填空题。
____________________________
生姓名信息存放在数组a(1 to 650)中，Command1_Click事件 过程完成了在对象Text1中输入 学生姓名后，在Label1中输出
Exit For
查找结果。程序中画线部分应
End If Next i If search > 0 Then
'考生报名序号、姓名和报考科目数组赋值部分，忽略
End Sub
6．要求从某一字符串中删除指定的字符(假设所含的英文字母均为小写字母)，并将处理后的字 符串重新输出。
程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字 符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。
(B )
A．随机查找 B．顺序查找 C．对分查找 D．模糊查找
3．在数组23、41、54、26、84、52、65、21中查找数字52，采用从后往前
顺序查找，需要查找的次数是
(B)
A．2次 B．3次 C．7次 D．1次
4. 某校在进行新生录取工作时，建立了一个数据库，共有650位新生(没有重名)的记录， 现需要找出某个学生是否已经报名参加该校的暑期军训。
填入__S_e_a_r_c_h_=_i____________， 该程序主要采用了__顺__序__查__找___
MsgBox “找到该学生，在数组位置：” ＋ Str(search) 算法。
Else
mxgbox “找不到该学生”
End If
End Sub
5．现在的学业水平考试都进行网上报名，小李设计了一个模拟查询的程序，实现查询某 位考生已经报考的科目信息。设数组zkh用来存放学生的报名序号，数组name和 bmk分别存储对应考生的姓名和已报考科目信息。程序运行界面如下图所示：
(3)程序中②划线处应填入_T_e_x_t_3_.t_e_x_t=_r_e_s_u_l_t 。
Function f(s As Integer) As Boolean
If Mid(p, s, 1) ＝ k Then f ＝ True
End Function
作业：
1、A+第12份（交起） 2、同步P27暂不交
与排序比较，它只有一重循环，排序有两重循环，共同点 都有数组
1．为找自己第一次上幼儿园时的照片，小张同学依次翻开自
己的多本相册来逐张查找。这种查找方法为
( B)
A．无序查找
B．顺序查找
C．对分查找
D．随机查找
2．由10个数组成的数列：25、36、45、87、96、84、71、 65、99、27，从中查找数据36时，最适合的查找方式是
3．6 顺序查找算法及程序实现
1．查找 查找是一种查询数据的技术，其目标是能以比较少的步骤 或较短时间内找到所需的对象。程序将按照查找的结果(找到或 未找到)来决定接着应执行的步骤。查找的方法很多，对不同的 数据结构有不同的查找方法。参加选考的同学，只需要掌握顺 序查找和对分查找两种方法。 2．顺序查找算法 顺序查找的基本思想是从第一个数据开始，按顺序逐个将 数据与给定的数据(查找键)进行比较，若某个数据和查找键相 等，则查找成功，输出所查数据的位置；反之，输出未找到。 ①顺序查找算法的处理过程 假定在数组d中有n个数据，查找键已经存储在变量key中 。其处理过程是：从数组d的第1个元素d(1)开始，依次判断各 元素的值是否与查找键key相等，若某个数组元素d(i)的值等于 key，则结束处理(找到了指定的数据)；若找遍了所有的n个元 素，无任何元素的值等于key，则结束处理(输出未找到信息)。
End If End Sub Private Sub Form_Load()
(1)该程序采用的算法是__顺__序__查__找__算__法____________。 请将划线处的语句或表达式填充完整。
(2)划线①处应填入__z_=_z_k_h_(_i)_A__n_d__n______________。 (3)划线②处应填入__b_m__k_(_s)_____________________。
Private Sub Command1_Click() Dim search As Integer, Stu As String
已知在一个事件过程中已经 完成650个学生的数据录入，学
search ＝ 0 Stu ＝ Text1.Text For i ＝ 1 To 650
If Stu ＝ a(i) Then
flag ＝ f(s)
(1)解决此问题的算法是__顺__序__查__找_ (选填：顺
If Not flag Then
序查找或对分查找)
result ＝ result ＋ ① 在程序①和②划线处，填入适当的语句或表
End If Next s
②
End Sub
达式，把程序补充完整。 (2)程序中①划线处应填入_M__i_d_(_p_,s_,_i)______。
z ＝ Text1.Text n ＝ Text2.Text
Hale Waihona Puke Baidu
For i ＝ 1 To n
If ① ＝ Name(i) Then
s＝i
Exit For
End If
Next i
If s <> 0 Then
Label3.Caption ＝ “该考生已报考的科目是：” ＋ ②
Else msgbox “找不到该考生”