2020年浙江省舟山中学高考信息技术仿真模拟试卷
发布:2024/11/24 13:30:2
一、(本大题共12小题,每小题2,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)
-
1.下列有关信息与信息技术的说法,正确的是( )
①信息表达的规范化有利于信息的交流
②信息的表示、传播、存储不一定依附于某种载体
③多媒体信息必须数字化后,才能被计算机存储和处理
④信息的加工和管理必须使用计算机才能完成
⑤近代信息技术有摄影技术、微电子技术、广播和电视技术
⑥信息具有时效性,获取的信息应当立即发布
⑦信息具有共享性,可以在网盘中共享各类视频点播服务组卷:5引用:1难度:0.6 -
2.下列关于网站与网页描述正确的是( )
组卷:5引用:1难度:0.6 -
3.有一条数据“20210106,杨逸,False,2001/12/08”想分别复制到相应的字段中,有出错提示,可能原因是( )
组卷:4引用:1难度:0.6 -
4.一幅大小为 1024*768,位深度为 24 位的 BMP 图片,把它另存为大小为 512*768 像素的黑白 256 级灰 度 BMP 图象,其存储容量约为原来的( )
组卷:1引用:1难度:0.6 -
5.使用 GoldWave 软件打开某音频文件,选中一段音频后的部分界面如图所示。下面说法正确的是( )
组卷:1引用:2难度:0.2
二、非选择题(本大题共4小题,其中第1小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.现要编写一个程序,对每个班级的同学生成考试座位号,规则如下:先按成绩从高到低排序,如果成绩相同,学号在前的学生座位号在前,最后输出每个同学的座 位号。小王和小李采用不同的方法实现了上述算法。 请仔细比较两位同学的代码的不同之处,并完成相关代码的填空。
Dim xm(1 To n) As String,xh(1 To n) As String
Dim cj(1 to n)As Integer
Private Sub form_load ( )
‘读取相关数据表,把姓名、学号、成绩分别存储到数组 xm、xh、cj 中,并在 List1 中显示,代码略 End Sub
Private Sub Com1_Click ( )′小王编写的代码部分
Dim wz(1 To n) As Integer
For i=1 To n-1 wz(i)=i
For j=n To i+1 Step-1
If (1)Then
t=cj(j):cj(j)=cj(j-1):cj(j-1)=t t=xh(j):xh(j)=xh(j-1):xh(j-1)=t
End If
Next j
Next i
(2) For i=1 To n-1
For j=n To i+1 Step-1
If(3)Then
t=cj(j):cj(j)=cj(j-1):cj(j-1)=t t=xh(j):xh(j)=xh(j-1):xh(j-1)=t t=wz(j):wz(j)=wz(j-1):wz(j-1)=t
End If
Next j
Next i
List2.Clear
List2.AddItem″学号 姓名 成绩 座位号″For i=1 To n
List2.AddItem xh(i)+″″+xm(i)+″″+Str(cj(i))+““+Str(wz(i))
Next i
End Sub
Private Sub Com2_Click ( )′小李编写的代码部分
Dim wz(1 To n) As Integer,t(1 To n) As Integer
For i=1 To n t(i)=i
Next i
For i=1 To n
For j=n To i+1 Step-1
If(4)Then
temp=t(j):t(j)=t(j-1):t(j-1)=temp
End If
Next j(5)Next i
List2.Clear
List2.AddItem″学号 姓名 成绩 座位号″For i=1 To n
List2.AddItem xh(i)+″″+xm(i)+″″+Str(cj(i))+″″+Str(wz(i))
Next i
End Sub组卷:5引用:1难度:0.3 -
16.小奕同学基于排序算法设计了一个数字矩阵排序的程序。程序界面如图所示,在文本框中输入矩阵大小,点击“生成”按钮 Command1,在左侧列表框 List1 中输出一个长宽均为指定大小的随机 整数矩阵,随机整数范围为【1,99】。点击“排序”按钮 Command2,结果输出在右侧列表框 List2 中,奇数行从左到右依次递增,偶数行从右至左依次递增,且保持输出矩阵的长宽不变。
(1)实现上述功能的 VB 程序如下,显示数据用的additem 是一种
/B.事件名/C.方法名/D.过程名)。
(2)请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。Dim a(1 To 100)As Integer
Dim n As Integer
Function dq(s As String,L As Integer) As String'自定义对齐函数
Rem 在输入的字符串 s 前加若干空格,输出长度为 L 的字符串,代码略 End Function
PrivateSub Command1_Click ( )'生成数字矩阵
‘随机生成 n^2 个数字,存储在数组 a 中,代码略
‘以一行 n 个,共 n 行的格式显示在 List1 中,代码略
End Sub
Private Sub Command2_Click ( )'数字矩阵排序
Dim i As Integer,k As Integer,j As Integer,s As String
Dim f As Boolean
List2.Clear f=True
For i=1 To n^2 Step n s=″″
For j=i To
k=n^2
Do While①
If a(k)<a(k-1)Then
t=a(k):a(k)=a(k-1):a(k-1)=t
End If
k=k-1
Loop
If f=True Then
s=s+″″+dq(Str(a(j)),2)Else
s=″″+dq(Str(a(j)),2)+s
End If Next j List2.AddItem s
② Next i
End Sub组卷:0引用:1难度:0.5