- 二一组卷

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

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

举一反三

【加试题】郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个VB排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示按销售量从低到高排序后的结果，在标签Label3中显示比较次数。程序中数组a和数组b分别存储品牌名称和对应的销售量。

Const n As Integer = 10 'n为品牌数

Dim a(1 To n) As String '数组a用于存储品牌名称

Dim b(1 To n) As Integer '数组b用于存储销售量

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

Dim n As Integer

n = 1

For i = 1 To 9

k = i

For j = i+1 To 10

If Then k = j

n=n+1

Next j

If ① Then

x = a(i): a(i) = a(k): a(k) = x

y = b(i): b(i) = b(k): b(k) = y

End If

Next i

For i = 1 To 10

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

Next i

Label3.Caption = "比较次数为：" + + "次"

End Sub

某升序排序算法的VB程序段如下:

Dim a(8) As Integer For i = 2 To 8

a(0) = a(i)

Do While a(0) < a(j)

j = j - 1

Loop

Next i

数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（）

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

num = 0

For i = 1 To 3

For j = 8 To i + 1 Step -1

If a(j) < = a(i) Then

temp = a(j): a(j) = a(i): a(i) = temp

num = num +1

End If

Next j

Next i

数组元素a(1)到a(8)的值依次为“25,44,16,34,57,25,34,60”，执行该程序段，变量num的值是（）

【加试题】以下程序段对数组a 中的8个数据a(1)到a(8)进行加工。

i = 1 : k = 0

Do While i<= 3

For j = 8 To i + 1 Step -1

If a(j) >= a(j - 1) Then

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

k = k + 1

End If

Next j

i = i + 1

Loop

若数组a中的数据依次为“24，29，31，24，12，10，12，25”，则加工结束后，变量k的值为（）

有如下程序段：

For i=1 To 2

k=i

For j=i+1 To 5

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

Next j

If k <> i Then t=d(k): d(k)=d(i) :d(i)=t

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（）

有以下VB程序段：

a(1)=6:a(2)=8:a(3)=7:a(4)=3:a(5)=1:a(6)=2:a(7)=5:a(8)=4

i = 1: j = 8

key = a(1)

Do While i < j

Do While i < j And a(j) >= key

j = j - 1

Loop

a(i) = a(j)

Do While i < j And a(i) <= key

i = i + 1

Loop

a(j) = a(i)

Loop

a(i) = key

For i = 1 To 8

Label1.Caption=Label1.Caption++Str(a(i))

Next i

执行该程序段，标签Label1上显示的内容是( )

相关试卷

公司介绍

服务介绍

帮助中心