2015-2016學(xué)年浙江省樂(lè)清市芙蓉中學(xué)高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（每題3分）
-
1．在求解“一元二次方程實(shí)數(shù)根”的算法中，如果方程不存在實(shí)數(shù)解，也要求輸出結(jié)果“無(wú)實(shí)數(shù)根”．此要求主要體現(xiàn)了算法特征中的（ ）
組卷：18引用：5難度：0.7 -
2．某超市在晚上19：30-20：30期間，對(duì)于在貨架上已超過(guò)2天的帶葉蔬菜，收銀機(jī)自動(dòng)將價(jià)格下降50%．用來(lái)描述某種蔬菜是否降價(jià)的處理過(guò)程，合適的算法流程是（ ）
組卷：3引用：1難度：0.9 -
3．在Visual Basic程序中要用到存儲(chǔ)范圍為-40000～40000的某一整數(shù)變量，則該變量的類型應(yīng)該定義為（ ）
組卷：6引用：1難度：0.9 -
4．在Visual Basic中，要定義一個(gè)一維數(shù)組a,用于存儲(chǔ)15名鉛球運(yùn)動(dòng)員的成績(jī)數(shù)據(jù)（以米為單位，精確到0.01米），則正確的數(shù)組定義語(yǔ)句是（ ?。?/h2>
組卷：9引用：1難度：0.9 -
5．在Visual Basic中，用變量y存儲(chǔ)“ABC”，變量y的數(shù)據(jù)類型應(yīng)定義為（ ?。?/h2>
組卷：9引用：1難度：0.9 -
6．下列運(yùn)算結(jié)果中，值為3的是（ ?。?/h2>
組卷：15引用：1難度：0.7 -
7．產(chǎn)生[1，40]范圍內(nèi)某一隨機(jī)整數(shù)的表達(dá)式是（ ?。?/h2>
組卷：5引用：5難度：0.7 -
8．下列Visual Basic表達(dá)式的值等于56的是（ ?。?/h2>
組卷：8引用：5難度：0.5 -
9．在Visual Basic中，語(yǔ)句abc.Text=“hello”中的“Text”是（ ?。?/h2>
組卷：5引用：1難度：0.7
二、填空題，每空3分
-
28．以下Visual Basic程序的功能是：計(jì)算表達(dá)式1×3+2×3+3×3+…100×3的值，并在文本框abc中輸出計(jì)算結(jié)果．
Private Sub Command1_Click （ ）
Dim i As Integer,s As Integer
s=0
i=1
Do While i＜=100
s=s+i*3
i=i+1
Loop
①_______=Str（s）
End Sub
問(wèn)：（1）為了實(shí)現(xiàn)上述表達(dá)式的計(jì)算，①處橫線處應(yīng)填入．
（2）退出循環(huán)時(shí)，變量i的值是．組卷：41引用：1難度：0.1 -
29．如圖為冒泡排序的案例：lstUnsorted,lstSorted為左右兩個(gè)列表框．
Option Explicit
Const MAXSIZE=1000
Dim d（MAXSIZE+1）As Integer,n As Integer
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer
n=Val（txtSize.Text）
If n＜=0Or n＞MAXSIZE Then
txtSize=“數(shù)據(jù)個(gè)數(shù)必須大于0！“
Exit Sub
End If
Randomize
lstUnsorted.Clear
For i=1To n
j=Int（32768*Rnd）
lstUnsorted.AddItem Str$（j）
d（i）=j
Next
Command2．Enabled=True
End Sub
Private Sub Command2_Click （ ?。?冒泡
Dim i,j,TEMP，NextElement
lstSorted.Clear
For i=1to n-1
For ①Step-1
If d（j）＜d（j-1）Then
TEMP=d（j）
②
d（j-1）=TEMP
End If
Next
Next
For i=1To n
lstSorted.AddItem d（i）
Next
End Sub
問(wèn)：為了實(shí)現(xiàn)上述冒泡算法的實(shí)現(xiàn)，橫線處應(yīng)填入 ①． ②．組卷：31引用：1難度：0.1