浙江省十校联盟2020届高三上学期信息技术10月联考试卷
年级: 学科:信息技术(信息科技) 类型:月考试卷 来源:91题库
一、选择题(本大题共12小题,每小题2分,共24分。) (共12小题)
①在微信中将对方发来的语音转换为文字
②使用某OCR软件中的扫描图像功能,将一份杂志的目录页面扫描成JPG文件
③某停车场管理系统通过调用出、入口的摄像头对汽车车牌进行拍照并识别,从而实现无人管理
④小明在Word中输入了某一错别字时,该错别字被自动更正




Dim adoConn As New ADODB Connection
Dim adoRs As New ADODB. Recordset
Dim a(1 to 1000)As String, b(1 to 1000) As Integer
adoConn ConnectionString "Provider=Microsoft. ACE OLEDB 12.0:DATA Source="& App. Path &\mydata. accdb
adoConn. Open
Set adoRs. ActiveConnection= adoConn
adoRs. Open “Select*From Score”
n=0
Do While Not adoRs. EOF
n=n+1
a(n)= adoRs. Fields(“学号”). Value
b(n)=adoRs.Fields(3). Value
adoRs. Move Next
Loop
adoRs. Close:adoConn. Close
下列对于该程序段的理解正确的有
①程序连接的数据库文件名是“ \mydata. accdb”
②程序打开的数据表名称是“ Score"
③程序将数据表中的语文成绩存入数组b
④程序运行后,变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为adoConn. close
For i=1 To 100
For j=i To 100
If j Mod i=0 Then a(j)=a(j)+1
Next j
Next i
Text1. Text=Str(a(30))
数组a各元素的初值为0,执行上述程序段后,文本框Text中输出的内容为( )
i=1:j=12:k=0:s=””
key= Va1(TextI Text): c=N: flag= False
Do While i<= j And flag= False
m=(i1+j+1)\2:k=k+1
If key= a(m) Then c=Y: flag=True
If key >a(m) Then j= m-1 Else i =m+1
s=s& Str(a(m))
Loop
Text2 Text s: Text3 Text= c
数组a(1)到a(12)的值依次为“991.85.76,68.61,53,42.34,27,20,13”,执行该程序段后,下列说法正确的是( )
待排序数据已存储在数组a中(a(1)~a(n))
For i= 1 To n-2
k= i
For j= ‘①
If a(j)>a(k) Then k =j
Next j
If k<>i Then t= a(i): a(i)= a(k): a(k)=t
Next i
For i= 1 To n\ 2
j=2*i-1
If a(j)< a(j+ 1) Then t= a(): a()=a(j+ 1): a(j+1)=t
Next i
For i= ‘②
t= a(i):j-i
Do While t> a(j)
a(j+1)=a():j=j
Loop
‘③
Next i
上述程序段中3处方框处的代码分别为( )
二、非选择题(本大题共4小题,4+8+7+7,共26分) (共4小题)
(满意率:是指该门课“非常满意”和“满意”的评价人数之和除以评价总人数)
场景:Main |
类别序号:2 |
进入方式:由“Load”场景单击“播放”钮进入 |
呈现方式 ⒈“文字2”从舞台外由右向左移动到房子的上方,同时“文字2”由完全透明至完全显示 ⒉“重播”按钮位于舞台右上方,单击该按钮,该场景从第1帧开始播放。 ⒊其他动画略。 |
呈现顺序说明: ⒈一开始出现“远山”“近景”、“文字1”和“船”的动画,再依次出现“大雁”、“文字2”和“菊花“的动画。 ⒉最后出现“重播”按钮,并停止播放。 |
按纪念品价值进行分组,每组总价值不超过限定值w且最多包含两件,要求分组数最少。编写VB程序解决该问题,程序运行时,在文本框Text1中依次输入每件纪念品的价格(不超过w),以逗号分隔,在文本框Text2中输入限定值w,单击“分组”按钮,在标签Label2上输出最少的分组数。程序运行界面如图所示。
Private Sub Command1 Click()
Dim a(1 To 1000), n As Integer, w As Integer, cnt As Integer
Dim i As Integer, j As Integer, t As Integer
Dim s As String, ch As String
Dim p As Integer, q As Integer
s= Text1. Text: w= Val (Text2 Text): n=0
For i= 1 To Len (s)
ch= Mid(s, i, 1)
If ch=“,”Then
n=n+1:a(n)=t:t=0
Else
t=
End If
Next i
For i= n To 2 Step-1
For
j= 1 To ‘
If a(i)< a(j+1)Then
t=a(j):a(j)=a(j+1):a(+1)=t
End If
Next j
Next i
cnt=0
p=1:q=n
Do While<p
cnt=cnt+1
If Then
p=p+1: q=q-1
Else
p=p+1
End If
Loop
If p= q Then cnt=cnt+1
Labe12 Caption=Str(cnt)
End Sub
解决此问题可采用自底至顶分析的方法。如图a所示的数塔中,先从第3层开始分析:如果路径经过第3层的第1个数字12,那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值,记作f(3,1)=12+141同理,f(3,2)=7+15、f(3,3)=26+15:再分析第2层,计算f(2,1)、f(2,2):最后计算出第1层f(1,1),即为所求结果。

Const n= 5
Dim a(1 To n^2) As Integer ‘数组a存储数塔数据,存储结构如图c所示
Dim f(1 To n^2) As Integer ‘数组f存储从第i层第j个数到底层尾结点的最大数字之和,其存储结构与数组a一样
Private Sub Command2Click()
‘生成数塔,将数据存入a数组中,代码略
End Sub
Private Sub Command2Click()
Dim i As Integer, j As Integer, k As Integer
For j=1 To n
f((n-1)*n+j)=
Next j
For i=
For j=1 To i
k=(1-1)*n+j
f(k)=
Next j
Next i
Label1.Caption=“路径上的数字和最大值为:"+Str(f(1)
End Sub
Function max(a As Integer, b As Integer) As Integer
If a>b Then max=a Else max=b
End Function