2020年浙江省“山水联盟”高考信息技术模拟试卷
发布:2024/12/31 5:30:4
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)
-
1.下列关于信息的说法,不正确的是( )
组卷:1引用:1难度:0.7 -
2.小齐起床后先后做了下列事情,其中体现人工智能技术应用的是( )
组卷:3引用:1难度:0.7 -
3.使用 Access 打开数据库,部分界面如图所示,下列说法正确的是( )
组卷:5引用:1难度:0.7 -
4.使用 UltraEdit 软件查看字符内码,部分界面如图所示。下列说法正确的是( )
组卷:3引用:1难度:0.5 -
5.用 GoldWave 软件编辑音频,部分界面如图所示。下列说法正确的是( )
组卷:0引用:1难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.小章想将a数组中n个元素排列成合唱队列形态,具体方法如下:
①如果n是奇数,选出所有数据中最大元素,将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素,同时将较大元素放在已处理数据段的右侧,较小元素放在已处理数据段的左侧。
③反复执行操作②,直到所有数据处理完毕。按上述要求,小章编写一个VB程序,功能如下:
在文本框Text1中输入n,单击“生成”按钮Command1,并在文本框 List1 中显示排序前 数据;单击“排序”按钮Command2,在列表框 List2 中输出处理后的结果。程序运行界面如图所示。
(1)下列哪个选项,可以将窗体Form1标题改为:“生成合唱队列”
(2)实现上述功能的VB程序如下,请在横线处①②③填入合适代码。
(3)程序加框处代码有错,请改正。
Dim a(1 To 100)As Integer
Dim n As Integer
Private Sub Command1_Click ( )
'在文本框 Text1 中输入 n(n<=100)
'排序前数据存储在数组 a 中,并在文本框 List1 中显示
'代码略
End Sub
Private Sub Command2_Click ( )
Dim i As Integer,j As Integer,t As Integer
Dim pMax1 As Integer,pMax2 As Integer pMax1=n\2+1:pMax2=n\2
If①Then
For i=1 To n
If a(i)>a(pMax1)Then t x k w=a(pMax1):a(pMax1)=a(i):a(i)=t
Next i
pMax1=pMax1+1
End If
For i=1 To n\2
If ②Then t=a(pMax1):a(pMax1)=a(pMax2):a(pMax2)=t j=pMax1 Mod n+1
Do While j<>pMax2
If a(j)>a(pMax1)Then
t=a(pMax1):a(pMax1)=a(j):a(j)=t t=a(pMax2):a(pMax2)=a(j):a(j)=t
t=a(pMax2):a(pMax2)=a(j):a(j)=t
End If
③
Loop
pMax1=pMax1+1
pMax2=pMax2-1
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub组卷:0引用:2难度:0.5 -
16.为促进学生学习中互帮互助,每次考后章老师都会按成绩重新编排机房上课位置,编排要求如下:
(1)按分数从高到低排序。若分数相同,则按学号进行升序排序。
(2)以班级为单位,排出从 1 号开始的机房座位表。章老师编写了一个位置编排功能的 VB 程序,运行界面如图所示。
在文本框 Text1 中输入班级名称,单击“读数据库”按钮 Command1 后,从数据库读取数 据并显示在列表框 List1 中;单击“编排”按钮 Command2,在列表框 List2 中输出学号、姓名、成绩和位置信息。程序运行界面如图所示。
实现以上功能的 VB 程序如图,请回答下列问题:
(1)分析程序,可知数据库的文件名为
(2)请在横线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40)As Integer,xm(1 To 40)As String,cj(1 To 40)As Integer
Private Sub Command1_Click ( )
'本过程在文本框 Text1 中输入班级名称,从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=″
+App.Path+″\js.jye.ai″
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection=conn
rs.Open″select*from 技术″
'本过程的其他语句略
End Sub
Private Sub Command2_Click ( )
Dim wz(1 To 40)As Integer
Dim i As Integer,j As Integer
List2.AddItem“学号″&″″&″姓 名″&″″&″成绩″&″″&″位置″
For i=1 To n
①
Next i
For i=1 To n
For j=1 To n
If ②Then wz(i)=wz(i)+1
End If
Next j
List2.AddItem adj(Str(xh(i)))+adj(xm(i))+adj(Str(cj(i)))+adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String'固定输出 5 个字符长度
Dim i As Integer
③
For i=1 To 5-Len(c)
adj=adj+″″
Next i
End Function组卷:0引用:1难度:0.5