資源簡介

第一部分
一、
1 2 3 4 5 6 7 8 9 10
C D B B C C A B D C
二、

① 18 ② 循環結構
2、
① b*b-4*a*c ②(-b - Sqr(d)) / (2 * a) ③d=0 ④””
⑤無實根
3、
①Caption ②0 ③s=s+i
第二部分
二、
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
If Label1.Caption = Command2.Caption Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Label1.Caption = Command3.Caption Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Label1.Caption = Command4.Caption Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub


[說明] 1、考試分為筆試和上機操作考試，筆試為60分，操作考試40分，共100分。 2、60分為及格分數。
第一部分
本題有10小題，每小題3分，共30分。
本題有3小題，其中第1小題8分，第2小題10分，第3小題12分，共30分。
第1題有2小題，每小題4分，共8分。
第2題有5小題，每小題3分，共10分。
第3題有3小題，每小題4分，共12分。
第二部分
本題共6分
每一個屬性值設置各2分。
本題共28分
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then //每個if語句格式正確2分
Text3.Text = Val(Text1.Text) + Val(Text2.Text) //每個條件表達式正確2分
End If
If Label1.Caption = Command2.Caption Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Label1.Caption = Command3.Caption Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Label1.Caption = Command4.Caption Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
//每個賦值語句正確3分，寫出相應的運算符或者Val()函數得2分

本題共6分
工程文件、窗體文件、可執行文件各2分。



初中信息技術（九年級） 試題卷
說明：試卷共分二部分。第一部分為筆試試題，包括單項選擇題與綜合題，測試時間為25分鐘，滿分60分。第二部分為上機操作題，測試時間為15分鐘，滿分為40分。
第一部分：筆試試題（60分）
一、選擇題（本題有10小題，每小題3分，共30分）
1.在條件選擇語句If …… Else If …… Else If …… End If中，當If結構內有多個條件都為True時，則( )
A.VB依次執行條件為True的后面的語句塊
B.VB執行第一個為True的條件后面的語句塊
C.VB執行最后一個為True的條件后面的語句塊
D.VB執行任一個為True的條件后面的語句塊
2.在vb中，x+y小于10且x-y大于5的邏輯表達式是（ ）
A.x+y<10 or x-y>5 B.(x+y<10) : (x-y)>5
C.x+y<10; x-y>5 D.x+y<10 and x-y>5
3.已知x=4，則vb表達式Sqr(x)的值是（ ）
A.1 B.2 C.3 D.4
4.有一把鎖和一串鑰匙（共有10把鑰匙，其中配套的鑰匙有若干把），怎樣找出能開這把鎖的所有鑰匙？設計的算法是：一把一把鑰匙嘗試開鎖，開鎖后將能開的鑰匙做好標記，最后有標記的鑰匙就是能開鎖的鑰匙，此算法屬于
A.解析算法 B.枚舉算法 C.遞歸算法 D.排序算法
5.在Visual Basic中，用變量p存儲數值3.1415，變量p的數據類型應定義為
A.Boolean B.Integer C.Single D.String
6.在Visual Basic中，語句Soft.Text="QQ2015"中的Soft是
A.屬性名 B.屬性值 C.對象名 D.窗體名
7.在Visual Basic中，如果給變量a、b都賦值為3，則下列語句正確的是
A.a=3:b=3 B.a=b=3 C.a=3,b=3 ?D.a=3;b=3
8.小明用計算機解決數值交換問題時經歷了若干階段，其中設計算法屬于
“分析問題確定要用計算機做什么”階段
“尋找解決問題的途徑和方法”階段
“用計算機進行處理”階段
“運行調試”階段
9.下列關于算法的描述，正確的是
描述算法的方法只能是流程圖
算法過程要一步一步執行，每一步執行的操作必須確切，不能含混不清，而且經過有限步或無限步后能得出結果
同一種算法只能用一種程序語言來實現
算法是描述解決問題的方法和步驟
10.在VB中，對于語句If I=1 Then J=1 else J=2，下列說法正確的是
A.I=1 和 J=1 都是賦值語句
B.J=1 和 J=2 都是關系表達式
C.I=1為關系表達式，J=1為賦值語句
D.J=1為賦值語句，J=2為關系表達式


二、綜合題（本題共3小題，其中第1小題8分，第2小題10分，第3小題12分）
1.
??
?
?
?
t←0:i←2
i<=6??
i←i+2
t←t+i
輸出t
開始?
結束
Y?
N
?
（1）上面流程圖執行后，輸出的變量t的結果是 ①
（2）上面的流程圖表示的是程序的哪種結構？ ②
2.變量a，b，c分別保存一元二次方程的二次項、一次項系數和常數項（其中a≠0），變量x1和x2分別保存方程的兩個根。完善下列程序，使程序運行時能根據方程的a，b，c值計算根并輸出相應信息。
d＝ ①
if d>0 then
x1= (-b + Sqr(d)) / (2 * a)
x2= ②
text4.text=str(x1)
text5.text=str(x2)
label6.caption=〝有兩個不同的實數根〞
else
if ③ then
x1＝(-b)/(2*a)
x2=x1
text4.text=str(x1)
text5.text=str(x2)
label6.caption=〝有兩個相同的實數根〞
else
text4.text= ④
text5.text=""
label6.caption= ⑤
end if
end if
3.計算1到100之和，欲設計的界面如下：

設置部分對象及其屬性如下表：
對象名 屬性名 屬性
Command1 ① 計算
編寫代碼：
Private Sub Command1_Click()
Dim i, s As Integer
s = ②
For i = 0 To 100 Step 1
③
Next i
Label2.Caption = Str(s)
End Sub















第二部分：上機操作題（40分）
打開“運算器.vbp”，該程序實現基本的運算，使用方法：在Text1和Text2中輸入要計算的數字，單擊相應的運算符號來選擇運算符號，單擊“=”，顯示相應的運算結果。

打開工程文件“運算器.vbp”，對照下列表格，修改對象屬性值（6分）

對象名稱 屬性名 屬性值
Form1 Caption 基本運算器
Text3 Width 1455
Text3 Enabled false

（30分）
編寫代碼，使得運行程序后，單擊按鈕“=”，Text3中顯示相應的運算結果。在窗體中雙擊命令按鈕Command5，事件處理過程代碼片段如下，請補充完整：
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
……
End Sub
三、代碼輸完后保存窗體文件和工程文件，并生成可執行文件到“素材”文件夾中，名稱為“基本運算器.exe”。（4分）
四、打開“素材”文件夾中中的“基本運算器.exe”，查看結果是否正確。

展開更多......

收起↑