2022-2023学年云南省昭通市巧家一中高一（下）第二次测评信息技术试卷
发布：2024/4/20 14:35:0
一、选择题
-
1．某VB程序段如下：
i=1：j=6：key=8
DoWhilei＜=j
m=（i+j）\2
Ifa（m）＜keyThen
j=m-1
Else
i=m+1
EndIf
Loop
数组元素a（1）到a（6）的值依次为“9，8，8，8，7，6”，运行该程序段后，下列说法正确的是（ ）组卷：0引用：2难度：0.4 -
2．下列关于信息和信息技术的说法，正确的是（ ）
组卷：2引用：1难度：0.7 -
3．位图的最小单位为（ ），因而也叫点阵图。
组卷：4引用：1难度：0.7 -
4．计算机能直接识别、理解执行的语言是（ ）
组卷：4引用：7难度：0.7 -
5．有如下程序段：
i=1：j=8：count=0：
f=False
Key=Val（Text1.Text）
Do While i＜=j
m=（i+j）\2
If a（m）=Key Then
count=count+1
f=True
Exit Do
If a（m）＜Key Then
i=m+1
Else
j=m-1
End If
Loop
数组元素a（1）到a（8）分别为1，2，3，4，5，6，6，7，在Text1输入6，执行该程序段后，下面说法正确的是（ ）组卷：3引用：1难度：0.5 -
6．Flash有两种动画，即逐帧动画和补间动画，而补间动画又分为（ ）
组卷：3引用：2难度：0.7 -
7．下列信息来源中，可以通过事物本身直接获取第一手资料的是（ ）
组卷：3引用：2难度：0.8 -
8．姜平希望能在自己的计算机上快速链接到平时喜欢的网站上，比较好的做法是（ ）
组卷：6引用：5难度：0.9 -
9．下列有关浏览器与网页的说法，正确的是（ ）
组卷：6引用：2难度：0.6 -
10．想制作一个以“钓鱼岛问题”为主题的电脑作品，可以使用的制作软件是（ ）
①powerpoint ②Dreamweaver ③word ④flash。组卷：7引用：3难度：0.9
三、操作题
-
31．过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了所有人在最短时间内过桥，设计算法如下：
（1）如果只有1人过桥，时间为个人过桥时间。
（2）如果有2人一起过桥，时间以慢的人为准。
（3）如果有3个人a、b、c,耗时Ta＜Tb＜Tc，过桥方案为让a和b一起过桥，a拿手电筒回来，然后与c一起过桥。
（4）如果存在多于3个人，如a、b、……、y、z需要过桥，耗时Ta＜Tb…＜Ty＜Tz，这时有两种可选方案，选择其中用时少的，直至剩余少于4人。
①最快的1个将最慢的2个分别送过桥。
a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；
②最快的2个将最慢的2个送过桥。
让a、b拿手电筒先过桥，a本手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。
为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮 Command1，在文本框Text1中输出最短耗时，界面如图a所示。
（1）V程序代码如下，请在横线处填入合适的代码。
Dim n As Integer‘存放过河人数
Dim t（1 To 100）As Integer’存放每个人单独过桥时间
Private Sub Form_ Load（ ）
从数据库中读取每个人的过桥时间显示在列表框List1中，并统计总人数n,代码略
End Sub
Private Sub Commandl Click（ ）
Dim i As Integer,k As Integer,j As Integer,temp As Integer
Dim suml 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 Ton
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 suml＜sum2 Then
tsum=tsum+sum2
End If
i=
Loop
If n=1 Then'剩下1个人
tsum=tsum+t（1）
ElseIf n 2 Then'剩下2个人
tsum=tsum+t（2）
Els'剩下3个人
tsum=③
End if
Textl.Text=Str（tsum）
End Sub
（2）如有5个人，他们单独过桥耗时（单位s）如图b所示，则程序运行后文本框Text2中显示的最短耗时是（s）组卷：7引用：2难度：0.3 -
32．小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧，较小元素放在已处理数据段的左侧。
③反复执行操作②，直到所有数据处理完毕。按上述要求，小章编写一个VB程序，功能如下：
在文本框Text1中输入n,单击“生成”按钮Command1，并在文本框 List1 中显示排序前 数据；单击“排序”按钮Command2，在列表框 List2 中输出处理后的结果。程序运行界面如图所示。
（1）下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”（单选，填字 母：A．Form.Caption=“生成合唱队列”/B．Label1．Caption=“生成合唱队列”/C．Form1．Caption=“生成合唱队列”）
（2）实现上述功能的VB程序如下，请在横线处①②③填入合适代码。
（3）程序加框处代码有错，请改正。
Dim a（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （ ）
'在文本框 Text1 中输入 n（n＜=100）
'排序前数据存储在数组 a 中，并在文本框 List1 中显示
'代码略
End Sub
Private Sub Command2_Click （ ）
Dim i As Integer,j As Integer,t As Integer
Dim pMax1 As Integer,pMax2 As Integer pMax1=n\2+1：pMax2=n\2
If①Then
For i=1 To n
If a（i）＞a（pMax1）Then t x k w=a（pMax1）：a（pMax1）=a（i）：a（i）=t
Next i
pMax1=pMax1+1
End If
For i=1 To n\2
If ②Then t=a（pMax1）：a（pMax1）=a（pMax2）：a（pMax2）=t j=pMax1 Mod n+1
Do While j＜＞pMax2
If a（j）＞a（pMax1）Then
t=a（pMax1）：a（pMax1）=a（j）：a（j）=t t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
End If
③
Loop
pMax1=pMax1+1
pMax2=pMax2-1
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub组卷：0引用：2难度：0.5
