2013-2014學年浙江省溫州市平陽三中高一（上）期中信息技術試卷
發布：2024/11/17 9:0:1
一、單項選擇題（本題有30小題，每小題2分，共60分．）
-
1．在Visual Basic中，下列不合法的變量名是（ ）
組卷：7引用：1難度：0.9 -
2．在Visual Basic中，下列表達式的值為“True“的是（ ）
組卷：7引用：1難度：0.9 -
3．下列敘述中，不正確的是（ ）
組卷：8引用：1難度：0.9 -
4．下列代碼運行后在窗體上輸出的結果是（ ）
Dim a As Integer
Dim b As Integer
a=5
b=8
If a＞b then
max=a
else
max=b
End If
Print max.組卷：6引用：1難度：0.9 -
5．在Visual Basic中，表達式 21Mod 5 的值是（ ）
組卷：8引用：1難度：0.9 -
6．在VB中，表示代數式
的表達式是（ ）2a+4b2a+b組卷：8引用：2難度：0.9 -
7．在Visual Basic中，下列正確的賦值語句是（ ）
組卷：7引用：1難度：0.9 -
8．在Visual Basic中，下列關于語句“Dim b1As string“說法正確的是（ ）
組卷：6引用：1難度：0.9 -
9．計算機程序的三種基本結構分別是：順序結構、分支結構、（ ）
組卷：4引用：1難度：0.9 -
10．在面向對象程序設計中，（ ）用來描述對象的特征信息．
組卷：4引用：2難度：0.7 -
11．在VB應用程序設計中，如果想讓Timer控件每秒鐘響應一次，應該將其Interval屬性設置為（ ）
組卷：4引用：2難度：0.5 -
12．下列過程中，（ ）代碼，是按鈕單擊就運行的程序段．
組卷：4引用：1難度：0.7 -
13．下列控件中“文本框”控件的是（ ）
組卷：6引用：1難度：0.9 -
14．運行如下程序段可輸出由“#”組成的（ ）圖形．
For X=1To 3
Print“########“
Next X．組卷：6引用：1難度：0.9
四、程序修改正確，使程序正常運行（3小題，每空2分，共20分）
-
43．酒駕認定
依照中華人民共和國《機動車駕駛員駕車時血液中酒精含量規定》，血液中酒精含量大于或等于0.3mg/ml駕駛機動車的屬酒后駕車；大于或等于1.0mg/ml駕駛機動車的屬醉酒駕車．設計一個程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒有違法．程序設計界面如圖所示：
Dim x As Single,d As String
If KeyAscii=13Then
x=Val（Text1．Text）
If x＞=1Then
d=“醉酒駕車!“
ElseIf x＜0.3Then'①
d=“酒后駕車!“
Else
d=“沒有違法!“
End If
Loop'②
Label2．Caption=Str（d）'③
把上面的程序代碼注釋的有3處錯誤，請修改正確．組卷：3引用：1難度：0.1 -
44．勾股數
尋找100以內的勾股數．大家都知道“勾三股四弦五”3^2+4^2=5^2，3，4，5就是勾股數，編寫程序尋找100以內的整數勾股數．設計界面如圖所示，單擊“統計”按鈕在List1中輸出所有滿足條件的勾股數．
Dim sum As Integer'定義sum為一個整形變量，計數功能
Dim i,j,k As Integer
List1．Clear
sum=1'①
For i=1To 100'假定k＞j＞i,可以避免重復尋找
For j=i To 100
For k=j To 100
If k*k=i*i+j*j Then
List1．AddItem （Str（i）+Str（j）+Str（k））
Sum=sum+2'②
End If
Next k
Next j
Next k'③
Label1．Text=“組數：“+Str（sum）'④
把上面的程序代碼注釋的有4處錯誤，請修改正確．組卷：2引用：1難度：0.1