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