資源簡介

平陽二中2015學年第一學期期中考試
高二信息技術試卷
一、選擇題（本題共15小題，每題2分，共30分）
1、1、下列是用VB編程解決問題時的三個步驟
①在VB編程環境中設計界面，編寫程序代碼
②分析問題，確定解決問題的算法
③調試，運行程序
正確的順序是（ ）
A．①②③ B．①③② C．③②① D．②①③
2、算法中的輸入，是指算法在執行時需要從外界（如：鍵盤）取得數據信息，其目的是為算法的某些階段建立初始狀態，一個算法的輸入可以0個，是因為（ ）
A．建立初始狀態所需要的數據信息已經包含在算法中
B．該算法不需要初始狀態的數據信息?
C．該算法的運算不涉及任何數據信息 ?D．以上說法都正確?
3、溫州地區居民生活用電 從2012年7月1日開始執行階梯電價。具體實施方案是：將居民每月用電量劃分為三檔，電價實行分檔遞增。第一檔為每月不超過220度的電量，電價保持每度0.49元不變；第二檔為每月221至400度之間的電量，電價每度0.54元，比第一檔提高0.05元；第三檔為每月超過400度的電量，電價每度0.79元，比第一檔提高0.3元；居民階梯電價以年度為周期結算。該問題算法的結構屬于 （ ）
A. 順序結構 B. 樹形結構 C. 選擇結構 D. 循環結構
4、要使窗體Form1的標題欄中顯示“計算”，以下語句正確的是 （ ）?A．Form1.Caption=“計算” B．Form1.title=“計算”?C．Form1.Text=“計算” D．Form1.名稱=“正計算”
5、下列關于“控件”屬性的說法正確的是 （ ）A．單擊窗體中的某控件，在屬性窗口中的屬性列表框中找到所要設置的屬性，即可設置其屬性值。B．所有對象都具有同樣的屬性C．控件的屬性只能在設計時設置，不能在運行時修改D．控件的每一個屬性都具有同樣的默認值
6、在VB中，下列能作為變量名的是 （ ）
A.5a?? B.If?? C.Abs?? D.Tea
7、下列屬于Visual Basic數值常量的是 （ ）
A.1+2 B.1/2 C.1÷2 D. 0.5
8、銀行給用戶計算利息時，結果中會產生很多位小數，但在支付時，是以“元”為單位，按“分”結算的，即結果保留二位小數，并對第三位小數進行四舍五入。假設結算的利息是x元，在Visual Basic中，上述算術問題的表達式應是 （ ）
A. Int(x*10+0.5)/10 B. Int(x*100+0.5)/100
C. Int(x*100)/100 D. Int(x*100+0.5)/10
9、 如果上右程序框圖運行的結果，那么判斷框中應填入（ ）

A． B． C． D．
10、模擬剪刀石頭布的游戲，用1~3這3個數分別代表剪刀、石頭、布這三種情況，使用RND隨機函數可以表示為（ ）
A、 INT（RND（3）+1） B、INT（RND*2+1）
C、 INT（RND（2）+1） D、INT（RND*3+1）
11、若x = False, y = True，執行
If x And y? Then x = 0 Else x = 1 后X的結果為( )。
? ? A.False? ? ? ? B.1? ? ? ? C.編譯錯誤? ? ? ? D.0?
12、表示圖中坐標軸上陰影部分的表達式是（ ）。
????
A．(X=b)AND(X<=C)???B．(X=b)OR(X<=C)?
C．(X=b)AND(X<=C)???D．(X=b)OR(X<=C
13、下列Visual Basic程序段運行后，變量s的值等于120的是（ ）
s = 0 : i = 1
Do While i <= 15
s = s + i
i = i + 1
Loop
（A）
s = 0 : i = 1
Do While i <=15
i = i + 1
s = s + i
Loop
（B）
s = 0
For i = 1 To 15
s = i
Next i
（C）
s = 0
For i = 1 To 15
i = i + s
Next i
（D）
14、某VB程序的一個事件過程如下：
Private Sub Command1_Click()
Dim r As Single
Dim pi As Double
r = 50
pi = 3.14
Label1.Caption = "圓面積為：" + Val(pi * r * r)
End Sub
運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示。引起該錯誤的語句是: （ ）
A. Dim r As Single B. Dim pi As Double
C .pi = 3.14 D.Label1.Caption = "圓面積為：" + Val(pi * r * r)
15、.某VB程序的一個事件過程如下：
Private Sub Command1_Click()
Dim ch As String
ch = "abcd"
Label1.Caption = ch
End Sub
窗體中標簽對象的屬性設置如圖所示。
運行程序，單擊命令按鈕Command1，出現“要求對象”的出錯信息提示。引起該錯誤的語句是（ ）
A. Dim ch As String B. ch = "abcd"
C . Label1.Caption = ch D. End Sub
二、非選擇題（每空2分，共20分）
16、有如下Visual Basic程序段：
x = 2016
y =int（-40.2）
s = x + y
該程序段運行后，變量s的值為_________。
17、有如下Visual Basic程序：在文本框中輸入a，運行后在標簽label1顯示運行結果。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
If a Mod 2 = 0 Then
b = a + 1
ElseIf a Mod 3 = 0 Then
b = a + 2
ElseIf a Mod 5 = 0 Then
b = a + 4
Else
b = a
End If
Label1. ① = Str(b)
End Sub
運行該程序，在文本框Text1中輸入25，單擊命令按鈕Command1，在標簽Label1中顯示運行結果。
(1)在程序①劃線處，填入適當的語句或表達式，把程序補充完整：
程序中①劃線處應填入 。
(2)該程序段運行后，標簽label1中顯示的結果是____________.
18、 有如下Visual Basic程序段：
i=1
Do while i<8
i=i+2
s=2*i+3
loop
該程序段運行后，變量s的值為____________.
19、有如下Visual Basic程序：
Private Sub Command1_Click()
Dim a As String, i As Integer
a = Text1.Text
For i = 1 To Len(a)
If Mid(a, i, 1) = "@" Then
Label1.Caption = Mid(a, 1, i - 1)
End If
Next i
End Sub
運行該程序，在文本框Text1中輸入[email protected]，單擊命令按鈕Command1，在標簽Label1中顯示的是__________。
20、某企業在第1年初購買一臺價值為120萬元的設備，該設備的價值在使用過程中逐年減少。從第2年到第6年，每年初的價值比上年初減少10萬元；從第7年開始，每年初的價值為上年初的75%。問第n年初該設備的價值是多少？下面的Visual Basic程序用于解決此問題，運行程序，在文本框Text1中輸入年數n，單擊“計算”按鈕Command1，則在標簽Label1中顯示此年初的價值a。程序運行界面如圖1所示，流程圖如圖2所示。
圖1
圖2
程序代碼如下：
Private Sub Command1_Click()
Dim n As Single, a As Single
n = Val(Text1.Text)
If n = Int(n) And n >= 1 Then
If n <= 6 Then
a = ①
Else
a = 70 * 0.75 ^ (n - 6)
End If
Label2.Caption = "第" + Str(n) + "年初價值：" + ② + "萬元"
Else
Label2.Caption = "輸入的年數不符合要求！"
End If
End Sub
在程序①和②劃線處，填入適當的語句或表達式，把程序補充完整：
程序中①劃線處應填入 。程序中②劃線處應填入 。
21、求完數（完美數）。一個數恰好等于除它本身外的因子之和，這個數就稱為完數。例如28除本身之外的因子是1，2，4，7，14，且1 + 2 + 4 + 7 + 14 = 28，則28是完數。下列Visual Basic程序用于查找2～10000中的所有完數，并將結果顯示在列表框List1中，程序運行界面如圖1所示。其中方框內程序對應的流程圖如圖2所示
圖1
程序代碼如下：
Private Sub Command1_Click()
Dim i As Integer, t As Integer，s as integer
For x = 2 To 10000
s = 0
For i= 1 To x 2
If x Mod i = 0 Then
s = ②
End If
Next i
If s = x Then
List1.AddItem ①
End If
Next x
End sub
（1）該程序的的算法是 。 （選填：解析算法/枚舉算法）
（2）在程序①和②劃線處，填入適當的語句或表達式，把程序補充完整：
程序中①劃線處應填入 。
程序中②劃線處應填入 。
平陽二中2015學年第一學期期中考試
高二信息技術答卷
選擇題（每題2分，共15題，共30分）
題號
1
2
3
4
5
6
7
8
9
10
答案
D
A
C
A
A
D
D
B
A
D
題號
11
12
13
14
15
答案
B
C
A
D
C
非選擇題（每空2分，共20分）
16、____1965_____________
17、
(1)____caption__________ (2)______29____________
18、
______21_______________.
19、
_______erzhong________________
20、
120-10*（n-1）_____ str（a） 。
21、
(1) 枚舉算法
（2） s+i str（s）或str（x） 。

展開更多......

收起↑