2020年浙江省温州市永嘉中学高考信息技术仿真试卷(3月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.语文课本中收录了孟浩然的诗《春晓》。下列说法正确的是( )
组卷:12引用:3难度:0.7 -
2.下列有关电子邮件的说法,正确的是( )
组卷:0引用:1难度:0.5 -
3.Access中的一张数据表设计视图如图所示。下列说法正确的是( )
组卷:7引用:3难度:0.5 -
4.某大于1小于128的十进制奇数x,将其转化为二进制数y,下列说法正确的是( )
组卷:34引用:1难度:0.2 -
5.使用GoldWave软件编辑某音频文件,选中其中一段音频进行编辑的界面如图所示,下列说法正确的是( )
组卷:10引用:1难度:0.7
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.编写了一个寻找最长连续相同子串的程序,功能如下:程序运行时,在文本框Text1中输入一个非降序字符串。单击输出按钮Command1后,在文本框text2上显示最长相同子串。程序运行界面如图所示。
(1)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Private Sub Command1_Click
Dim a(1 To 100)As String,s As String
Dim i As Integer,m As Integer,n As Integer,pos As Integer
Dim L As Integer,R As Integer,length As Integer,Max As Integer
s=Text1.Text
n=Len(s)
For i=1 To n
a(i)=Mid(s,i,1)
Next i
For i=1 To n
L=i+1:R=n
Do While L<=R
m=(L+R)\2
If①Then
L=m+1
Else
R=m-1
End If
Loop
②
If length>Max Then
Max=length:pos=i
End If
i=i+length-1
Next i
Text2.Text=
End Sub
(2)上述程序段中加框处代码有误,请改正。
(3)若文本框Text1中输入的非降字符串是“00111222”,执行这段程序后,文本框Text2中输出的内容是组卷:0引用:1难度:0.6 -
16.在一个数组中存储了若干个学生的技术成绩小题分,其中a(1)存储学生个数,从a(2)开始按顺序存储小题分数据。每个学生有33个小题的数据,例:a(2)-a(13)是“学生1”的信息客观题得分,a(27)-a(30)是“学生1”的信息主观题得分;a(14)-a(26)是“学生1”的通用客观题得分,a(31)-a(34)是“学生1”的通用主观题得分。
具体如表:题号 1-12 13-25 26-29 30-33 科目题型 信息客观题 通用客观题 信息主观题 通用主观题 满分分值 每题2 分 每题2分 4/8/7/7 6/9/3/6
算法的VB程序如下,回答下列问题。
(1)根据题目描述,使用如图所示数据,a(95)的数值是
(2)在程序横线处填上合适代码,使程序完整
Dim a(1 To 1000)As Integer,n As Integer
Private Sub Form_Load ( )
‘读入数据到数组a,数据个数n,代码略
End Sub
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 Single'数组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组卷:1引用:1难度:0.5