2016-2017學年浙江省紹興市高三（上）選考適應性信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．某外貿(mào)公司對其產(chǎn)品信息進行整理后制作成了一個圖文并茂的產(chǎn)品介紹網(wǎng)站．其中的整理與制作主要體現(xiàn)了信息的（ ?。?/h2>
組卷：10引用：1難度：0.9 -
2．某在線二維碼生成器如圖所示，下列說法中不正確的是（ ?。?br />
組卷：5引用：1難度：0.9 -
3．如圖所示，輸入關鍵詞“浙江大學”進行檢索，使用的信息檢索方式為（ ?。?img alt src="http://img.jyeoo.net/quiz/images/201710/9/a3949a7f.png" style="vertical-align:middle" />
組卷：8引用：1難度：0.9 -
4．小麗使用 Word 軟件為《雜草的故事》一書撰寫了一篇圖書推薦文章，請同學幫忙審閱后，打開的文檔部分截圖如圖所示．
下列說法正確的是（ ?。?/h2>組卷：11引用：3難度：0.7 -
5．用UltraEdit軟件觀察字符內(nèi)碼，結果如圖所示，字符“p”的內(nèi)碼用十六進制編碼表示為（ ）組卷：3引用：1難度：0.5
二、解答題（共5小題，滿分26分）
-
16．小強想用選擇排序算法對n個數(shù)據(jù)元素進行降序排序，并且用Do While循環(huán)語句來實現(xiàn)編程．該程序的功能如下：單擊“排序”按鈕Command1，程序對列表框List1中顯示的n個整數(shù)進行降序排序，并在列表框List2中顯示排序結果．程序運行效果如圖所示．
該程序中實現(xiàn)選擇排序功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1 To 100）As Integer,i As Integer,j As Integer,t As Integer
Dim object As Integer
Const n=100
Private Sub Command1_Click（ ?。?br /> i=0
Do While
'（1）
i=i+1
object=i
j=object+1
Do While j＜=n
If a（object）＜a（j） Then object=j
'（2）
Loop
If object＜＞i Then
t=a（object）：a（object）=a（i）：a（i）=t
End If
Loop
For i=i To n
List2．AddItem Str（a（i））
Next i
End Sub.組卷：3引用：1難度：0.1 -
17．當計算機程序中無法用普通數(shù)據(jù)類型表示位數(shù)較多的乘數(shù)和計算結果時，就需要采用高精度乘法．如，當兩個各有20位數(shù)字的整數(shù)相乘時，就無法用長整型（Long）數(shù)據(jù)類型來表示．高精度乘法運算就是運用數(shù)組，用程序模擬列豎式計算的過程．兩個正整數(shù)進行高精度乘法計算的一般算法如下：
（1）將第一個整數(shù)各位上的數(shù)字按照從低位到高位的順序依次存入數(shù)組a（1）、a（2）、…、a（La）中，將另一個整數(shù)各位上的數(shù)字按照從低位到高位的順序依次存入數(shù)組b（1）、b（2）、…、b（Lb）中．其中，La表示第一個整數(shù)的位數(shù)，Lb表示第二個整數(shù)的位數(shù)；
（2）按照從低位到高位的順序，將兩個整數(shù)各位數(shù)值進行逐位乘法計算（第一輪先讓b（1）依次乘以a（1）、a（2）、…、a（La），第二輪再讓b（2）依次乘以a（1）、a（2）、…、a（La），依次進行），每位的乘法結果也按照低位到高位的順序依次存入數(shù)組ans（1）、ans（2）、ans（3）…中；
（3）對數(shù)組ans中的計算結果進行低位到高位的進位處理；
（4）統(tǒng)計數(shù)組ans中實際計算結果的有效數(shù)值位數(shù)，并將位數(shù)值存入變量length；
（5）按照高位到低位的順序輸出數(shù)組ans中的計算結果．
小強按照上述方法設計了一個兩數(shù)進行高精度乘法計算的VB程序，功能如下：在文本框Text1和Text2中依次輸入兩個整數(shù)，單擊“計算”按鈕Command1，程序進行高精度乘法計算，并在標簽Label4中輸出計算結果．下面信息顯示了進行高精度乘法計算的主要過程（假設輸入的兩個整數(shù)分別為“123”和“45”）；
程序運行效果如圖3所示．
實現(xiàn)上述功能的VB程序如下：
（1）請在橫線處填入合適代碼．
Dim a（1 To 30）As Integer,b（1 To 30）As Integer,ans（1 To 60）As Integer
Dim La As Integer,Lb As Integer,length As Integer
Private Sub Command1_Click（ ）
Dim i As Integer,j As Integer,t As Integer,temp As String
'將兩個乘數(shù)（正整數(shù)）各數(shù)位上的數(shù)字按照上述算法依次存入數(shù)組a和b,每個正整數(shù)位數(shù)分別保存到變量La和Lb；將保存結果的數(shù)組ans（i）值初始化為零（該部分程序代碼略）
For i=1 To Lb'按低位到高位的順序進行列豎式的逐位乘法
For j=1 To La
ans（i+j-1）=+b（i）*a（j）
Next j
Next i
For i=1 To La+Lb'對計算結果進行進位處理
ans（i+1）=ans（i+1）+ans（i）\10
ans（i）=
Next i
length=La+Lb
Do While ans（length）=0
length=length-1
Loop
For i=To 1 Step-1
Label4．Caption=Label4．Caption & Str（ans（i））
Next i
End Sub
（2）根據(jù)本題算法，若輸入的兩個整數(shù)分別為5125和18，則在輸出乘法計算結果時，變量length的值為．組卷：2引用：1難度：0.1