2016-2017學年浙江省湖州市、麗水市、衢州市、舟山市高三（下）質檢信息技術試卷（3月份）
發布：2024/4/20 14:35:0
一、選擇題（本題共12小題，每小題2分，共24分；在每小題給出的四個選項中，只有一項符合題目要求）
-
1．下列說法中正確的是（ ）
組卷：5引用：1難度：0.9 -
2．如圖a所示的Word文檔，其摘要如圖b所示，下列說法正確的是（ ）
組卷：4引用：2難度：0.9 -
3．下列應用中、體現了人工智能技術的有（ ）
①使用百度的“識圖”功能對上傳的圖片進行相似圖片查找
②使用掃描筆內置的朗讀功能對掃描到的中英文進行實時朗讀
③使用指紋解鎖功能能打開手機
④Word軟件將輸入的“以身做則”自動更正為“以身作則”
⑤使用在線二維碼生成器制作二維碼．組卷：6引用：6難度：0.7 -
4．打開某數據庫文件的“圖書信息”數據表，部分界面如圖所示，以下說法正確的是（ ）
組卷：3引用：2難度：0.7 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，變量s的值是（ ）
組卷：2引用：3難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．異或（xor）是一個數學邏輯運算符，如：x xor y,其運算具體方法描述如下：
（1）分別將十進制數x,y轉換為二進制，并將轉換的每位二進制數分別存儲到數組a,b中：如果兩個二進制位數不相等，則位數較少的前面用“0”不足，使之a,b數組元素個數一致；
（2）取出數組a,b中下標相同的數組元素進行運算，若值相同，則結果為0，否則為1．根據上述運算方法，示例如表所示．
小明編寫了一個VB程序，功能如下：在文本框Text1、Text2中分別輸入x、y的值，單擊“異或”按鈕Commandl,程序對數據進行異或運算，并將結果顯示在列表框List1中．實現上述功能的VB程序如下，但加框處代碼有錯，請改正．Function f（z As Integer）As String,將十進制數轉換為二進制數，代碼略．End FunctionPrivate Sub Commandl_Click（ ）Dim x As Integer,y As Integer,mAs Integer,i As Integer,Dim sl As String,s2 As String,s3 AS StringDim a（1 to 15）As String,b（1 to 15）AsString變量 十進制 二進制 x 19 1 0 0 1 1 數組a a（5） a（4） a（3 a（2 a（1） y 9 0 1 0 0 1 數組b b（5） b（4） b（3 b（2 b（1） x xor y 1 1 0 1 0
x=Val （Text1．Text）：y=Val （Text2．Text）
If x＜y Then
m=x：x=y：y=m
End If
s1=f（x）：s2=f（y）
k=Len（sl）
For i=1 To k’將轉換后的二進制數按位分別存儲到數組a和b
a（i）=Mid（sl,k-i+1，1）
If i＜=Len（s2）Then
b（i）=Mid（s2，Len（s2）-i+1，1）
Else
，（1）
End If
Next i
For i=1 To k
If
Then s3=“0“+s3 Elses3=“1“+s3 ，（2）
Next i
List1．Addltem“異或結果是：“+S3
End Sub.組卷：5引用：1難度：0.1 -
17．2016年某書城的部分書籍銷售數據存放在相應的數據表中，如圖a所示，小明編寫了一個VB程序，實現如下功能：在文本框Textl中輸入圖書類別，單擊“查詢”按鈕Commandl,程序從數據庫讀取相關數據進行處理，在列表框Listl中顯示該類圖書所有的銷售數據（從高到低排序），在文本框Text2中顯示該類圖書的總銷售量．VB程序面如圖b所示．
實現上述功能的VB 程序如下，請回答下列問題：
（1）加虛線框處的程序，采用的排序算法是．
（2）當前程序處理的數據庫文件“major.jye.ai”，默認創建該文件的數據庫庫管理系統是（填軟件名稱）．
（3）請在橫線處填入合適的代碼．
Dim num As Integer’變量num存儲數據庫實際的記錄數
Dim book（1 To 5000）As String
Dim content （1 To 5000）As String,content 1（1 To 5000）As String’存儲類別內容
Dim sales（1 To 5000）As Long,sales1（1 To 5000）As Long’存儲銷售量
Private Sub Form Load（ ）
Dim conn As New ADODB．Connection,rs As New AD0DB．Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE.0LEDB.12.0：Data Source“&
App.Path &“\major.jye.ai“
conn.Open
strSQL=“SELECT*FROM count“
Set rs.ActiveConnection=conn
’從數據表中讀取圖書類別、類別內容、銷售量分別存儲到數組book、contcnt、sales中．
’數據庫實際讀取的記錄數存儲在變量num中
’代碼略．
End Sub
Private Sub Commandl_ Click（ ）
Din m As String,n As String,c As Integer,s As Long
Dim i As Integer,j As Integer,k As Integer,
Listl.Clear
c=0：s=0
m=Textl.Text
For i=1To num’將符合的類別內容、銷售量重新存儲到數組content1、sales1中
If m=book（i） Then
c=c+1
content 1（c）=content （i）
sales1（c）=sales（i）’①
End If
Next i
For i=1 To’②
List1．Addltem contentl（i） &““& Str（salesl（i））
Next i
Text2．Text=Str（s）
End Sub.組卷：3引用：1難度：0.3