2015-2016學年浙江省樂清市芙蓉中學高二（下）期末信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（每題3分）
-
1．在求解“一元二次方程實數根”的算法中，如果方程不存在實數解，也要求輸出結果“無實數根”．此要求主要體現了算法特征中的（ ）
組卷：18引用：5難度：0.7 -
2．某超市在晚上19：30-20：30期間，對于在貨架上已超過2天的帶葉蔬菜，收銀機自動將價格下降50%．用來描述某種蔬菜是否降價的處理過程，合適的算法流程是（ ）
組卷：3引用：1難度：0.9 -
3．在Visual Basic程序中要用到存儲范圍為-40000～40000的某一整數變量，則該變量的類型應該定義為（ ）
組卷：6引用：1難度：0.9 -
4．在Visual Basic中，要定義一個一維數組a,用于存儲15名鉛球運動員的成績數據（以米為單位，精確到0.01米），則正確的數組定義語句是（ ）
組卷：9引用：1難度：0.9 -
5．在Visual Basic中，用變量y存儲“ABC”，變量y的數據類型應定義為（ ）
組卷：9引用：1難度：0.9 -
6．下列運算結果中，值為3的是（ ）
組卷：15引用：1難度：0.7 -
7．產生[1，40]范圍內某一隨機整數的表達式是（ ）
組卷：5引用：5難度：0.7 -
8．下列Visual Basic表達式的值等于56的是（ ）
組卷：8引用：5難度：0.5 -
9．在Visual Basic中，語句abc.Text=“hello”中的“Text”是（ ）
組卷：5引用：1難度：0.7
二、填空題，每空3分
-
28．以下Visual Basic程序的功能是：計算表達式1×3+2×3+3×3+…100×3的值，并在文本框abc中輸出計算結果．
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
問：（1）為了實現上述表達式的計算，①處橫線處應填入．
（2）退出循環時，變量i的值是．組卷：41引用：1難度：0.1 -
29．如圖為冒泡排序的案例：lstUnsorted,lstSorted為左右兩個列表框．
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=“數據個數必須大于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
問：為了實現上述冒泡算法的實現，橫線處應填入 ①． ②．組卷：32引用：1難度：0.1