資源簡介

初中信息技術（九年級） 試題卷
說明：試卷共分二部分。第一部分為筆試試題，包括單項選擇題與綜合題，測試時間為25分鐘，滿分60分。第二部分為上機操作題，測試時間為15分鐘，滿分為40分。

第一部分：筆試試題（60分）
單選題（本題有10小題，每小題3分，共30分）
1.利用計算機編寫程序解決實際問題時，首先應該做的是（ ）
A. 編寫程序 B. 設計算法 C. 調試程序 D. 分析問題
2.下列圖形中表示對數據進行處理的是（ ）。
　　　　　　B．　　　　　　C.　　　　　　 D.
3.一個工程必須包含的文件類型是（ ）。
*.vbp*.frm*.frx B. *.vbp*.cls*.bas
C. *.bas*.ocx*.res D. *.frm*.cls*.bas
4.張碩使用VB編寫了一個顯示時間的程序，圖1顯示的是圖2中（ ）對象的屬性。

“顯示”按鈕　 B．“清除”按鈕
C.“當前時間”標簽框 　 D.“Text1”文本框
5.對于語句 If x=1 Then y=1, 下列說法正確的是（ ）。
A. x=1和y=1 均為賦值語句
B.x=1和y=1 均為關系表達式
C. x=1為賦值語句，y=1為關系表達式
D.x=1為關系表達式，y=1 為賦值語句
6.“已知長方形的長和寬，求長方形的周長”，用算法描述這一問題，合適的算法結構是（ ）。
A. 選擇結構 B. 循環結構 C. 順序結構 D. 樹型結構
7.以下變量名中，（ ）是不符合Visual Basic的命名規范的。
? A：_mnu_Open_234 B：Abc901 C：price_ D：K
8.下列循環語句能正常結束循環的是（ ）。
A. i=5 B. i=1
Do Do
i=i+1 i=i+2
Loop Until i<0 Loop Until i=10
C. i=10 D. i=6
Do Do
i=i-1 i=i-2
Loop Until i<0 Loop Until i=1
9.某算法流程圖如下，該算法的輸出結果為（ ）。

A．6 B．5 C．10 D．11
10.有如下的Visual Basic程序段：
For i = 1 To 10 Step 4
s = s + i
Next i
該程序段運行后，語句s = s + i執行的次數是（ ）。
A . 1 B. 3 C. 4 D. 10

二、綜合題（本題共3小題，其中第1小題8分，第2小題10分，第3小題12分）
填空題
將代數式式轉換成程序設計中的表達式為 。
表示x 是5的倍數或是9的倍數的邏輯表達式為?????? ????? 。
讀程序寫結果
（1）林娜編制了一個驗證乘法運算結果的小程序（如下圖所示），當在“輸入結果”右邊的文本框中輸入60時，輸出內容為?????? ? ?????。
（2）Private Sub Form_Click()
??? Dim i As Integer, sum As Integer
??? sum = 0
??? For i = 2 To 10
????????? ??If i Mod 2 <> 0 And i Mod 3 = 0 Then
??????????????? sum = sum + i
End If
??? Next i
??? Print sum
End Sub
程序運行后，單擊窗體，輸出結果為______。

程序填空
下列程序的功能是：當x<50時，y=0.8×x；當50≤x≤100時，y=0.7×x；當x>100時，輸入的數據超出范圍。請填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("請輸入x的值！")
（1）
Case x < 50
y=0.8 * x
Case 50 To 100
（2）
（3）
Print "輸入的數據超出范圍！"
End Select
Print x, y
End Sub
（1）、 （2）、 （3）、
第二部分：上機操作題（40分）
漢字輸入測試（20分）
Vb操作題（20分）
設計出租車收費計算器VB程序，使其具有下列功能：在文本框Text1中輸入行駛的路程，單擊“計算”按鈕Command1，在文本框text2中顯示所需的費用（注意：當行駛的公里數a 《3公里時，費用s為6.5元；當行駛的路程超過3公里時，3公里按6.5元計算，超出部分按每公里1.6元收費）。界面設計如圖所示。

打開VB軟件，完成下列操作：
參照上圖，完成界面設計：添加所需對象，在屬性窗口中設置各對象的有關屬性。（8分）
選擇“計算”按鈕的事件過程，該事件過程的代碼從VB文件夾下“代碼”文件中得到。(3分)
3.編寫程序中空缺的地方，并調試運行該程序，使程序實現上述功能。（5分）
4.保存窗體文件和工程文件。（4分）







初中信息技術（九年級） 參考答案
一、選擇題
1.A 2.B 3.A 4.A 5.D
6.C 7.A 8.C 9.A 10.B
二、綜合題
1（1）Sqr((x*x+y*y)/(a+b))
（2）X mod 5=0 or X mod 9=0
（1）ok!
（2）12
（1）Select Case x
（2） y=0.7 * x
（3）Case Else
上機操作題
Private Sub Command1_Click()
a = Val(Text1.Text)
If a <= 3 Then
s = 6.5
Else
s = 6.5 + (a - 3) * 1.6
End If
Text2.Text = s
End Sub

初中信息技術（九年級上） 試題卷評分標準
第一部分：筆試試題（60分）
單選題（每小題3分，共30分）
每小題３分，答錯不得分，共３０分
二、綜合題（本題共3小題，其中第1小題8分，第2小題10分，第3小題12分）
1、填空題（每空4分 共8分）
（1）、每空4分，答錯不得分。
（2）、每空4分，答錯不得分。
2、讀程序寫結果（每題5分 共10分）
（1）、每空 5分，答錯不得分
（2）、每空 5分，答錯不得分
3、程序填空（每空4分 共12分）
（1）、每空3分，答錯不得分
（2）、每空3分，答錯不得分
（3）、每空3分，答錯不得分

第二部分：上機操作題（40分）
漢字輸入測試
略
二、vb操作題（20分）
（1）共8分，正確添加text控件、便簽控件、command1按鈕并按要求修改屬性各得1分，正確修改form1屬性值得1分。
（2）共3分， 能把代碼復制到程序里得1分，復制到對的位置得2分。
（3）共5分，
寫出if a <= 3 Then 得1分
寫出s = 6.5 得1分
寫出Else 得1分
寫出s = 6.5 + (a - 3) * 1.6 得2分
（4）共4分，保存正確文件窗體文件和工程文件到指定位置各得2分

展開更多......

收起↑