- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省名校信息技术仿真训练卷（一）

【加试题】某省学生信息技术学习平台使用情况数据存储在数据库中，利用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

① ② ③

举一反三

【加试题】数组a中有50个互异的整数，已按升序排列。给定一个正整数key，寻找数组a中是否有一对数的和等于给定的数key，算法如下：

若存在和为key的数对，输出该数对包含的两个整数，小的在前，大的在后；

若存在多个数对满足条件，则输出最先找到的数对；

若找不到符合要求的数对，则输出“没有符合条件的数对”。

根据上述算法，小黄编写了一个VB程序，功能如下：程序加载时，自动生成50个互异的、按升序排列的随机正整数，依次存入数组a中，并显示在列表框List1中。在文本框Text1中输入key的值，单击“查找”按钮Command1，查找结果在列表框List2中输出。程序运行界面如图所示。

有如下VB程序段:

Const n=10

key=Val(Text1.Text)

L=1:R=n

If check(key) Then 'check(x)为自定义函数，判断x为否偶数，若是返回True，否则为False

Do While Not check(a(L))

L=L+1

Loop

Else

Do While check(a(R))

R=R-1

Loop

End If

Do While L<=R

m=(L+R)\2

If key=a(m) Then Exit Do

If key>a(m) Then

L=m+1

Else

R=m-1

End If

Loop

若数组元素a(1)到a(10)依次为“1,3,5,7,9,2,4,6,8,10”，执行以上程序段，依次对该组数据进行查找，平均查找次数(平均查找次数=总查找次数/数据总个数)为（）

【加试题】对分查找程序如下，数组a的值依次为3，8，9，21，37，56，68，72，89，96，对数组中的每个元素进行对分查找，则查找成功的平均查找次数是（）

i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If a(m) = Key Then text1.Text = "查找成功": Exit Do

If Key < a(m) Then j = m - 1

If Key > a(m) Then i = m + 1

Loop

某工厂每天会收到多个订单，有 n 台机器对零件进行加工。为减少机器的损耗，需要在满足所有订单加工的情况下（订单即到即加工），机器开启数量尽量少。若开启 n 台机器不能满足订单即到即加工，则计算所有订单最少的平均等待时间。若给定某天内所有的订单信息，请计算需要开启的机器数量以及订单平均等待时间，代码运行效果图如图所示（注意：若上一个订单结束时间为 9:00，下一个订单开启时间最早为 9:00）。

请回答下列问题：

待入栈的序列 a 有多种出栈序列，以下函数用于判断序列 b 是否是 a 的出栈序列，代码如下：

def judge(a, b):

n=len(a) ;st=[- 1]*n

top-= 1; i=j=0

while i<n:

top+= 1

①

i+= 1

while top> - 1 and ② :

top-= 1

j+= 1

return top==- 1

from random import shuffle

a=[1,2,3,4, 5]

b=[1,2, 3, 4, 5]

shuffle (b) #将序列 b 的元素随机排序

if judge(a, b):

print (b,'是' ,a,' 的出栈序列')

else:

print (b,'不是' ,a,' 的出栈序列')

程序运行结果如图所示。划线处应填写的语句是（）

有如下Python程序，其功能为删除无序链表（元素个数大于等于2）中的重复元素。

def dele（a, head）:

pre=head; p=a[head][1]

while p!=-1:

q=head

flag=False

while:

if a[q][0]==a[p][0]:

p=a[p][1]

flag=True

break

q=a[q][1]

if not flag:

pre=p;

p=a[p][1]

a=[[0, 3], [1, 2], [1, 4], [0, 1], [0, 5], [2, -1]]

dele（a, 0）

①q!=-1 ②q!=p ③a[pre][1]=a[p][1] ④a[pre][1]=a[q][1]

方框中填入的正确代码依次为（）

相关试卷

公司介绍

服务介绍

帮助中心