- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省嘉兴市2018-2019学年高三信息技术3月嘉丽联考试卷

【加试题】过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了所有人在最短时间内过桥，设计算法如下：

⑴如果只有1人过桥，时间为个人过桥时间。

⑵如果有2人一起过桥，时间以慢的人为准。

⑶如果有3个人a、b、C，耗时T_a<T_b<T_c ，过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。

⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a<T_b<……<T_y<T_x ，这时有两种可选方案，选择其中用时少的，直至剩余少于4人。

①最快的1个将最慢的2个分别送过桥。

a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；

②最快的2个将最慢的2个送过桥。

让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。

为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。

（1）、VB程序代码如下，请在划线处填入合适的代码。

Dim n As Integer ‘存放过河人数

Dim t(1 T0 100)As Integer ‘存放每个人单独过桥时间

Private Sub Form_Load()

‘从数据库中读取每个人的过桥时间显示在列表框List1中，并统计总人数n，代码

略

End Sub

Private Sub Command1_Cl ick()

Dim i As Integer，k As Integer，j As Integer，temp As Integer

Dim sum1 As Integer，sum2 As Integer，tsum AS Integer

sum1=0：sum2=0：tsum=0

For i=1 To n-1 ‘对每个人的过桥耗时进行升序排序

k=i

For j=i+1 To n

If Then k=j

Next j

If k<>i Then

temp=t(i)：t(i)=t(k)：t(k)=temp

End If

Next i

i=n

Do While i>3

sum1=2*t(1)+t(i-1)+t(i) ‘方案①

sum2=t(1)+2*t(2)+t(i) ‘方案②

If sum1<sum2 Then

tsum=tsum+sum1

Else

tsum=tsum+sum2

End If

Loop

If i=1 Then ‘剩下1个人

tsum=tsum+t(1)

ElseIf i=2 Then ‘剩下2个人

tsum=tsum+t(2)

Else ‘剩下3个人

tsum=

End If

Text1．Text=Str(tsum)

End Sub

（2）、如有5个人，他们单独过桥耗时(单位s)如图b所示，则程序运行后文本框Text2中显示的最短耗时是(s)。

举一反三

【加试题】一组数据 22,94,17,125,63，若采用冒泡排序算法对其进行升序排列，则需要经历几遍加工？第一次加工交换多少次？（）

有一组原始数据：23、25、63、84、77、8。利用选择排序算法进行降序排序，请问第二遍加工后数据的顺序为（）

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相信两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示，实现上述功能的VB代码如下：

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean

i = 1

flag = True

Do While '改错

flag = False

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

k = a(j): a(j) = a(j - 1): a(j - 1) = k

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为" + '填空

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

有如下 VB 程序段：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

For j = 1 To 5 - i

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（）

下列关于算法的叙述中，正确的是（）

学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息（编号和完成次数），并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。

数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：

Dim conn As New ADODB. Connection

Dim rs As New ADODB. Recordset

Dim n As Integer

Dim a(500)As String

Dim b(500)As Integer

Private Sub Fom Load()

Dim i As Integer

conn. Connection String="Provider=Mi-crosoft. AC

A.OLEDB. 12.0；DATA Source="& App. Path &"\stud. accdb"

conn Open

Set rs. Active Connection=conn

rs. Open "Select*From info"

n=0

Do While not rs.EOF '到记录集最后一条记录后退出循环

n=n+1

a(n)=rs. fields("id")

b(n)=rs. fields("finshed")

rs. MoveNext '移动到下一条记录

Loop

For i=1 To n

List1. AddItem a(i)+" "+Str(b(i))

Next i

rs. Close

conn. Close

Set rs= Nothing

Set conn= Nothing

End sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer

For i=1 To n-1 'n表示学生总数

k=i 'k保存第i大的数，一开始假定是a(i)

For j=i+1 To n

If b(k)<b(j) Then k=j '比较完成数

①

If ② Then

t1=b(i): b(i)=b(k): b(k)=t1 '交换完成次数

t2=a(i): a(i)=a(k): a(k)=t2 '交换编号

End If

Next j

Next i

For i=1 To n '在列表框List2中输出排序结果

Listt2. Addltem a(i)+" "+Str(b(i))

Next i

End sub

相关试卷

公司介绍

服务介绍

帮助中心