2019年浙江省嘉兴市高考信息技术选考模拟试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息技术与信息资源评价的说法,错误的是( )
组卷:19引用:1难度:0.6 -
2.下列有关电子邮件的说法,正确的是( )
组卷:1引用:1难度:0.5 -
3.小李在使用OCR软件进行字符识别时,部分界面如图所示。下列说法正确的是( )
组卷:8引用:1难度:0.6 -
4.下列关于关系数据库的描述中正确的是( )
组卷:12引用:1难度:0.5 -
5.某算法的部分流程图如图所示,执行这部分流程,下列说法正确的是( )
组卷:2引用:1难度:0.4
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分第15小题8分,第16小题3分,第17小题6分,共26分.)
-
16.小明基于冒泡排序算法编写了一个VB程序,功能如下:单击“生成”按钮Command1,在列表框List1中生成用于排序的n个数据,单击“排序”按钮 Command2,对这组数据进行错位排序(即从前往后依次是最小的、最大的第二小的、第二大的……依此类推),在列表框List2中依次输出数据排序后的结果,程序运行界面如图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正
Dim n As Integer,a(1 To 100)As Integer
Private Sub Command1 Click( )
’该段程序用于随机产生n个整数,存储在数组a中,并显示在列表框istl中,代码略
End Sub
Private Sub Command2_ Click( )
Dim i As Integer,j As Integer,tmp As Integer
List2.Clear
tmp 1
For i 1 To n-1
For j=n To i 1 Step-1
a(i)=a(j)+a(j-1)
a(i-1)=a(j)-aj-1)
a(j)=a(j)-a(j-1)
End if
Next j
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End sub组卷:5引用:1难度:0.4 -
17.过桥问题。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①
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中显示的最短耗时是组卷:7引用:2难度:0.3