【VB教学】第十九节 查找

 

 

一、教学目标：

1、  理解顺序查找

2、  理解二分法查找

二、教学重点：

1、  二分法查找

三、所需课时：2课时

四、教学过程：

（一）、复习

1、定义数组

Dim 数组名（下标范围）as 数据类型

例如：

dim a(10) as integer

dim b(3 to 8) as single

2、数组的操作

数组读写

Dim a(10) As Integer

Dim i As Integer

For i = 1 To 10

        读写数组（读数据-输入，写数据-输出）

Next i

数组的排序

数组的查找

（二）、顺序查找

 1、在数组a(100)中有100个整数，x=54，问x是否在数组中？

If x = a(i) Then

     输出“查找成功”的信息

End If

2、查找a(100)数组中最大的数字

If max < a(i) Then

         max与a(i)进行交换

End If

顺序查找的效率较低，只有在数据量很小，而且没有排序的情况下才使用。

（三）、二分法

用动画课件让学生理解二分法

p1=1

p2=n

do

   m=(p1+p2)\2

   if a(m)=x then

      print “a(”;m”)=”;x

      exit do

   else

    if a(m)>x then

       p2=m-1

    else

        p1=m+1

    end if

 end if

loop until p1>p2