13 编程过程3.pptVIP

程序设计基础 陈一明gdmmc2008@126.com 本次课任务 过程应用 重点:模块间数据接口 一、数据接口示例：数据查找 数据查找是从一组数中找出具有某种特征的数据。 数据查找方法常用的有顺序查找与二分法查找等。 示例： 编程实现：在一整数数组中。根据给定的关键值，找出与其相同的元素。 结构设计： 主程序产生数组并输出结果，子程序完成查找。 1、顺序查找 算法思想：顺序查找是根据关键值与数组中元素逐一比较，若相同，查找成功；若都不相同，则查找失败。 主控程序(或称主控模块、主过程、主程序) Option Base 1 Private Sub Form_Click() Dim b() Text1.Text = b = Array(2, 4, 6, 8, 12, 15, 3) For i = 1 To UBound(b) Text1.Text = Text1.Text b(i) Next i k = Val(InputBox(输入要查找的关键值)) Call search(b(), k, n%) If n -1 Then Text2.Text = 元素的下标为 n Else Text2.Text = 查找失败 End If End Sub 子程序(或称子模块、子过程) Public Sub search(a(), ByVal key, index%) Dim i% i = UBound(a) While（（key a(i)）And（i = 1）） i = i - 1 Wend If key = a(i) Then index = i Else index = -1 End If End Sub 2、二分法查找 算法思想：对一组有序数据，将要查找的关键值与数组的中间元素比较，若相同则查找成功；否则判断关键值落在数组的哪半部分，然后只需在该部分进行一样的查找过程。 主程序 Option Base 1 Private Sub Form_Click() Dim b() Text1.Text = b = Array(2, 3 ,4, 6, 8, 12, 15) For i = 1 To UBound(b) Text1.Text = Text1.Text b(i) Next i k = Val(InputBox(输入要查找的关键值)) Call search(b(), LBound(b),UBound(b),k, n%) If n -1 Then Text2.Text = 元素的下标为 n Else Text2.Text = 查找失败 End If End Sub 子程序 Public Sub search(a(), l%,h%,ByVal key, index%) Dim i%,m% index = -1 while (l=h) and (index=-1) m=(l+h)\ 2 If key = a(m) Then index = i else if a(m)key then h=m-1 else l=m+1 End If end if wend End Sub 二、思考与练习 Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 二、思考与练习 P121，四、程序设计题　 第1、2、3题 * * 第13次课 * *