2018-2019學年浙江省杭州市富陽區(qū)新登中學高三（上）期末信息技術試卷
發(fā)布：2024/11/12 19:30:2
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．下列關于信息的說法，不正確的是（ ?。?/h2>
組卷：25難度：0.5 -
2．下列應用中，沒有體現人工智能技術的是（ ?。?/h2>
組卷：14難度：0.6 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（ ）組卷：18難度：0.5 -
4．用UltraEdit軟件觀察字符內碼，部分界面如圖
下列說法正確的是（ ）組卷：1引用：1難度：0.5 -
5．某Access數據表打開后如圖所示，下列描述正確的是（ ?。?br />
組卷：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 （ ?。?br />'隨機生成7個不重復的正整數到a數組中。代碼略
End Sub
Private Sub Command1_Click （ ?。?br />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 （ ?。?br />'隨機生成30個不重復的正整數到a數組中。代碼略
End Sub
Private Sub Command1_Click （ ?。?br />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