2010年浙江省高中信息技術會考試卷（15）
發布：2024/4/20 14:35:0
一、選擇題（共16小題，每小題3分，滿分48分）
-
1．計算梯形面積的算法描述如下：
①輸入上底a、下底b和高h
②計算梯形面積s（計算公式為：s=（a+b）*h/2）
③輸出結果
④結束
上述算法屬于（ ）組卷：16引用：2難度：0.9 -
2．在Visual Basic中，要在窗體中的標簽對象Label1上顯示文字“請輸入驗證碼：“，應改變的標簽對象屬性是（ ）
組卷：0引用：1難度：0.9 -
3．有如下Visual Basic程序段：
Private Sub Label1_DblClick（ ）
Dim x As Integer,y As Integer
x=5
y=15
Text1．Text=Str（x+y）
End Sub
能運行這段程序的事件是。組卷：1引用：1難度：0.7 -
4．在Visual Basic中，表達式Fix（1.8）的值是（ ）
組卷：1引用：1難度：0.7 -
5．以下Visual Basic程序段是一個完整的Do語句，則橫線處的語句應該是
Do While n＜10
n=n+3
s=s*n
_______（ ）組卷：5引用：1難度：0.7
一、選擇題（共16小題，每小題3分，滿分48分）
-
15．某校通過政府招投標中心采購一套多媒體教學設備，有5家單位參加競標，競標價分別為19萬、15萬、21萬、13萬、12萬元人民幣．若采用選擇排序算法對標價從大到小排序，需要進行數據互換的次數是（ ）
組卷：14引用：2難度：0.1 -
16．在Visual Basic中，有如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer,c As Integer,d As Integer
a=Val（Text1．Text）：b=Val（Text2．Text）：c=Val（Text3．Text）
d=min（a,b）-min（b,c）：Text4．Text=Str（d）
End Sub
Function min（x As Integer,y As Integer） As Integer
If x＜y Then min=x Else min=y
End Function
運行該程序，在文本框Text1、文本框Text2、文本框Text3中分別輸入2、-5、6后，單擊命令按鈕Command1，文本框Text4中顯示的是（ ）組卷：3引用：2難度：0.5