使用顺序查找法,在一组数中查找某给定的数x。按照以下分析设计个实例程序源代码(全部代码),下面的只是功能模块。前提必须使用下面提供的思想代码。只有20分了。。呵呵 全拿出来了。
编程分析:设一个组数据存放在数目a(1)~a(n)中,待查找的数据放在x中,顺序查找的算法为:把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标,p初值为1,使x与a(p)比较,如果x不等于a(p),则使p=p+1,不断重复这个过程;一旦x等于a(p)则退出循环;另外,如果p大于数组长度,循环也应该停止,则可由以下语句来实现它。
For p = 1 To n
If x = a(p) Then Exit For
Next p
下面编写一查找函数Find(),若找到x则返回下标值,找不到返回0
Option Base 1
Private Function find(a() As Single, x As Single) As Integer
Dim n%, p%
n = UBound(a)
For p = 1 To n
If x = a(p) Then Exit For
Next p
If p > n Then p = -1
find = p
End Function
我晕。。这个只是功能模块。部分 代码。执行不了的!你到底会不?会就麻烦把全部代码写下来,谢谢。