2019-2020學年浙江省浙北G2高二（下）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列有關信息與信息技術的說法，不正確的是（ ）
組卷：2引用：1難度：0.6 -
2．使用Word編輯文檔時的部分界面如圖所示。下列說法正確的是（ ）
組卷：1引用：1難度：0.4 -
3．Access設計視圖部分界面如圖所示，下列說法正確的是（ ）組卷：1引用：1難度：0.6 -
4．用 Goldwave 軟件對某音頻文件進行編輯，Goldwave 狀態欄如圖所示：
以下說法正確的是（ ）組卷：9引用：4難度：0.8 -
5．有一段未經壓縮的PAL制式的AVI無聲視頻，每幀畫面為1024*512像素，24位彩色，視頻時間為4秒，將其轉換成MP4后其存儲容量為15MB，則壓縮比約為（ ）
組卷：6引用：2難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小王設計“表達式計算”的程序，通過程序實現加法和乘法結合的表達式計算。程序工作原理為：對輸入的表達式從前往后以相鄰兩個運算符和三個數字為一組，根據先乘后加的優先級進行運算，得到一個運算符和兩個數字，再將其與之后的運算符和數字組成一組繼續運算，直到全部數據運算完畢。現編寫VB程序如下：在文本框Text1中輸入一個由加法和乘法組成的表達式，以“=”結尾。點擊“計算”按鈕后，在文本框Text2中輸出表達式計算的結果。實現該功能的VB程序及界面如下。
（1）在最后的輸出語句“Text2．Text=Str（n1）”中，Text屬于Text2的（單選，填字母：A．方法名/B．對象名/C．屬性名/D．屬性值）。
（2）加框處的代碼有誤，請改正。
（3）補充①②處代碼。
（4）若將表達式結尾的“=”改為“+”，對程序運行的結果（選填：是/否）會有影響。組卷：0引用：1難度：0.5 -
16．排序的穩定性。假定在待排序的記錄序列中，存在多個具有相同的關鍵字的記錄，若經過排序，這些記錄的相對次序保持不變，即在原序列中，r[i]=r[j]，且r[i]在r[j]之前，而在排序后的序列中，r[i]仍在r[j]之前，則稱這種排序算法是穩定的；否則稱為不穩定的。
現編寫一個VB程序，實現功能如下：隨機生成n-1個不重復的[10，99]之間的正整數，在這n-1正整數中隨機選取一個位置i,將其值r[i]作為第n個數插入到某一位置j處，然后對數據序列進行排序，驗證排序前和排序后這兩個相同數相對次序的變化，若均不變，則排序穩定，若有改變，則排序不穩定。實現該功能的VB程序及界面如下，請回答以下問題。
（1）分析程序代碼，若某次運行顯示“穩定”，則是否能確定選擇排序是穩定排序？（填：是/否）
（2）補充完整以下代碼
Constn=10
Dima（1To10）AsInteger,b（1To10）AsInteger
Dimk1AsInteger,k2AsInteger‘k1，k2為相同數據的前、后次序PrivateSubCommand1_Click （ ）
DimiAsInteger,tmpAsInteger,tAsInteger
Randomize
List1．Clear
Fori=1To9′隨機生成9個不重復數
b（i）=Int（Rnd*90）+10
DoWhile ①
b（i）=Int（Rnd*90）+10
Loop
Nexti
′以下代碼為隨機選取數組中的1個數作為第
10個數字再隨機的插入到原數組的1-9位置
k1=Int（Rnd*9+1）
tmp=b（k1）
k2=Int（Rnd*9+1）
Fori=10Tok2+1Step-1b（i）=b（i-1）
Nexti
b（k2）=tmp
Fori=1Tona（i）=i
List1．AddItemStr（a（i））+″″+Str（b（i））Nexti
Ifk1＞=k2Then
②
t=k1：k1=k2：k2=t
EndIf
Text1．Text=Str（k1）+Str（k2）EndSub
PrivateSubCommand2_Click （ ）
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
List2．Clear
Fori=1Ton-1k=i
Forj=i+1Ton
Ifb（j）＜b（k）Thenk=j
Nextj
Ifk＜＞iThen
t=a（k）：a（k）=a（i）：a（i）=tt=b（k）：b（k）=b（i）：b（i）=t
EndIf
Nexti
Fori=1Ton
List2．AddItemStr（a（i））+″″+Str（b（i））Nexti
i=1
DoWhilei＜=n-1Andb（i）＜＞b（i+1）
i=i+1
Loop
Text2．Text=Str（a（i））+Str（a（i+1））
If③ThenLabel1．Caption=″穩定″ElseLabel1．Caption=″非穩定″EndSub
Functioncheck（xAsInteger,yAsInteger）AsBoolean
DimjAsIntegercheck=False
Forj=1Toy-1
Ifb（j）=xThencheck=TrueExitFor
EndIf
Nextj
EndFunction組卷：0引用：1難度：0.5