2018-2019学年浙江省重点中学高三(上)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)
-
1.下列关于信息的说法,不正确的是( )
组卷:19引用:1难度:0.6 -
2.下列关于网页与电子邮件的说法,正确的是( )
组卷:5引用:1难度:0.5 -
3.关于微信小程序“智能扫描助手”的相关操作如下:
①使用微信“扫一扫”功能,打开“智能扫描助手”
②使用手机拍照功能获取图象
③使用识别功能识别图象中的文字
④使用语音输入法纠正错误的识别结果
⑤将识别结果翻译成英文
⑥复制识别结果后发送给好友
其中体现人工智能技术的是( )组卷:12引用:1难度:0.6 -
4.关于Access数据库和数据表,下列说法正确的是( )
组卷:16引用:2难度:0.4 -
5.某算法的部分流程图如图所示,若输入m的值是5,执行这部分流程后,变量s和i的值是( )
组卷:8引用:3难度:0.4
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.循环排序。任意生成10个[1,100]之间的整数,编程实现将这10个数进行循环升序排序,即首尾相连后是一个升序序列。要求最小值位置不变,然后依次进行排列。程序运行界面如图所示:
实现上述功能的VB程序如下,加框处的代码有误,请改正。
Dim a(1 To 10)As Integer,b(1 To 10)As Boolean
Private Sub Command1_Click ( )
Dim min As Integer,pmin As Integer
min=a(1):pmin=1
For i=2 To 10
If a(i)<=min Then min=a(i):pmin=i
Next i
b (pmin)=True
pmin=
If pmin=0 Then pmin=10
For i=1 To 8
k=pmin
For j=1 To 10
IfThen k=j
Next j
If k<>pmin Then
temp=a(k):a(k)=a(pmin):a(pmin)=temp
End lf
b(pmin)=True
pmin=pmin-1
If pmin=0 Then pmin=10
Next i
将排序后的结果输出在列表框List2中,代码略。
End Sub
Private Sub Form Load ( )
随机生成10个[1,100]之间的整数,存储在数组a中,并初始化数组b为 False,按顺序输出在列表框List1中,代码略。
End sub组卷:3引用:1难度:0.4 -
17.成绩赋分。浙江省的选考成绩采用等级赋分制,共分为21档。赋分方法是先将该科目的成绩从高到低排序,再依次根据不同档次的人数进行赋分。当成绩相同但人数超出该等级人数时,则减少下一档的人数。当原始成绩为0分,则赋分成绩也为0分。某学校某门科目的选考人数为200人,部分成绩如图a所示,其相应等级的人数如图b所示。请回答下列问题:
(1)根据题意,观察赋分表,考号670500554的学生的赋分成绩是
(2)实现上述功能的程序如下,请在横线处填上合适的代码。
Dima(1To21)As Integer′该档次赋分分值
Dimb(1To21)As Integer′该档次人数
Dim kh(1To200)As String′学生考号
Dim cj1(1To200)As Integer'学生的原始成绩
Dim cj2(1To200)As Integer'学生赋分后的成绩
Private Sub Form_Load( )
'从数据库中读取数据,将21个等级的分值和人数存储在数组a和数组b中,将学生的考号和原始成绩存储在数组kh和数组cj1中。最终根据原始成绩从高到低排序后将kh和cj1输出在列表框 ListI中,代码略。
End sub
Private Sub Commandl_Click( )
Dim k As Integer
Dim flag As boolean'是否还可以对该档次进行赋分
k=1:t=1:cj2(1)=a(1):flag=True
For i=2 To 200
′根据学生的原始成绩按档次进行赋分
If cjl(i)=oThen
cj2(i)=0
Elsele①
t=t+1:cj2 (i)=a(k)
Else
flag=False
End If
If Not flag then'当前档次的分值已经赋分完毕
Do While t>b(k)
②
Loop
t=t+l:cj2(i)=a(k):③
End If
Next i
List2.AddItem″学生考号″+″″+″学生成绩″
For i=1 To 200
List2.AddItem kh (i)+″″+Str(cj2(i))
Next i
End sub组卷:5引用:1难度:0.1