2017年浙江省嘉兴市普通高校招生选考信息技术试卷
发布:2025/1/4 2:30:2
一、选择题(共12小题,每小题2分,满分24分)
-
1.下列有关信息的说法中错误的是( )
组卷:11引用:1难度:0.9 -
2.下列有关网页的说法中错误的是( )
组卷:11引用:1难度:0.9 -
3.下列应用中,使用了OCR技术的是( )
①车辆牌照识别系统拍摄车辆照片后,自动识别出其中的车牌号码
②视频监控系统监测红绿灯路口的车辆通行情况
③某手机云笔记App通过扫描文字稿件,自动识别后转化为可编辑的文本
④手机拍摄练习题解题过程照片,并发布在班级QQ群中讨论
⑤某手机银行App转账时,通过扫描银行卡自动输入卡号.组卷:7引用:1难度:0.9 -
4.下列有关Access数据表的操作,说法正确的是( )
组卷:8引用:1难度:0.5 -
5.已知二进制数“1000B”是二进制数“10B”的4倍,那么十六进制数“B00H”是十六进制数“BH”的几倍( )
组卷:5引用:1难度:0.5
二、解答题(共5小题,满分26分)
-
16.【加试题】简化的VB词频统计程序.程序功能为:在文本框Text1中输入一篇英文文章,在文本框Text2中输入一个英文单词,单击按钮Command1后,在文本框Text3中显示这个英文单词出现的次数.程序运行界面如图所示.
查找的英文单词由连续的ASCII英文字符(a~z或A~Z)组成.组合词程序会进行分解,如river-small可拆分为2个单词river和small.查找的英文单词不区分大小写.程序代码如下:
Private Sub Command1_Click( )
Dim article As String,f As String,count As Integer
Dim i As Integer,begin As Integer,s As String
article=Text1.Text:f=Text2.Text:count=0
begin=1
For i=1 To Len(article)
t=Mid(article,i,1)
If Not (t>=“A“And t<=“Z“Or t>=“a“And t<=“z“) Then
If i>begin Then
s='(1)
If LowerCase(f)=LowerCase(s) Then
count=count+1
End If
begin=i+1
End If
Next i
Text3.Text=“出现次数为:“+Str(count)+“次“
End Sub
'单词转化为全小写的形式
Function LowerCase(word As String) As String
Dim i As Integer,e As String
For i=1 To Len(word)
c=Mid(word,i,1)
'小写英文字母的ASCII码值比大写字母的值大32
If c>=“A“And c<=“Z“Then c='(2)
LowerCase=LowerCase+e
Next i
End Function
程序中(1)、(2)处加框代码有误,请改正.
(1)处加框代码应修改为:
(2)处加框代码应修改为:组卷:5引用:1难度:0.3 -
17.【加试题】领礼物.圣诞节到了,教室里放满了礼物,大家站在同一位置即原点(0,0)处,根据自己拿礼物的序号轮流去拿礼物,每个人只能拿离自己最近的礼物,每件礼物的位置用坐标(x,y)表示.如果有多个礼物离你的距离相等(精确到小数后二位)且最近,则这些礼物都归你所有.
程序运行时,在文本框Text1中输入共有礼物数n,单击“读取数据”按钮Command1,将从数据库gift.accdb中读取n个礼物的信息存储在相应的数组中,并显示在列表框List1中;在文本框Text2中输入轮到你拿礼物的序号(即第几个拿),单击“计算”按钮Command2,则在列表框List2显示你获得的礼物信息,并在列表框list2最后一行显示获得的礼物总数.程序运行界面如图所示.
实现上述功能的VB程序代码如下,请回答下列问题.
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim bh(1 To 100)As String'数组bh存储礼物的编号
Dim x(1 To 100)As Single,y(1 To 100)As Single'数组x、y分别存储礼物的横坐标和纵坐标
Dim dist(1 To 100)As Single'数组dist存储礼物到原点的距离
Dim n As Integer'变量n表示礼物数
Private Sub Command1_Click( )
Dim i As Integer
'从数据库中读取n件礼物的编号、横坐标、纵坐标,并存储在相应的数组中
'代码略,下面代码的功能是计算各礼物到原点的距离
For i=1 To n
dist(i)=
List1.AddItem bh(i)+““+Str(x(i))+““+Str(y(i))+““+Str(dist(i))
Next i
End Sub
Private Sub Command2_Click( )
Dim xh As Integer,i As Integer,j As Integer,k As Integer
Dim temp1 As String,temp2 As Single,p As Single,s As Single
xh=Val(Text2.Text)
'将礼物按到原点的距离从小到大排序,代码略
i=0:j=1:s=0
Do While(i<xh)And(j<=n)
If dist(j)<>s Then
i=i+1
End If
j=j+1
Loop
u=0
j=j-1
Do While
List2.AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))
u=u+1
j=j+1
Loop
List2.AddItem“total:“+Str(u)
End Sub
(1)请在程序横线处填入合适的语句:
划线①处应填入的语句为:
划线②处应填入的语句为:
划线③处应填入的语句为:
(2)假设现共有14件礼物,礼物的信息如图所示,你轮到第10个拿礼物,则你获得的礼物数为组卷:5引用:1难度:0.1