- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术查找算法及程序实现同步练习

有如下程序段：

Dim i As Integer,j As Integer,Key As Integer,m As Integer,s As String

i=1: j=7: s=“”:flag=False

Key=Int(Rnd()* 50)

Do While i <=j And Not Flag

m=(i+j)\2

If Key=a(m) Then

Flag=True

ElseIf Key < a(m) Then

j=m-1

Else

i=m+1

End If

s=s+Str(a(m))

Loop

Text1.Text=s

数组中a(1)到a(7)的值依次为“23，33，45，56，68，77，89”，则Text1 中显示的内容不可能是（）

A、56 33 B、56 33 45 C、56 33 23 D、56 77 68 11

举一反三

某高校学籍管理系统软件有2万个学生的电子档案（已按学籍号排序），假设从中取出一条记录并与待查项进行比较所花时间为8毫秒，则用对分法在该系统中查找任意一位学生档案最多花费的时间约为（）

王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。

校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。

Private Sub Command1_Click()

Dim adocn As new connection

Dim adors As new recordeset

Dim str1 As string,str2 as string

Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\ ① .mdb”

Adon.open str1

Str2=”select * from Yue where ② =’”+text1.text+”’”

Adors.open str2,adocn,adOpenDynamic,adLockOptimistic

If adors.eof then

Msgbox”你输入的学号不存在!”

Else

Label4. caption =adors.Fields(“name”).value

③ =adors.Fields(“money”).value

Endif

Adors.close

Adocn.close

End Sub

为了实现上述目标，在画线处填入合适的语句或表达式：

① {#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

【加试题】某省学生信息技术学习平台使用情况数据存储在数据库中，利用VB编写一个程序，实现功能：输入一个积分的范围，显示该范围内的学生编号和对应的积分。程序运行界面如图所示：

程序代码如下，为实现上述功能，请在画线处填写合适的代码。

Dim bh(10 000)As String ‘存储学生编号

Dim jf(10 000)As Integer ‘存储学生获得的积分值

Dim n As Integer ‘存储学生总人数

Function Search(x As Integer)As Integer

Search=0

i=1：j=n：flag=True

Do While i<=j And flag=True

m=Int((i+i)／2)

If x=jf(m) Then

flag=False

①

Elself ② Then

i=m+1

Else

j=m-1

EndIf

Loop

End Function

Private Sub Form_Load()

‘从数据库中读取学生编号和积分，分别存储到bh数组和jf数组中，并按积分值从小到大排序，显示在列表框List1中

End Sub

Private Sub Command1_Click()

Dim Top As Integer，Bottom As Integer，Topxb As Integer，Bottomxb

As Integer

List2．Clear

Top=Val(Text1．Text)

Bottom=Val(Text2．Text)

If Top>Bottom Then t=Top：Top=Bottom：Bottom=t

If Top>jf(n)Or Bottom<jf（1）Then Exit Sub

Do While Search(Top)=0

Top=Top+1

Loop

Do While Search(Bottom)=0

Bottom=Bottom-1

Loop

Topxb=Search(Top)

Do While jf(Topxb)=jf(Topxb-1)And Topxb>l

Topxb=Topxb-1

Loop

Bottomxb=Search(Bottom)

Do While jf(Bottomxb)=jf(Bottomxb+1)And Bottomxb<n

Bottomxb=Bottomxb+1

Loop

For i= ③

List2.AddItem bh(i)&" "&jf(i)

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#}

【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。

位置	0	1	2	3	4	5	6	7	8	9	10
数据	64	67	45	145		269				119	1275

如果一个数大于等于4，它的平方根肯定不会超过它自己，且一个数的平方根最多不会超过它的一半，例如求8的平方根，8的一半是4，4^2=16>8，如果这个数越大越是如此。小王利用这一规律使用对分查找思想计算某数的算数平方根，编写了一个VB程序，功能如下：单击“产生”按钮Command1，产生一个大于等于0且小于100的随机整数，并显示在文本框Text1中；单击“计算”按钮Command2，在文本框Text1中显示随机整数的平方根，且结果只保留整数部分，小数部分舍去。程序运行界面如图所示：

数组元素a(1)-a(2*n)中存储的一批正整数，以两个数为一组，每组中两个数均比前面一组的两个数要大。现用对分查找的思想，设计一个在数组a中查找数据key的程序，如果找到key，在标签Label1上显示“yes”，否则显示“no”。

Key=Val(Text1.Text)

i=1:j=n*2:flag=False

Do While i+1＜=j And Not flag

m=(i+j)\2

If Then m=m-1

If a(m)=Key or a(m+1)=Key Then

Flag=True

Elseif a(m)＞key Then

Else

End if

Loop

If a(i)=Key Or a(j)=Key Then flag=True

If flag Then Label1.Caption=“yes” Else Label1.Caption=“no”

划线处的代码正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心