2017-2018学年浙江省宁波市九校联考高二(下)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分.)
-
1.下列有关信息的说法,正确的是( )
组卷:9引用:3难度:0.3 -
2.如图是小王经常访问的一个网站的截图,以下说法正确的是( )
组卷:7引用:3难度:0.4 -
3.使用 Word 软件编辑某文档,部分界面如图所示,下列说法正确的( )
组卷:6引用:2难度:0.2 -
4.使用 Access 软件创建的数据库文件,其中一张数据表的“数据表视图”和“设计视图”界面 如下图所示,以下说法正确的是( )
组卷:6引用:1难度:0.5 -
5.某加密算法如下:
①以字节为单位进行加密处理;
②将1个字节二进制数的第4位和第5位互换;
③将处理后的二进制数转换成十六进制。
根据以上加密算法,结合观察字符“how are you!”的内码字符“j”加密后的密文应是( )组卷:15引用:4难度:0.7
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分).
-
16.n(n<=1000)个数存储在数组 a 中,给定一个整数 p(1≤p≤n),将数组 a 的前 p 个数与后 n-p 个数对调,且不改变这 p 个数(或 n-p 个数)之间的相对位置。例如数组 a 的各个数值分别是 1,2,3,4,5,当 p=2 时,重排结果为 3,4,5,1,2.小明为此编写了 VB 程序,程序运行时,在文本框 Text2 中输入 p 值,单击按钮 Command1 后,文本框 Text4 中输出运行结果。实现上述功能的 VB 代码 如下,但加框处代码有错,请改正。
Private Sub Command1_Click( ) Dim a(1To 1000)As Single
Dim p As Integer,i As Integer,j As Integer n=Val(Text1.Text)
p=Val(Text2.Text) Text3.Text=““
For i=1To n
a(i)=Int(Rnd*100)+1Text3.Text=Text3.Text+Str(a(i))
Next i
For i=p+1To n组卷:0引用:1难度:0.5 -
17.1947 年德国学者阿尔弗德•莫斯纳发表了《一个神奇的幻方》,给出的一个如图 1 所示的 4 阶幻方(后被称为:莫斯纳幻方)。但国内有许多专业人都认为“莫斯纳幻方”源自如图 2 所示的“杨辉 4 阶幻方”。对“莫斯纳幻方”稍加分析后发现,它其实就是“杨辉 4 阶幻方”的一个变形:
(1)改变列的位置:将图 17-2 第 3 列变为图 17-1 第 1 列,第 1 列变为第 2 列,第 4 列变为第 3 列,第 2 列变为第 4 列。
(2)交换行的位置:经过(1)处理后幻方的第 1 行和第 4 行,第 2 行和第 3 行互换。
小李编写了一个将杨辉 4 阶幻方转换为莫斯纳幻方的 VB 程序,运行结果整齐地显示在列表框中,程序运行界面如图3 所示。请在横线处填入合适的代码。
Dim msy(1To 16)As Integer Dim msm(1To 16)As Integer
Function adj(c As Integer) As String'变量前添加适当的空格 Dim tmp1As String,n As Integer
tmp1=CStr(c):n=5'CStr(x)函数是将数值变量 x 转换成字符串类型,并把前导空格删除。For i=1To n-Len(tmp1)
tmp1=““+tmp1Next i
adj=tmp1End Function
Private Sub Form_Load ( )
'生成杨辉 4 阶幻方显示在 List1 中,并将数据按行依次放入 msy(1)至 msy(16)中,如 msy(1)=4,msy(2)=9
'上述操作代码略
End Sub
Private Sub Command1_Click ( )
Dim pb As Integer,tmp As Integer,i As Integer,line As String For i=1To 16'变化列
If i Mod 4=1Then
①
ElseIf i Mod 4=3 Then
pb=i-2
Else
pb=pb+2
End If
②
Next i
For i=1To 8'交换行
If ③Then
tmp=msm(i):msm(i)=msm(i+12):msm(i+12)=tmp
Else
tmp=msm(i):msm(i)=msm(i+4):msm(i+4)=tmp
End If
Next i
line=““
List2.Clear
For i=1To 16
If i Mod 4=1
Then List2.AddItem line line=adj(msm(i))
Else
Line=line+adj(msm(i))
End If Next i
List2.AddItem line
End Sub组卷:0引用:1难度:0.5