2017-2018學(xué)年浙江省金華市東陽中學(xué)高二（下）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量s的值是（ ）
組卷：2引用：3難度：0.7 -
2．有如下VB程序：
Dim n As Integer
Function f（k As Integer） As Long
If k＜=2 Then f=1 Else f=f（k-1）+f（k-2）
End Function
Private Sub command1_click（ ?。?br /> n=Val（Text1．Text）
Label2．Caption=Str（f（n））
End Sub
該VB程序采用的主要算法是（ ?。?/h2>組卷：18引用：3難度：0.9 -
3．某校有5000份學(xué)生檔案（已按學(xué)籍號排序），若分別用順序查找和對分查找的方法查找某位學(xué)生的數(shù)據(jù)，兩種查找方式中最多的查找的次數(shù)差值是（ ?。?/h2>
組卷：15引用：1難度：0.4 -
4．編號為1到13的紙牌順時針排成一圈，現(xiàn)從編號為1的牌從數(shù)字1開始順時針數(shù)下去，1、2、3、…、20、21、…，一圈又一圈，則當(dāng)數(shù)到數(shù)字N時，所在紙牌的編號為（ ?。?/h2>
組卷：8引用：2難度：0.5 -
5．通過ADO的Recordset對象實例rs打開的記錄集如圖所示。當(dāng)前是第4條記錄，要用Fields集合返回第2個字段的值，以下代碼正確的是（ ?。?br />
序號 書名 書號 作者 售價 1 解憂雜貨店 ISBN978744120878 東野奎吾 39.5 2 擺渡人 ISBN978755001237 克萊爾?麥克福爾 36 3 白夜行 ISBN978725806995 東野奎吾 38.5 4 追風(fēng)箏的人 ISBN978720806144 卡勒德?胡賽尼 29 5 這就是二十四節(jié)氣 ISBN948740028186 高春香 43 組卷：2引用：1難度：0.7 -
6．利用對分查找，在列表Angola,Australia,Belgium,Canada,China,Denmark,Egypt,France,Greece,Hungary,India,Japan中查找Egypt,則第三次查找時被查找到的國家名是（ ?。?/h2>
組卷：12引用：1難度：0.4
三、程序填空（本大題共3小題，第16題和第17題各6分，第18題5分，共17分．）
-
17．統(tǒng)計單詞出現(xiàn)的位置及次數(shù)。在文本框Text1中輸入文章，在Text2中輸入要查找的單詞，單擊“統(tǒng)計”按鈕Command1，在列表框List1顯示該單詞出現(xiàn)的起始位置及次數(shù)。實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim pos（1To 1000）As Integer
'存儲匹配到的單詞位置
Dim word As String'存儲每次掃描的單詞
Dim c As String,s As String,s2As String
Dim i As Integer,j As Integer,k As Integer,b As Integer,slen As Integer
s=Text1．Text
slen=Len（s）
s2=Text2．Text
j=0'存儲每個單詞的長度
k=1'存儲匹配到的第幾個單詞的下標(biāo)
b=1'存儲每個單詞的起始位置
i=1
Do While i＜=slen
①
If c＞=“a“And c＜=“z“Or c＞=“A“And c＜=“Z“Then
j=j+1
Else
If j＜＞0Then
word=②
If word=s2Then
pos（k）=b
k=k+1
End If
j=0
End If
b=i+1
End If
i=i+1
Loop
List1．AddItem“單詞“+s2+“出現(xiàn)的位置為“
For i=1To k-1
List1．AddItem Str（pos（i））
Next i
List1．AddItem“共出現(xiàn)“+③+“次“
End Sub組卷：2引用：1難度：0.4 -
18．小張同學(xué)為方便大家進(jìn)行選考科目的選擇，將全班同學(xué)七門學(xué)科的原始成績折算成對應(yīng)的標(biāo)準(zhǔn)分（避免了不同學(xué)科試卷難度各不相同的問題，標(biāo)準(zhǔn)分越高說明該學(xué)科成績越優(yōu)秀），存放于數(shù)據(jù)庫中，如圖1所示。同時，還編寫了“選考科目推薦”程序，實現(xiàn)如下功能：在文本框Text1中輸入學(xué)生的學(xué)號，單擊“分析”按鈕Command1，在文本框Text2中顯示該學(xué)號及所推薦的三門學(xué)科（選成績最好的三門）。程序運(yùn)行界面如圖2所示：
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）通過分析代碼可知，該數(shù)據(jù)庫的名稱為，數(shù)據(jù)表的名稱為。
（2）請在橫線處填入合適代碼。
Private Sub Command1_Click （ ）
Dim a（1To 7）As Single,b（1To 7）As Integer
Dim n As Integer,s As String,c As String
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.Connectionstring=“provider=Microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\7xuan3．a(chǎn)ccdb“
conn.Open
rs.ActiveConnection=conn
n=Val（Text1．Text）
rs.Open“select*from bzf where學(xué)號=“& n
For i=1To 7
a（i）=rs.jye.ai（i）
b（i）=i
Next i
rs.Close
conn.Close
For i=1To 3
k=i
For j=i+1To 7
If ①Then k=j
Next j
If k＜＞i Then
t=a（i）：a（i）=a（k）：a（k）=t
t=b（i）：b（i）=b（k）：b（k）=t
End If
Next i
s=“物理化學(xué)生物政治歷史地理技術(shù)“
c=Text1．Text+““
For i=1To 3
c=c+②+““
Next i
Text2．Text=c
End Sub組卷：3引用：1難度：0.4