2019-2020学年浙江省丽水市普通高中高二(下)期末信息技术试卷
发布:2024/12/5 14:30:2
一、选择题(本大题共11小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分。)
-
1.下列关于信息获取的描述,正确的是( )
组卷:4引用:2难度:0.7 -
2.下列应用中,体现了人工智能技术的是( )
组卷:1引用:2难度:0.7 -
3.使用Access软件打开数据库,部分界面如图所示,下列说法正确的是( )
组卷:1引用:2难度:0.6 -
4.网络中每台设备都有一个唯一的网络标识,叫MAC地址,用十六进制数表示。某设备的MAC地址为“74-27-EA-F0-A7-6F”。下列说法正确的是( )
组卷:3引用:2难度:0.6 -
5.使用GoldWave软件编辑某音频文件,部分界面如图所示,下列说法正确的是( )
组卷:1引用:2难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分。)
-
14.某加密算法对大写字母加密,其加密规则如下:密文的ASCII码值=明文的ASCII码值+密钥,加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得,获得密钥的方式为:如字母“A”的ASCII码值为65,将65反复除3,其转换过程如图1所示,得到商为2,密钥在矩阵中所在行;得到余数2,密钥在矩阵中所在列;商或余数为0,密钥在矩阵中最后一行或最后一列。其程序运行界面如图2所示。
(1)下列对象中没有Caption属性的是
和Text2)。
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
(4)根据程序的功能并结合图2,字母C加密后的密文为
Dim a(1 To 9)As Integer
Private Sub Command1_Click ( )
Dim column As Integer,row As Integer,t As Integer,tmp As Integer
Dim s As String,ch As String,result As String
s=Text1.Text:result=““
For i=1 To Len(s)
ch=Mid(s,i,1):t=①
column=(t-1)Mod 3+1
Do While t>=3
t=t\3
Loop
row=
tmp=(Asc(ch)+②
result=result+Chr(tmp)
Next i
Text2.Text=result
End Sub
Private Sub Form_Load ( )'用来生成3*3矩阵
For i=1 To 9
a(i)=Int(Rnd*9)+1
s=s+Str(a(i))
If i Mod 3=0 Then
List1.AddItem s
s=““
End If
Next i
End Sub组卷:0引用:1难度:0.3 -
15.某校跳高比赛计分规则如下:每个高度每位选手最多试跳三次,成功记为1,失败或轮空记为0。如选手第一次试跳成功记为100,第二次试跳成功记为010,第三试跳成功记为001,三次失败则终止比赛。编写VB程序统计选手积分,在文本框Text1中输入姓名和成绩,在列表框List1中输出结果,其算法如下:1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a (该数组元素的值都不相同)。2.先比较数组a中各数组元素的长度,长度长的排名在前;若长度相同的情况下从后往前依次比较字符大小,当前数值大的排名在前。程序运行界面如图所示:
请在横线处填入合适的代码。
Dim a(1 To 9)As String'存储跳高成绩
Dim b(1 To 9)As String'存储学生姓名
Dim c(1 To 9)As Integer
Private Sub Command1_Click ( )
Dim ch As String,tmp As Integer,t As Integer
Dim p As Integer,k As Integer,i As Integer,j As Integer
Dim s As String
s=Text1.Text:t=0
For i=1 To ①
If Mid(s,i,1)<>“/“Then
ch=ch+Mid(s,i,1)
Else
t=t+1
If t Mod 2=0 Then
a(t\2)=zh(ch)
Else
②
End If
ch=““
End If
Next i
For i=1 To t\2
c(i)=i
Next i
For i=1 To t\2-1
p=i
For j=i+1 To t\2
If Len(a(c(p)))<Len(a(c(j)))Then
p=j
ElseIf Len(a(c(j)))=Len(a(c(p)))Then
k=Len(a(j)):flag=True
Do While k>=1 And flag
If Val(Mid(a(c(j)),k,1))>Val(Mid(a(c(p)),k,1))Then
p=j
flag=false
ElseIf val(Mid(a(c(j)),k,1))=val(Mid(a(c(p)),k,1))Then
k=k-1
Else
flag=False
End If
Loop
End If
Next j
If p<>i Then
tmp=c(i):c(i)=c(p):c(p)=tmp
End If
Next i
For i=1 To t\2
③
Next i
End Sub
Function zh(cm As String)As String
Dim temp As String
Dim i As Integer,j As Integer
For i=1 To④
For j=1 To 3
temp=temp*2+Val(Mid(cm,(i-1)*3+j,1))
Next j
zh=zh+CStr(temp)'CStr函数可把表达式转换为字符串类型
temp=0
Next i
End Function组卷:0引用:1难度:0.3