顺序查找算法及程序实现复习课程.ppt

顺序查找算法及程序实现;顺序查找;顺序查找的流程图;例题：顺序查找;1、首先在通用声明事件里定义数组d变量为全局变量。 Dim d(1 To 10) As Integer Dim i, key As Integer 2、程序一运行，生成10个3位整数，显示在标签1中。 Private Sub Form_Load() Label1.Caption = "" Randomize For i = 1 To 10 d(i) = Int(Rnd * 101 + 100) Label1.Caption = Label1.Caption & d(i) & " " Next i End Sub;3、在文本框1中输入要找的数，单击“顺序查找”按钮，在文本框2中显示找到的结果。;某学校把每个学生的姓名和家长联系电话保存到计算机中，以便遇到紧急情况时可以及时通知学生家长。每个学生的姓名和家长联系电话已经保存在数组xm和phone(都为字符串类型)中。现在要设计一个根据输入的学生姓名查询该学生家长的联系电话的程序。程序运行时的界面如下图所示：;Dim xm(1 To 1000) As String Dim phone(1 To 1000) As String Dim n as integer n ＝ 1000 Private Sub Command1_Click() Dim x As String Dim find As Boolean Dim i As Integer x ＝ Text1.Text i ＝ 0 find ＝ False Do While (i < n) And find ＝ False 　 ① 　 If ② Then find ＝ True Loop If find ＝ True Then 　 Label2.Caption ＝ “该学生家长联系电话为：” ＋ phone(i) Else 　 Label2.Caption ＝ “未找到该学生” End If End Sub ? Private Sub Form_Load() ' 学生姓名及家长电话数组赋初值语句，忽略 End Sub;比较;顺序查找与对分查找比较;此课件下载可自行编辑修改，仅供参考！感谢您的支持，我们努力做得更好！谢谢