2018-2019学年浙江省杭州市富阳区新登中学高三(上)期末信息技术试卷
发布:2024/11/12 19:30:2
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分.)
-
1.下列关于信息的说法,不正确的是( )
组卷:25引用:1难度:0.5 -
2.下列应用中,没有体现人工智能技术的是( )
组卷:14引用:1难度:0.6 -
3.使用Word软件编辑某文档,部分界面如图所示。
下列说法正确的是( )组卷:18引用:1难度:0.5 -
4.用UltraEdit软件观察字符内码,部分界面如图
下列说法正确的是( )组卷:1引用:1难度:0.5 -
5.某Access数据表打开后如图所示,下列描述正确的是( )
组卷:11引用:1难度:0.5
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.一个无序整数数组,对它排序,使其前半部分都为奇数有序,后半部分为偶数有序。
基本想法:利用插入排序算法,对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分,第一个部分为奇数有序子序列,第二部分为偶数有序子序列,第三部分为未排序子序列。使用两个变量进行分割,mid 指向偶数有序子序列的一个元素,end1 指向未排序子序列(等待一个个插入前面的奇数有序子序列或偶数有序子序列)。
Const n=7
Dim a(-1To n) As Integer
Private Sub Form_Load ( )
'随机生成7个不重复的正整数到a
End Sub
Private Sub Command1_Click ( )
Dim mid As Integer,end1As Integer
Dim i As Integer,j As Integer,num As Integer
mid=0:end1=0
Do While end1<=n
j=end1
If num Mod 2=1Then
Do While
a(j)=a(j-1)
j=j-1
Loop
a(j)=num
mid=mid+1
Else
Do While a(j-1)>num And j-1>=mid
a(j)=a(j-1)
j=j-1
Loop
a(j)=num
End If
end1=end1+1
Loop
For i=0To n
List1.AddItem Str(a(i))
Next i
End Sub组卷:4引用:1难度:0.4 -
17.由数组a生成数字方阵,并求方阵中对角线上数值的和:
1)将数组a中的n个元素依次分割出若干个数据块,每个数据块有m×m个元素。
2)对每个分割出的数据块,按照数字方阵方式显示。
3)找出数字方阵中对角线上的数值,求出它们的和,若分割的数据块达不到m×m个元素,则忽略。
数字方阵过程如下:将数据块中m×m个元素按行序排列成一个数字方阵,以3×3数据块为例,排列过程如下图所示:
找出对角线上的数值分别是:12,19,83和34,19,54,它们的和分别是114,107
小明依据上述描述设计了如下VB程序。请回答下列问题:
(1)当n=30时,如图所示,分割出每个数据块为2×2个元素,第二组数字方阵中的对角线和分别为
(2)请在横线处填入合适的代码。
Dim a(1To 30)As Integer
Private Sub Form_Load ( )
'随机生成30个不重复的正整数到a
End Sub
Private Sub Command1_Click ( )
Dim t As Integer,i As Integer,m As Integer,j As Integer,x As Integer
Dim s As String,tt As String
Dim start As Integer'当前数字方阵的第1个元素下标
m=Val(Text1.Text)
t=30\m^2
If t=0Then
MsgBox“重新输入“
Else
List1.Clear
For i=1To t
start=
For j=1To m
For x=1To m
tt=tt+
Next x
List1.AddItem tt
tt=““
Next j
List1.AddItem““
s=sum1(start,m)
List2.AddItem“第“+Str(i)+“组的对角线分别是:“+s
Next i
End If
End Sub
Function sum1(begin As Integer,m As Integer) As String
Dim s1As Integer,s2As Integer
s1=a(begin)
For i=1To m-1
s1=s1+a(begin+i*(m+1))
Next i
s2=0
For i=1To m
s2=s2+a(begin+i*(m-1))
Next i
sum1=
End Function组卷:4引用:1难度:0.4