2018年浙江省宁波市高考信息选考试卷(3月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求,不选、多选、错选均不得分)
-
1.下列有关信息和信息技术的描述,正确的是( )
组卷:1引用:1难度:0.6 -
2.下列有关浏览器与网页的说法,正确的是( )
组卷:4引用:3难度:0.6 -
3.用 Word 软件编辑某文档,部分界面如图所示。
对于图中信息,下列说法不正确的是( )组卷:6引用:2难度:0.3 -
4.使用UltraEdit软件观察“Word 软件”这几个字符的内码,部分界面如图所示。下列说法正确的是( )
组卷:1引用:1难度:0.6 -
5.某算法的部分流程图如图所示,下列VB代码与图中流程一致的是( )
组卷:0引用:1难度:0.4
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.小李基于选择排序算法编写了一个VB程序,功能如下:在文本框Text1中显示排序前的数据,单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,t As Integer
Dim k As Integer,bottom As Integer
’获取排序前数据,依次存储在数组a中,并在文本框Text1中显示。代码略
bottom=n:i=1
Do While i<=bottom-1
k=i:j=bottom
Do While j>i
If a(j)<a(k) Then
k=j
ElseIf a(j)=a(i) Then’若发现重复数据,进行剔除处理
a(j)=a(bottom)
If k=bottom Then’(1)
bottom=bottom-1
End If
j=j-1
Loop
If k<>i Then
t=a(k):a(k)=a(i):a(i)=t’(2)
End If
i=i+1
Loop
Text2.Text=““
For i=1 To bottom
Text2.Text=Text2.Text+Str(a(i))
Next i
End Sub组卷:0引用:1难度:0.3 -
17.小林发给小周一串密文“VghpcyBpcyBhbiBleGFtcGxl”并告诉小周,这串密文由明文字符串(仅包含ASCII字符,且字节数为3的倍数)经以下规则加密而成:
(1)将明文ASCII码分成3个字节一组,顺次连接后得到24位二进制数;
(2)将得到的24位二进制数字按每6位一组分成4组,每组6个位;
(3)在(2)中得到的6个位前补上两个0,得到4个字节的二进制数;
(4)将(3)中得到的四个二进制数分别转换为十进制数;
(5)将每个十进制数转换为1个加密字符,对应的“密码表”按数值由0到63依次为“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”小周按照上述规则,设计了一个解密VB程序,功能如下:单击“解密”按钮Command1,程序依次将文本框Text1中每4个密文字符按加密规则转换为3个明文字符,连接这些明文字符,最后在文本框Text2中输出结果。程序运行效果如图所示。
实现解密功能的VB程序如下,请回答下列问题:
(1)若密文字符串的长度是120,则解密后明文字符串的长度是
(2)请在横线处填入合适代码。
Function Char2Int(c As String) As Integer
If c>=“A“And c<=“Z“Then’字母“A”的 ASCII码是65
Char2Int=Asc(c)-65
Elself c>=“a“And c<=“z“Then’字母“a”的ASCII码是 97
Char2Int=Asc(c)-71
ElseIf c>=“0“And c<=“9“Then’数字“0”的ASCII码是48
ElseIf c=“+“Then
Char2Int=62
Else
Char2Int=63
End If
End Function
Private Sub Command1_Click ( )’解密过程
Dim n As Integer,s As String,i As Integer,ss As String
Dim a(0 To 3)As Integer’依次存储一组四个密文按密码表换算出的数值
Dim b(0 To 2)As Integer’依次存储一组三个明文字符的ASCII值
s=Text1.Text
n=Len(s)
ss=““
For i=1 To n Step 4
For j=i To i+3
a(
Next j
b(0)=a(0)*4+a(1)\16
b(2)=(a(2)Mod 4)*64+a(3)
For j=0 To 2
ss=ss+Chr(b(j))
Next j
Next i
Text2.Text=ss
End Sub组卷:1引用:1难度:0.3