2018-2019學年浙江省嘉興市高三（上）選考信息技術試卷（9月份）
發(fā)布：2024/12/18 15:0:2
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，有一個符合題目要求）
-
1．下列關于信息和信息技術的說法正確的是（ ?。?/h2>
組卷：1引用：1難度：0.6 -
2．閱讀某郵件的部分界面如圖所示，下列說法錯誤的是（ ?。?br />
組卷：5引用：1難度：0.5 -
3．使用OCR軟件識別文稿，并在word軟件中編輯。下列相關操作過程中應用了人工智能技術的是（ ?。?/h2>
組卷：14引用：2難度：0.5 -
4．某 Access數(shù)據(jù)表編輯界面如圖所示，下列說法正確的是（ ?。?br />
組卷：0引用：1難度：0.5 -
5．某算法的部分流程圖如圖所示。執(zhí)行這部分流程，下列說法正確的是（ ?。?br />
組卷：3引用：2難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小王通過抽樣調(diào)查的方式，獲得了96人的信用分值（整數(shù)，大于349且小于950）。要求對其各個分段進行統(tǒng)計，并輸出分布最廣的3個分段及其個數(shù)和百分比，但不包含650-699這一段（此段為系統(tǒng)默認，屬于第7段）。分段說明：350～399分為第1段，400～449為第2段，450～499為第3段，以此類推，共分為12段。
實現(xiàn)上述功能的ⅤB程序代碼如下，但加框處代碼有錯，請改正。
Const n=96
Dim d（I To n）As Integer
Private Sub Command1_ Click（ ?。?br />Dim fd（1 To 12）As Integer'存儲每個分段內(nèi)人數(shù)
Dim a（1 To 12）As Integer'存儲每個分段內(nèi)人數(shù)的副本
Dim b（1 To 12）As Integer'存儲每個分段編號的副本
Dim i As Integer,j As Integer,t As Integer,k As Integer
Dim p As Single,templ As Integer,temp2 As Integer
Fori=1 To n
'①
fd（i）=fd（t）+1
Next i
Fo i=I To 12
a（i）=fd（i）：b（i）=i
Next j
For i=1 To 3'排序時第7段數(shù)據(jù)不參與排序
k=i
For j=i+I To 12
If
Then k=j'②
Next j
Ifk◇i Then
templ=a（i）：a（i）=a（k）：a（k）=templ
emp2=b（i）：b（i）=b（k）：b（k）=temp。
End If
Next i
For i=1 To 3
p=Int（a（i）/n*1000+0.5）/10'百分比，保留一位小數(shù)
List.AddItem“分數(shù)段”+Str（b（i））+“個數(shù)”+Str（a（i））+“百分比”+Str（p）+“%”
Next i
End Sub
Private Sub Form _Load（ ?。?br />'獲取n個人的“信用分”，并存儲在數(shù)組d中
'代碼略
End sub組卷：0引用：1難度：0.5 -
17．小明編寫了一個有關整數(shù)閉區(qū)間合并操作的VB程序：從數(shù)據(jù)庫讀取閉區(qū)間數(shù)據(jù)（左端點和右端點），存儲在數(shù)組a中，按區(qū)間數(shù)據(jù)左端點升序排序，然后進行合并操作操作結果存儲在數(shù)組b中。
例如，讀取的數(shù)據(jù)為2、3、15、25、10、14、1、5、30、60、15、25，過程是：
（1）設置區(qū)間信息為[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]，[30，60]；
（2）按區(qū)間左端點升序排序，得到區(qū)間信息為[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]
（3）合并區(qū)間，得到[1，5]，[10，25]，[30，60]．說明：區(qū)間[1，5]和[2，3]合并為[1，5]，區(qū)間[0，14]和[15，25]合并為[′0，25]，區(qū)間[10，25]和[15，25]合并為[10，25]，因此合并后的結果為：[1，5]，[10，25]，[30，60]三個區(qū)間。
程序功能如下：單擊“讀數(shù)據(jù)庫”按鈕 Commandl,程序從數(shù)據(jù)庫讀取數(shù)據(jù)，輸出在文本框Tex1中；單擊“開始處理”按鈕 Command2，程序進行區(qū)間排序，并進行區(qū)間合并操作，操作后的結果輸出在文本框Text2中。程序運行結果如圖所示。
實現(xiàn)上述功能的ⅴB程序如下，請回答下列問題：
（1）從數(shù)據(jù)庫中讀入的區(qū)間為“[1，10]，[15，20]，[6，18]，[25，30]，[31，200]”，則合并操作后的區(qū)間為。
（2）請在橫線處填入合適的代碼。
Dima（1To100）As Integer'數(shù)組a存儲合并前的區(qū)間
Dimb（1To100 ）As Integer'數(shù)組b存儲合并后的區(qū)間
Dim n as integer'n表示區(qū)間個數(shù)
Private Sub Command1_ Click（ ?。?br />Dim sl As String,i As Integer
'讀取數(shù)據(jù)，并存儲到數(shù)組a中，并輸出在文本框Text1中，代碼略
End Sub
Private Sub Command2_ Click（ ）
Dim s2 As String,i As Integer,j As Integer,k As Integer
Dim n As Integer,t as Integer,x As integer
For i=1 To n-1
For j=1 To 2*n-2*Step 2
IfThen
t=a（j）：a（j）=a（j+2）：a（j+2）=t
t=a（j+1）：a（j+1）=a（j+3）：a（j+3）=t
End If
Next j
Next i
k=2
b（1）=a（1）：b（2）=a（2）
i=2：j=3
Do while j＜=2*n
If b（i）＞=a（j）Then
If b（i）＜=a（j+1）Then
Elself b（i）+1=a（j） Then
b（k）=a（j+1）
Else
k=k+1：
k=k+1：b（k）=a（j+1）
End If
j=j+2
Loop
For x=1 To k-2 Step 2
s2=s2&“[“&b（x）&“，“&b（x+1）&““]&“]“，“
Next
s2=s2&“[“&b（x）&“，“&b（x+1）&““]&“]“，“
Text2．Text=s2
End Sub組卷：0引用：1難度：0.4