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