2016-2017學年浙江省寧波市諾丁漢大學附中高二（下）期末信息技術試卷
發布：2024/12/16 11:0:3
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．關于信息安全與網絡道德，下列做法正確的是（ ）
組卷：41引用：13難度：0.9 -
2．下列有關瀏覽器與網頁的說法，正確的是（ ）
組卷：47引用：11難度：0.9 -
3．使用Word軟件編輯某文檔，部分界面如圖示所示．下列說法正確的是（ ）
組卷：38引用：3難度：0.9 -
4．使用UltraEdit軟件觀察字符“挑戰AlphaGo!“的內碼，部分界面如圖所示，下列說法正確的是（ ）
組卷：91引用：9難度：0.7 -
5．關于Access數據表的操作，下列說法正確的是（ ）
組卷：39引用：6難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．【加試題】小王編寫了一個實現文字查找替換功能的VB程序，運行界面如圖所示．文本框Text1顯示原文內容，Text2中輸入查找內容，Text3中輸入替換內容，單擊“全部替換”按鈕Command1后，Text4顯示查找替換的結果，Text5中顯示替換的次數，Text6顯示“查找內容”在原文中的起始位置．
實現上述功能的VB程序如下，但加框處代碼有錯，請改正．
Private Sub Command1_Click（ ）
Dim s As String,resule As String,pos As String
Dim count As Integer,i As Integer
i=1：count=0
result=““：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
pos=pos+Str（count）
i=i+Len（Text2．Text）
Else
result=result+Text2．Text
i=i+1
End If
Loop
Text4．Text=result
Text5．Text=Str（count）
Text6．Text=pos
End Sub.組卷：6引用：3難度：0.1 -
17．小王編寫了一個依據成績計算名次的VB程序，成績為0到100之間的整數．算法的基本思想：先統計每個分數的個數，然后按照分數從高到低依次計算每個有效分數（該分數的個數不為0）對應的名次，分數相同時名次并列．最高分為第1名，該分數的名次與個數之和為下一個有效分數的名次，以此類推．程序用數組A存放每個分數對應的個數，數組B存放每個分數對應的名次．例如，下表中最高分100有2個，并列第1名，則分數96的名次為分數100的名次加上分數100的個數，即第3名．
程序運行時，學生數據顯示在列表框List1中，單擊“計算”按鈕Command1，計算結果顯示在列表框List2中，程序運行界面如圖所示．分數 100 99 98 97 96 95 94 … 0 個數（A數組） 2 0 0 0 1 0 3 … 0 名次（B數組） 1 3 4 … 
實現上述功能的VB程序如下，請回答下列問題：
（1）如表所示，若分數93的個數為2，則該分數對應的名次為．
（2）請在橫線處填入合適的代碼．
Dim sName（1To 50）As String'存放學生姓名
Dim sScore（1To 50）As Integer'存放學生分數
Dim recCount As Integer'存放學生人數
Private Sub Form_Load （ ）
'本過程從數據庫中讀取學生數據，存儲在相應的變量中，并在List1中顯示
'代碼略
End Sub
'整數轉換成長度固定的字符串
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'存放每個分數的個數
Dim B（0To 100）As Integer'存放每個分數的名次
Dim mc As Integer,score As Integer,i As Integer
For i=0To 100
A（i）=0
Next i
For i=1To recCount'計算每個分數的個數
②
Next i
mc=1
For i=100To 0Step-1'計算每個分數的名次
If A（i）＜＞0Then
B（i）=mc
③
End If
Next i
List2．Clear
List2．AddItem“姓名 分數 名次“
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.組卷：5引用：1難度：0.1