2018-2019學(xué)年浙江省杭州市富陽(yáng)區(qū)新登中學(xué)高三（上）期末信息技術(shù)試卷
發(fā)布：2024/11/12 19:30:2
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）
-
1．下列關(guān)于信息的說(shuō)法，不正確的是（ ?。?/h2>
組卷：25引用：1難度：0.5 -
2．下列應(yīng)用中，沒(méi)有體現(xiàn)人工智能技術(shù)的是（ ?。?/h2>
組卷：14引用：1難度：0.6 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。
下列說(shuō)法正確的是（ ）組卷：18引用：1難度：0.5 -
4．用UltraEdit軟件觀察字符內(nèi)碼，部分界面如圖
下列說(shuō)法正確的是（ ?。?/h2>組卷：1引用：1難度：0.5 -
5．某Access數(shù)據(jù)表打開(kāi)后如圖所示，下列描述正確的是（ ?。?br />
組卷：11引用：1難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．一個(gè)無(wú)序整數(shù)數(shù)組，對(duì)它排序，使其前半部分都為奇數(shù)有序，后半部分為偶數(shù)有序。
基本想法：利用插入排序算法，對(duì)奇偶子序列分別插入排序。用兩個(gè)變量把整個(gè)數(shù)組分割為三個(gè)部分，第一個(gè)部分為奇數(shù)有序子序列，第二部分為偶數(shù)有序子序列，第三部分為未排序子序列。使用兩個(gè)變量進(jìn)行分割，mid 指向偶數(shù)有序子序列的一個(gè)元素，end1 指向未排序子序列（等待一個(gè)個(gè)插入前面的奇數(shù)有序子序列或偶數(shù)有序子序列）。
Const n=7
Dim a（-1To n） As Integer
Private Sub Form_Load （ ?。?br />'隨機(jī)生成7個(gè)不重復(fù)的正整數(shù)到a數(shù)組中。代碼略
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．由數(shù)組a生成數(shù)字方陣，并求方陣中對(duì)角線上數(shù)值的和：
1）將數(shù)組a中的n個(gè)元素依次分割出若干個(gè)數(shù)據(jù)塊，每個(gè)數(shù)據(jù)塊有m×m個(gè)元素。
2）對(duì)每個(gè)分割出的數(shù)據(jù)塊，按照數(shù)字方陣方式顯示。
3）找出數(shù)字方陣中對(duì)角線上的數(shù)值，求出它們的和，若分割的數(shù)據(jù)塊達(dá)不到m×m個(gè)元素，則忽略。
數(shù)字方陣過(guò)程如下：將數(shù)據(jù)塊中m×m個(gè)元素按行序排列成一個(gè)數(shù)字方陣，以3×3數(shù)據(jù)塊為例，排列過(guò)程如下圖所示：
找出對(duì)角線上的數(shù)值分別是：12，19，83和34，19，54，它們的和分別是114，107
小明依據(jù)上述描述設(shè)計(jì)了如下VB程序。請(qǐng)回答下列問(wèn)題：
（1）當(dāng)n=30時(shí)，如圖所示，分割出每個(gè)數(shù)據(jù)塊為2×2個(gè)元素，第二組數(shù)字方陣中的對(duì)角線和分別為。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1To 30）As Integer
Private Sub Form_Load （ ?。?br />'隨機(jī)生成30個(gè)不重復(fù)的正整數(shù)到a數(shù)組中。代碼略
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'當(dāng)前數(shù)字方陣的第1個(gè)元素下標(biāo)
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）+“組的對(duì)角線分別是：“+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