- 二一组卷

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

浙江省嘉兴市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)。

举一反三

【加试题】有如下程序段：

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

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

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

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（）

有VB程序段如下:

For i=1 to 2

k=1

For j=2 to 6-i

If d(k)<d(j) then k=j

Next j

If k<>6-i then

T=d(6-i):d(6-i)=d(k):d(k)=t

End If

Next i

数组元素d(1)到d(5)的值依次为“36，25，47，89，78”，经过该程序段“加工”后，下列说法正确的是是（）

原始的冒泡排序是单向的，它始终是从第一个（或最后一个）一个元素开始扫描。小王对冒泡排序进行了改进，从两端进行扫描，首先从数组的左端到右端进行扫描，把最大的数往后交换（以升序为例），再从右端到左端进行扫描，把最小的数往前交换，多次扫描后，最终得到一个有序的序列。他定义了left1、right1两个变量，变量left1表示左边指针，变量right1表示右边指针，每一遍排序，左边指针向右移动一位，右边指针向左移动一位。一趟排序，把最大值沉到最后一个，最小值冒泡到最前一个，最终让数组有序。运行界面如图a,单击“生成数据”按钮在列表框List1中显示生成的10个随机数，单击“排序”按钮后，将排序结果显示在列表框List2中。

实现上述功能的 VB 程序如下，请回答下列问题：

Dim b(1 To 10) As Integer

Dim left1 As Integer, right1 As Integer Private Sub Cd1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

b(i) = Int(Rnd * 100) + 10 List1.AddItem Str(b(i))

Next i left1 = 1 right1 = 10

End Sub

Private Sub Cd2_Click()

Dim i As Integer, j As Integer, t As Integer

Do While left1 < right1

For j = left1 To right1 - 1

If b(j) > b(j + 1) Then

t = b(j): b(j) = b(j + 1): b(j + 1) = t

End If

Next j

For j = right1 To ‘改错

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

t = b(j): b(j) = b(j - 1): b(j - 1) = t end If

Next j

right1 = ‘填空

Loop

‘将排序结果显示在列表表框List2中，代码略

End Sub

小明基于插入排序思想设计了一个改进的排序算法。输入n个两位正整数到数组a，判断数组a中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：

Dim a(1 To 100) As Integer, n As Integer

Function moving( start As Integer, finish As Integer, st As Integer)

'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间

Dim i As Integer, k As Integer k = a(finish)

For i = finish - st To start Step -st a(i + st) = a(i)

Next i a(start) = k

End Function

Private Sub Command1_Click()

Dim head As Integer, end1 As Integer, i As Integer, ans As String

' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略

head = 1: end1 = n + 1

Do While head < end1

If ① Then

For i = 1 To head - 1

If a(i) > a(head) Then Exit For

Next i

Call moving(i, head, 1)

head = ②

Else

For i = end1 To n

If a(i) < a(head) Then Exit For

Next i

Call moving( ③ )

End1 = end1 - 1

End If

Loop

For i = 1 To n

ans = ans + Str(a(i))

Next i

Text2.Text = ans End Sub 请回答下列问题：

小王基于选择排序算法编写了一个 VB 程序，功能如下：数组 a 有 n * n 个元素，按 n 行 n 列进行排列，按列进行升序排序。例如 6 * 6 的数组，第一列将 a(1)，a(7),a(13),a(19),a(25) ,a(31)进行排序。运行程序，在列表框 List1 中显示 n * n 个数列单击“排序”按钮 Command1，在列表框List2 中显示排序后的结果，程序运行界面如图所示。

请回答下列问题：

某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心