2016-2017學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高二（下）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．關(guān)于信息安全與網(wǎng)絡(luò)道德，下列做法正確的是（ ?。?/h2>
組卷：40引用：13難度：0.9 -
2．下列有關(guān)瀏覽器與網(wǎng)頁的說法，正確的是（ ?。?/h2>
組卷：6引用：1難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖示所示．下列說法正確的是（ ?。?br />
組卷：38引用：3難度：0.9 -
4．使用UltraEdit軟件觀察字符“挑戰(zhàn)AlphaGo!“的內(nèi)碼，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：91引用：9難度：0.7 -
5．關(guān)于Access數(shù)據(jù)表的操作，下列說法正確的是（ ?。?/h2>
組卷：39引用：6難度：0.7
二、非選擇題（本大題共5小題，其中第10題4分，第11小題5分，第12小題8分，共17分）
-
16．小王編寫了一個(gè)實(shí)現(xiàn)文字查找替換功能的VB程序，運(yùn)行界面如圖所示．文本框Text1顯示原文內(nèi)容，Text2中輸入查找內(nèi)容，Text3中輸入替換內(nèi)容，單擊“全部替換”按鈕Command1后，Text4顯示查找替換的結(jié)果，Text5顯示替換的次數(shù)，Text6顯示“查找內(nèi)容”在原文中的起始位置．加框處有錯(cuò)誤，請(qǐng)改正
Private Sub Command1_Click （ ?。?br />Dim s As String,resule As String,pos As String
Dim count As Integer,i As Integer
i=1：count=0
resule=““：pos=““
Do While i＜=Len（Text1．Text）
s=Mid（Text1．Text,i,Len（Text2．Text））
If s=Text2．Text Then
result=result+Text3．Text
count=count+1
i=i+Len（Text2．Text）
Else
i=i+1
End If
Loop
Text4．Text=result
Text5．Text=Str（count）
Text6．Text=pos
End Sub.組卷：8引用：1難度：0.1 -
17．小王編寫了一個(gè)依據(jù)成績(jī)統(tǒng)計(jì)名次的VB程序，成績(jī)?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 recount 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（ ?。?br />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 recount’計(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．a(chǎn)dditem“姓名 分?jǐn)?shù) 名次”
List2．a(chǎn)dditem”--------”
For i=1to recount
score=sScore（i）
mc=B（sScore（i））
list2．a(chǎn)dditem sName（i）+ads（score,5）+”第”+ads（mc,3）+”名”
Next i
End Sub.組卷：10引用：1難度：0.1