2017-2018學(xué)年浙江省寧波市諾丁漢大學(xué)附中高二（下）期中信息技術(shù)試卷
發(fā)布：2024/11/22 17:0:2
一、選擇題（本大題共9小題，每小題2分，共18分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．下列關(guān)于信息的說法中，不正確的是（ ）
組卷：18引用：4難度：0.9 -
2．下列軟件中，屬于以頁為基礎(chǔ)的多媒體創(chuàng)作工具的是（ ?。?/h2>
組卷：6引用：2難度：0.9 -
3．下列應(yīng)用中使用了光學(xué)字符識(shí)別（OCR）技術(shù)的是（ ?。?/h2>
組卷：5引用：3難度：0.9 -
4．關(guān)于Access數(shù)據(jù)表的操作，下列說法中正確的是（ ?。?/h2>
組卷：9引用：2難度：0.7 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程，依次輸入3，4，-1，則輸出s的值是（ ?。?/h2>組卷：92引用：10難度：0.7
【加試題】
-
16．小吳為了探究冒泡排序過程中數(shù)據(jù)的“移動(dòng)”情況，編寫了一個(gè)VB程序，功能如下：在列表框List1中顯示排序前數(shù)據(jù)（存儲(chǔ)在數(shù)組a中），在文本框Text1中輸入初始位置（即下標(biāo)值），單擊“排序”按鈕Command1后，在標(biāo)簽Label1中顯示指定初始位置的數(shù)據(jù)在排序過程中的位置變化情況，排序后的數(shù)據(jù)顯示在列表框List2中。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a（1To 8）As Integer
Dim n As Integer
Private Sub Form_Load （ ?。?br/>'n=8，排序前的8個(gè)數(shù)據(jù)存儲(chǔ)在數(shù)組a中，并在列表框Listl中顯示
'代碼略
End Sub
Private Sub Command1_Click （ ?。?br/>Dim i As Integer,j As Integer,k As Integer
Dim pos As Integer'變量pos存儲(chǔ)指定數(shù)據(jù)的位置（即下標(biāo)值）
Dim s As String'變量s存儲(chǔ)pos變化情況
s=Text1．Text
pos=Val（Text1．Text）
For i=1To n-1
For j=n To i+1Step-1
If a（j）＜a（j-1）Then
‘（1）
a（j-1）=a（j）
a（j）=k
'如果pos位置的數(shù)據(jù)參與交換，則更新pos值，記錄pos變化情況
If pos=j Then
pos=j-1
s=s+”→”+Str（pos）
‘（2）
pos=j
s=s+”→”+Str（pos）
End If
End If
Next j
Next i
Label1．Caption=”位置變化情況：”+s
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub組卷：27引用：3難度：0.3 -
17．小王編寫了一個(gè)依據(jù)成績計(jì)算名次的VB程序，成績?yōu)?到100之間的整數(shù)。算法的基本思想：先統(tǒng)計(jì)每個(gè)分?jǐn)?shù)的個(gè)數(shù)，然后按照分?jǐn)?shù)從高到低依次計(jì)算每個(gè)有效分?jǐn)?shù)（該分?jǐn)?shù)的個(gè)數(shù)不為0）對(duì)應(yīng)的名次，分?jǐn)?shù)相同時(shí)名次并列。最高分為第1名，該分?jǐn)?shù)的名次與個(gè)數(shù)之和為下一個(gè)有效分?jǐn)?shù)的名次，以此類推。程序用數(shù)組A存放每個(gè)分?jǐn)?shù)對(duì)應(yīng)的個(gè)數(shù)，數(shù)組B存放每個(gè)分?jǐn)?shù)對(duì)應(yīng)的名次。例如，下表中最高分100有2個(gè)，并列第1名，則分?jǐn)?shù)96的名次為分?jǐn)?shù)100的名次加上分?jǐn)?shù)100的個(gè)數(shù)，即第3名。
程序運(yùn)行時(shí)，學(xué)生數(shù)據(jù)顯示在列表框List1中，單擊“計(jì)算”按鈕Command1，計(jì)算結(jié)果顯示在列表框List2中，程序運(yùn)行界面如圖所示。分?jǐn)?shù) 100 99 98 97 96 95 94 … 0 個(gè)數(shù)（A數(shù)組） 2 0 0 0 1 0 3 … 0 名次（B數(shù)組） 1 3 4 … 
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問題：
（1）如表所示，若分?jǐn)?shù)93的個(gè)數(shù)為2，則該分?jǐn)?shù)對(duì)應(yīng)的名次為。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim sName（1To 50）As String'存放學(xué)生姓名
Dim sScore（1To 50）As Integer'存放學(xué)生分?jǐn)?shù)
Dim recCount As Integer'存放學(xué)生人數(shù)
Private Sub Form_Load （ ?。?br />'本過程從數(shù)據(jù)庫中讀取學(xué)生數(shù)據(jù)，存儲(chǔ)在相應(yīng)的變量中，并在List1中顯示
'代碼略
End Sub
'整數(shù)轉(zhuǎn)換成長度固定的字符串
Function ads（x As Integer,n As Integer） As String
Dim sx As String,nx As Integer,i As Integer
sx=Str（x）：nx=Len（sx）
For i=1To n-nx
sx=””+sx
Next i①
End Function
Private Sub Command1_Click （ ）
Dim A（0To 100）As Integer'存放每個(gè)分?jǐn)?shù)的個(gè)數(shù)
Dim B（0To 100）As Integer'存放每個(gè)分?jǐn)?shù)的名次
Dim mc As Integer,score As Integer,i As Integer
For i=0To 100
A（i）=0
Next i
For i=1To recCount'計(jì)算每個(gè)分?jǐn)?shù)的個(gè)數(shù)
②
Next i
mc=1
For i=100To 0Step-1'計(jì)算每個(gè)分?jǐn)?shù)的名次
If A（i）＜＞0Then
B（i）=mc
③
End If
Next i
List2．Clear
List2．AddItem”姓名 分?jǐn)?shù) 名次”
List2．AddItem”--------------”
For i=1To recCount
score=sScore（i）
mc=B（sScore（i））
List2．AddItem sName（i）+ads（score,5）+”第”+ads（mc,3）+”名”
Next i
End Sub組卷：3引用：1難度：0.5