- 二一组卷

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

浙江省嘉兴市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程序，用于对全班55名同学的体质调查分析，该程序能将55名同学的身高与体重录入到数据库中，之后通过如图所示的VB应用程序计算出这些同学的BMI指数，并按BMI指数从小到大进行排序，并显示这些学生的体质情况。

注：BMI指数的计算公式为：BMI=体重（千克）除以身高（米）的平方（kg/m2）。 BMI<18.5为偏瘦（表明营养不足）；BMI=18.5～24.9为体重正常；BMI=25～29.9为超重；BMI>30为肥胖。

该VB应用程序的代码如下：

Dim stuBMI(1 To 55) As Single

Dim stuName(1 To 55) As String

Private Sub Command1_Click()

Dim k As Integer, i As Integer, j As Integer

Dim t1 As Single, t2 As String

Dim Results As String

For i = 1 To 54

For j = i + 1 To 55

If stuBMI(j) < stuBMI(k) then ②

Next j

If k<>I Then

t1 = stuBMI(i): stuBMI(i) = stuBMI(k): stuBMI(k) = t1

t2 = stuName(i): stuName(i) = stuName(k): stuName(k) = t2

End If

Next i

List1.AddItem "姓名" + vbTab + "BMI指数" + vbTab + "结果"

For i = 1 To 55

If stuBMI(i) < 18.5 Then

Results = "偏瘦"

ElseIf stuBMI(i) >= 18.5 And stuBMI(i) < 25 Then

Results = "正常"

ElseIf stuBMI(i) >= 25 And stuBMI(i) < 30 Then

Results = "超重"

Else

Results = "肥胖"

End If

List1.AddItem stuName(i) + vbTab + str(stuBMI(i)) + vbTab + Results

Next i

End Sub

Private Sub Form_load()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

Dim i As Integer

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\Student.accdb"

conn.Open

strSQL = "SELECT * FROM Student"

Set rs.ActiveConnection = conn

rs.Open strSQL

i = 0

Do While Not rs.EOF

i = i + 1

stuName(i) = rs.Fields("StuName")

stuBMI(i) = Round(rs.Fields("Weight") / rs.Fields("height") ^ 2, 1)

rs.MoveNext

Loop

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

有如下程序段：

For i = 1 To 2

For j = 2 To 7 - i

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

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

End If

Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（）

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

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

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

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True '（1）

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="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

有一组正整数，要求对其中的数据进行排列，排列后奇数在前，偶数在后。其中最后一个数据排到奇数与偶数交接处;自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。排序示例如下。

排序前	71	85	64	55	42	62	33	17	34	30
排序后	71	85	17	55	33	30	62	42	34	64

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

'读取一组正整数，存储在数组a中，代码略

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

a(j)=a(i)

j=j-1

flag=Not flag

Else

'{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

a(i)=a(j)

flag=Not flag

Else

j=j-1

End If

Loop

' {#blank#}2{#/blank#}

'依次输出排序后的数据，代码略。

End Sub

【加试题】某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小数）并显示在List1中，在Text1和Text2中输入排序范围的起始位置和结束位置，在b(i)中存储a(i)在该范围中的排位，并输出排位到列表框List2，实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize '生成 1000 个随机数 For i = 1 To 1000

① '产生随机数，保留二位小数

b(i) = 1 '初始排位为 1

List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)

js = Val(Text2.Text)

For i = ks To js

For j = ks To js

If Then b(i) = b(i) + 1 ②

Next j

Text1 Text2

List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

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

小王在研究n个数的冒泡排序算法，发现可以从两个方面进行优化:

⑴在每遍冒泡过程中，若最后一次交换的是last与last-1位置，则last位置之前的相邻数据均已有序。进行下一遍冒泡时，无序区域设置[last， n]，这样可使无序区域缩小。

⑵若在某一遍排序中没有数据交换，说明待排序数据都已经有序，冒泡排序过程可在此遍排序后结束。因此可以引入一个变量flag，记录在每遍排序过程中是否发生了交换。

小王设计了如下VB程序，功能如下:按Cominandl“生成数据”后，生成一组随机的两位整数存入数组a，并输出在列表框List1中。单击Command2“排序”后，a中的数据进行降序排序，排序后的数据显示在列表框List2中，排序过程中实际的冒泡遍数显示在Label2上。程序运行界面如下所示。

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

相关试卷

公司介绍

服务介绍

帮助中心