資源簡介

2010學年第二學期期中檢測（2011年4月）
高一 信息技術試題卷
審核人：陳亮 校對：潘虹
考生須知：1、本卷共 9頁；
2、本卷答案必須做在答案卷上，做在試卷上無效；
3、答題前請在答題卷密封線內填好相關欄目。不得使用計算器。
一、選擇題（每題2分，30題，共60分）
1. 下列關于算法的描述，正確的是
（A）一個算法的執行步驟可以是無限的
（B）一個完整的算法必須有輸出
（C）算法只能用流程圖表示
（D）一個完整的算法至少有一個輸入
2. 用計算機無法解決"打印所有素數"的問題，其原因是解決該問題的算法違背了算法特征中的
（A）唯一性 （B）有窮性
（C）有0個或多個輸入 （D）有輸出
3.在Visual Basic中，Hello.vbp文件屬于
（A）工程文件 （B）窗體文件 （C）代碼文件 （D）類文件
4. 在Visual Basic中，語句Year.Caption = "2010" 中的"Year"是
（A）屬性值 （B）屬性名 （C）對象名 （D）類名
5. “和諧號”列車規定：旅客可免費攜帶20Kg行李，攜帶品的長、寬、高相加不超過130cm，對超過規定的攜帶品，應提前辦理托運手續。用算法描述行李能否托運的處理過程，合適的算法流程是
（A）順序模式 （B）選擇模式 （C）循環模式 （D）樹型模式
6.下列屬于Visual Basic數值常量的是
（A）321 （B）12*3 （C）Abs(-5) （D）Sqr(9)
7.在Visual Basic中，如果要給變量i,j,k都賦值為1，則下列語句正確的是
（A）i=j=k=1 （B）i,j,k=1 （C）i=1,j=1,k=1 （D）i=1:j=1:k=1
8.在Visual Basic中，窗體中添加文本框Text1的正確方法是
（A）先單擊工具箱中的控件圖標，再將鼠標指針移到窗體上，雙擊鼠標
（B）雙擊工具箱中的控件圖標
（C）先單擊工具箱中的控件圖標，再將鼠標指針移到窗體上，單擊鼠標
（D）用鼠標左鍵拖動工具箱中的控件圖標到窗體中
9.在Visual Basic中，要定義一個一維數組name，用于存儲10位學生姓名信息，則正確的數組定義語句是
（A）Dim name(1,10) As Integer （B）Dim name(1 To 10) As Integer
（C）Dim name(1,10) As String （D）Dim name(1 To 10) As String
10.在Visual Basic中，表達式 Abs(-3.5)的值是
（A） -3 （B） -4 （C） 3 （D）3.5
11. 為找自己第一次上幼兒園時的照片，小張同學依次翻開自己的多本相冊來逐張查找。這種查找方法為
（A）無序查找 （B）順序查找 （C）對分查找 （D）隨機查找
12.在Visual Basic中，要在標簽Label2上顯示“注意”，則下列操作正確的是
（A）在Text屬性中輸入“注意” （B）在Caption屬性中輸入“注意”
（C）在Font屬性中輸入“注意” （D）在Name屬性中輸入“注意”
13. 在Visual Basic中，若x表示能被5整除的正整數，則下列邏輯表達式的值一定為真的是
（A）x / 5 = 0 （B）x Mod 5 = 0
（C）Int(x \ 5) = 0 （D）5 Mod x = 0
14. 在校內跳蚤市場中，某班準備的5類商品售出的數量(單位：件)分別是8，10，4，6，3。采用冒泡排序對其進行排序，若完成第一遍時的結果是：3，8，10，4，6，則完成第二遍時的結果是
（A）3，8，10，4，6 （B）3，4，8，6，10
（C）3，4，8，10，6 （D）3，4，6，8，10
15. "計算計件工資"的Visual Basic程序運行界面如圖所示，單擊"計算"命令按鈕Command1，觸發的事件處理過程名是
（A）Command1_Click （B）Text1_Click
（C）Form_Click （D）Label3_Click
16. 報名參加冬季越野賽跑的某班5位學生的學號是：5，8，11，33，45。利用對分查找，查找學號為33號學生的過程中，依次被訪問到的學號是
（A）5，11，33 （B）8，33
（C）11，45，33 （D）11，33
17. 在Visual Basic中，a = -100，表達式"360" + Str(a)的值是
（A）260 （B）360-100 （C）460 （D）360100
18.有如下Visual Basic程序段：
For j=1 To ______ Step 2
t=t*j
Next j
要使循環體t=t*j執行5次，循環變量的終值可以是
（A）-5 （B）0 （C）5 （D）10
19.衛星沿某星球圓軌道運行，軌道半徑是r千米，周期是t秒，根據這些數據估算該星球的質量m的步驟有：
①輸出星球質量m
②pi=3.14159
③計算星球質量m=4*pi︿2*r︿3/(g*t︿2)
④輸入軌道半徑r和周期t
⑤g=6.67*10︿-11
其正確的順序是
（A）⑤①②③④ （B）①②③④⑤
（C）④⑤②③① （D）③④②①⑤
20.下列Visual Basic表達式正確的是
（A）v0+a*t （B）a2+2bc （C）2π*r （D）1/2g*t︿2
21. 下面流程圖所表示的是"根據居民月用電量a，按階梯遞增電價計算相應電費y"的算法，該算法屬于
（A）解析算法 （B）排序算法
（C）枚舉算法 （D）對分算法
22.下面程序段是利用For語句給數組a賦值：
For i= 1 To 6
a(i)=i+1
Next i
該程序段運行后數組元素a(3)的值為
（A）2 （B）3 （C）4 （D）5
23. 運行如下Visual Basic程序，單擊命令按鈕Command1，出現如圖所示的出錯信息。發生"除數為零"錯誤時所執行的語句是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Single
a = 2 '①
b = a + 1 '②
c = a / (b - 3) '③
Text1.Text = Str(c) '④
End Sub
（A）① （B）② （C）③ （D）④
24.在Visual Basic中，若a=1，b=2，c=5，則下列邏輯表達式值為真的是
（A）(a>b) And (a>c) （B）(b>a) And (b>c)
（C）(a>b) Or (a>c) （D）(b>a) Or (b>c)
25. 某校有5位學生參加學生會主席競選，得票數依次為110，98，3，150，67。使用選擇排序的方法對得票數進行從大到小排序，需要進行數據互換的次數是
（A）5 （B）4 （C）3 （D）2
26.在Visual Basic中，設x=4126，能得到其百位上數字“1”的正確表達式是
（A）x Mod 100 （B）x \ 100 Mod 10
（C）x \ 100 Mod 100 （D）x \ 10 Mod 10
27.以下程序段是一個完整的Visual Basic塊If語句，則劃線處的語句應該是
If a>100 Then
a=a+1
Else
a=a-1
________
（A）End Sub （B）Loop （C）EndIf （D）Else End
28.下面程序段是利用For語句給數組a賦值，使a(1)=2，a(2)=4，a(3)=6，…，a(100)=200，則劃線處的語句應該是
For i= 1 To 100
_____________
Next i
（A）a(i)=i+2 （B）a(i)=i*i （C）a(i)=i （D）a(i)=2*i
29. 計算某球隊平均年齡的部分算法流程圖如圖所示，其中：c用來記錄已輸入球員的人數，sum用來計算有效數據之和，d用來存儲從鍵盤輸入的球員年齡值，輸入0時表示輸入結束。
圖中空白處理框①和②處應填入的是
（A）① sum ← sum + d ② c ← c + 1
（B）① sum ← sum + c ② c ← c + 1
（C）① sum ← sum + d ② d ← d + 1
（D）① sum ← sum + c ② d ← d + 1
30. 在Visual Basic中，有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = max(a, b) + max(b, c)
Text4.Text = Str(d)
End Sub
Function max(x As Integer, y As Integer) As Integer
If x > y Then max = x Else max = y
End Function
運行該程序，在文本框Text1、文本框Text2、文本框Text3中分別輸入2、-5、6后，單擊命令按鈕Command1，文本框Text4中顯示的是
（A）-5 （B）2 （C）6 （D）8
二、程序計算題（每題2分，10題，共20分）
1.有如下Visual Basic程序段：
s="good"
s=s+"luck"
該程序段運行后，變量s的值是___________。
2.有如下Visual Basic程序段：
m = -5
n = -2.6
s = m + Int(n)
該程序段運行后，變量s的值為____________。
3.有如下Visual Basic程序段：
Dim x As Single, c As String
x=Val(Text1.Text)
If x>12 Then
c= "PM"
Else
c= "AM"
End If
Label1.Caption=c
該程序段運行時，在文本框Text1中輸入15.6，Label1標簽上將顯示的是　　　 。
4.有如下Visual Basic程序段：
a = 30 : b = 20 : c = 5
m=a
If b < m Then m = b
If c < m Then m = c
該程序段運行后，變量m的值為 。
5.有如下Visual Basic程序段：
s = 0
i = 3
Do While s <= 10
s = s + i
i = i + 3
Loop
該程序段運行后，變量s的值為________。
6.有如下Visual Basic程序段：
k = 0
For i = 1 To 10
If i Mod 3 = 0 Then k = k + 1
Next i
該程序段運行后，變量k的值為___________。
7.下列Visual Basic程序的功能是：計算表達式12+42+72+…+972的值，并在文本框Text1中輸出表達式的值。為了實現這一目標，程序中For語句劃線處的循環變量步長應為__________________。
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer
sum = 0
For i =1 To 97 Step
sum = sum + i*i
Next i
Text1.Text = Str(sum)
End Sub
8.有如下Visual Basic程序段：
s = 0:t=1
For i = 1 To 4
t=-t
s=s+t*i
Next i
該程序段運行后，變量s的值為___________。
9.以下Visual Basic程序的功能是： 計算表達式1+2+4+8+16+32+…+1024的值，并在文本框Text1中輸出結果。為了實現這一功能，程序中劃線處的語句應更正為_____________。
Private Sub Command1_Click()
Dim a As Integer, s As Long
s = 0
a = 1
Do While a <= 1024
s = s + a
a = a + 2
Loop
Text1.Text=Str(s)
End Sub
10.以下Visual Basic程序的功能是：找出自然數1-100之間被3整除的數，并在文本框Text1中輸出這些數的累加和。為了實現這一功能，程序中劃線處的語句應更正為____________。
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 to 100
If i Mod 3=0 Then sum = sum + 3
Next i
Text1.Text=Str(sum)
End Sub
三、程序填空（每空4分，5空，共20分）
1.有一道趣味題，張老師問李老師:"你今年幾歲？你愛人今年幾歲？"李老師笑笑說："我年齡的平方與我愛人年齡之和恰好等于1053。而我愛人年齡的平方與我的年齡之和卻等于873。你計算一下吧！"
設李老師年齡為x歲，他愛人年齡為y歲，由題意可得x，y滿足的數學式為：
x2 + y = 1053
x + y2 = 873
解決此問題的流程圖如VB-1所示。根據流程圖VB-1編寫的Visual Basic程序如下，在(1)和(2)劃線處，填入合適的語句或表達式，把程序補充完整。
Private Sub Command1_Click()
Dim x As Integer, y As Long
x = 1
y = 1053 - x * x
Do While （1）
（2）
y = 1053 - x * x
Loop
Text1.Text = Str(x)
Text2.Text = Str(y)
End Sub
程序中劃線處(1)應填入
程序中劃線處(2)應填入
2. 某超市打折促銷，規定如下：
①購物未超過500元按原價支付；
②購物超過500元但未超過1000元，超過500元部分按9折優惠計價；
③購物超過1000元但未超過1500元，超過1000元部分按8折優惠計價；
④購物超過1500元但未超過3000元，超過1500元部分按7折優惠計價；
⑤購物超過3000元，超過3000元部分按6折優惠計價。
根據以上規定，假定購物貨款為x元，則實付金額y為:
程序界面如圖所示，在"輸入購物金額（單位：元）"后的文本框orgtext中輸入購物金額（單位：元），單擊"實付金額計算"按鈕（Command1）后，在"實際支付金額（單位：元）為"后的文本框cashText中輸出實付金額。
解決此問題相應的Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(orgtext.Text)
If x <= 500 Then
y = x
ElseIf ① Then
y = 500 + (x - 500) * 0.9
ElseIf x <= 1500 Then
y = 500 + 500 * 0.9 + (x - 1000) * 0.8
ElseIf x <= 3000 Then
y = 500 + 500 * 0.9 + 500 * 0.8 + (x - 1500) * 0.7
Else
y = 500 + 500 * 0.9 + 500 * 0.8 + 1500 * 0.7 + (x - 3000) * 0.6
End If
②
End Sub
（1）解決此問題的算法是_______________。 （選填：解析法 或 枚舉法）
在程序①和②劃線處，填入適當的語句或表達式，把程序補充完整。
（2）程序中①劃線處應填入_______________。
（3）程序中②劃線處應填入_______________。
一、單項選擇題（共30小題，每題2分，共60分）
題號 1 2 3 4 5 6 7 8 9 10
答案
題號 11 12 13 14 15 16 17 18 19 20
答案
題號 21 22 23 24 25 26 27 28 29 30
答案
二、程序計算題（共20分，每題2分）
1 2
3 4
5 6
7 8
9 10
三、程序填空題（共20分，每空4分）
1
2
2010學年第二學期期中檢測（2011年4月）
高一 信息技術答題卷
2010學年第二學期期中檢測（2011年4月）
高一 信息技術答案

展開更多......

收起↑