2015-2016學年浙江省湖州市安吉縣上墅私立高級中學高二（下）期中信息技術試卷
發(fā)布：2025/1/2 5:30:4
一、選擇題（本大題共9小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．機器人AlphaGo在圍棋對戰(zhàn)中戰(zhàn)勝了世界圍棋冠軍，AlphaGo集合了3000萬種職業(yè)棋手的下法，數百萬次深度學習，十分接近帶著直覺和第六感的人類大腦．根據上述材料，下列說法不正確的是（ ?。?/h2>
組卷：3引用：2難度：0.9 -
2．下列關于網站和網頁說法正確的是（ ?。?/h2>
組卷：5引用：2難度：0.9 -
3．小李使用Word審閱功能對某文檔做了處理，部分截圖如圖1所示，修訂選項對話框如圖2所示，
若接受對文檔的所有修訂，則帶框文字內容為（ ?。?/h2>組卷：12難度：0.7 -
4．小明制作了一個關于動漫的作品，部分信息存儲在“動漫作品”數據表中，數據表結構及記錄分別如圖1和如圖2所示，選擇右鍵菜單中的“新記錄”并輸入相應數據，下列可能作為新記錄的是（ ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201707/149/0f328084.png" style="vertical-align:middle" />
組卷：5難度：0.7 -
5．某算法如下：
①將0賦值給變量Num,將10賦值給變量Max,將9賦值給變量i
②若i除以3余2、除以5余3、除以7余2，則將變量Num的值增加1并輸出i
③變量i的值增加1，若變量Num小于變量Max,則轉②
④結束
對于上述算法，下列說法錯誤的是（ ）組卷：24難度：0.7
【加試題】
-
16．在冒泡排序時，當某一遍加工過程中沒有數據交換，說明數據已經有序，無需進一步加工．為此小明對冒泡排序進行了優(yōu)化，編寫了一個VB程序，功能如下，運行程序時，在列表框List1中顯示隨機產生的n個整數，單擊“排序”的按鈕Command1，在列表框List2中顯示降序排序后的結果，運行的效果如圖所示．
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Const n As Integer=10
Dim a（1To n） As Integer
Private Sub Form_Load （ ?。?br />Dim i As Integer
Randomize
For i=1To n
a（i）=Int（Rnd*100）
List1．AddItem Str（a（i））
Next
End Sub
Private Sub Command1_Click （ ?。?br />Dim tmp As Integer,i As Integer,j As Integer,k As Integer
For i=1To n-1
k=0
For j=n To i+1Step-1
If a（j）＞a（j-1）Then
k=k+1
End If
Next j
If
Then i=n
Next i
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub
End Sub.組卷：3難度：0.1 -
17．用VB編寫一個模擬在900個觀眾中產生10個中獎號碼的程序，每位觀眾用三位數字進行編號，要求產生的10個號碼不能重復，并且升序排列輸出．
①檢查產生號碼是否重復：把產生的中獎號碼放在數組a中，新生的號碼與已經產生的號碼進行一一對比，如果找到相等的數，則重新產生新號碼．
②找到新產生號碼存放的數組下標：從下標為1的數組元素開始，新號碼（第i個號碼）分別與他們進行一一比較，找到第一個比新號碼大的數，該數所在的下標就是新號碼應存放的下標．如果在已經產生的數中沒有找到比新號碼大的數，則新號碼應存放在下標為i的數組元素中．下表以產生第5個號碼為例，如果產生的號碼是150，第一個比他大的數是a（2），下標為2的數組元素應存放新號碼；如果產生的號碼是300，則新號碼應存放在下標為5的數組元素中．
③移動數組元素到新的位置：如果在已經產生的號碼中找到比新號碼大的數，從上一個產生的號碼開始，到新號碼應存放的數組元素，依次把他們向后面移動．以②中產生150為例，從a（4）開始，讓a（5）的值等于a（4），a（4）的值等于a（3），依此類推，直到新號碼應存放的數組元素a（2）為止．數組元素 a（1） a（2） a（3） a（4） 數組元素的值 120 188 211 278 
④將新產生的號碼放在相應的數組元素中．
程序運行的界面如圖所示，實現上述功能的VB程序代碼如下：
Dim a（10）As Single
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer
Dim temp As Single,k As Integer‘temp產生隨機數，k隨機數存放數組元素的下標
Randomize
a（1）=Int（Rnd （ ?。?900+100）
For i=2To 10
temp=Int（Rnd （ ?。?900+100）
If seach（temp,i-1）=True Then
i=i-1
Else
For j=-1To k Step-1
a（j+1）=a（j）
Next j
End If
Next i
List1．Clear
For i=1To 10
List1．AddItem Str（a（i））
Next i
End Sub
‘函數實現在數組a中，從下標為1的數組元素到下標為t數組元素，查找有無pp的數值
Function seach（pp As Single,t As Integer） As Boolean
Dim i As Integer
seach=False
For i=1To t
IfThen seach=True：Exit For
Next i
End Function
（1）程序中橫線處①應填入程序中橫線處②應填入
（2）加框處的程序段實現的功能是．組卷：0引用：1難度：0.3