2019-2020学年浙江省稽阳联谊学校高三(上)月考信息技术试卷(12月份)
发布:2024/12/2 3:30:1
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.关于信息与信息技术,下列说法正确的是( )
组卷:13引用:1难度:0.5 -
2.使用OCR软件进行字符识别,下列说法正确的是( )
组卷:5引用:1难度:0.5 -
3.使用ACCESS软件打开某数据库,部分界面如图所示,下列说法正确的是( )
组卷:6引用:1难度:0.5 -
4.用UltraEdit软件观察字符内码,部分界面如图所示,下列说法正确的是( )
组卷:7引用:1难度:0.4 -
5.有一段未压缩的无声视频,已知该视频的帧频是25fps,颜色位数为16位,分辨率是800*600,视频存储容量约1.35GB,则视频的时长约是( )
组卷:0引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13题4分,第14题8分,第15题7分,第16小题7分,共26分.)
-
15.下列VB程序实现数字字母混合序列分离后分别排序,最后又合并输出。具体算法如下:在文本框Text1输入若干组混合序列,每组序列中仅包含一组字母和一个多位数字,序列之间用逗号隔开,以逗号结束。单击“排序”按钮command1,把每组序列中的字母和数字分开,并分别排序,最后在列表框list1输出。排序规则如下:所有数字按从小到大升序排序,字母序列按长度升序排序,若长度相同,直接按字母序列大小升序排序(按字母的ASCII码排序,“A”<“Z”<“a”<“z”)。实现算法的部分程序界面如图所示,VB程序代码如下,回答下列问题:
Private Sub Command1_Click( )
Dim a(1 To 6)As Integer,b(1 To 6)As String,I as integer,j as integer
Dim c As String,k As Integer,tmp1 As Integer,tmp2 As String
s=text1.text
i=1:k=1:tmp1=0:tmp2=″″
Do While i<=Len(s)
c=Mid(s,i,1)
If c=“,“Then
a(k)=tmp1:b(k)=tmp2
tmp1=0:tmp2=″″
Else
IfThen
tmp2=tmp2+c
Else
tmp1=tmp1*10+val(c)
End If
End If
i=i+1
Loop
For i=1 To 5
For j=1 To 6-i
If a(j)>a(j+1)Then tmp1=a(j):a(j)=a(j+1):a(j+1)=tmp1
If Len(b(j))>Len(b(j+1)) Or
tmp2=b(j):b(j)=b(j+1):b(j+1)=tmp2
End If
Next j
Next i
For i=1 To 6
List1.AddItem Str(a(i))+b(i)
Next i
End Sub
(1)代码“list1.AddItem”中的AddItem是
(单选,填字母:A.属性名 B.对象名 C.方法 D.事件名 )
(2)在程序横线处填入合适代码,使程序完整
(3)加框处代码有错,请改正
(4)若输入的字符串为“21ckk,gho63,TCP43,23Yes,no62,phy46,”,则程序运行后第3组字符是组卷:0引用:1难度:0.5 -
16.在一个数组中存储了若干个同学的技术成绩小题分,其中a(1)存储学生个数,a(2)开始按顺序存储小题分数据。每个学生有33个小题的数据,例:a(2)~a(13)是学生1的信息选择题得分,a(27)~a(30)是学生1的信息4个主观题得分。具体如下表
题号 1-12 13-25 26-29 30-33 科目题型 信息客观题 通用客观题 信息主观题 通用主观题 满分分值 每题2分 每题2分 4/8/7/7 6/9/3/6
(1)根据题目描述,使用如图所示数据,a(95)的数值是
(2)在程序横线处填上合适代码,使程序完整
Dim a(1 To 1000)As Integer,n As Integer
Private Sub Command1_Click( )
Dim i As Integer,j As Integer
Dim fz(1 To 16)As Integer'fz数组存储信息各题满分值
Dim b(1 To 33)As Double'数组b存储全卷各题的得分率
For i=1 To 16‘数组fz存储信息16个小题的满分值
If i<=12 Then fz(i)=2
fz(13)=4:fz(14)=8:fz(15)=7:fz(16)=7
Next i
For i=2 To n'把数组a数据分别统计到各题中
b(j)=a(i )+b(j)
Next i
For i=1 To 33'仅处理信息各题的平均分
If i<=12 Then
b(i)=b(i)/(a(1)*fz(i))’计算信息选择题各题的得分率
ElseIf i>=26 And i<=29 Then
b(i)=
End If
Next i
For i=1 To 16
If i>12 Then j=i+13 Else j=i
b(j)=Int(b(j)*1000+0.5)/10'对结果四舍五入保留1位小数
List2.AddItem Str(i)+Str(b(j))+“%“
ave=
Next i
Text1.Text=Str(ave/100)
End Sub
Private Sub Form_Load( )
‘读入数据到数组a,数据个数n,代码略
End Sub组卷:0引用:1难度:0.5