資源簡介

2016年6月信息技術VB期末測試試卷
一、選擇題（每題3分）
1.在求解“一元二次方程實數根”的算法中，如果方程不存在實數解，也要求輸出結果“無實數根”。此要求主要體現了算法特征中的（　　）
（A）有窮性
（B）有輸出
（C）確定性
（D）唯一性
2．某超市在晚上19：30－20：30期
( http: / / www.21cnjy.com )間，對于在貨架上已超過2天的帶葉蔬菜，收銀機自動將價格下降50%。用來描述某種蔬菜是否降價的處理過程，合適的算法流程是（　?。?br/>（A）循環模式
（B）重復模式
（C）選擇模式
（D）順序模式
3.在Visual
Basic程序中要用到存儲范圍為-40000～40000的某一整數變量，則該變量的類型應該定義為（　?。?br/>（A）Integer
（B）Long
（C）Single
（D）Boolean
4.在Visual
Basic中，要定義一
( http: / / www.21cnjy.com )個一維數組a，用于存儲15名鉛球運動員的成績數據（以米為單位，精確到0.01米），則正確的數組定義語句是（　　）
（A）Dim
a(1,15)
As
Integer
（B）Dim
a(1,15)
As
Single
（C）Dim
a(1
To
15)
As
Single
（D）Dim
a(1
To
15)
As
Integer
5．在Visual
Basic中，用變量y存儲“ABC”，變量y的數據類型應定義為（　?。?br/>（A）String
（B）Long
（C）Boolean
（D）Integer
6.下列運算結果中，值為3的是（　?。?br/>（A）5/3
（B）5\3
（C）3
mod
5
（D）5
mod
3
7.產生[1，40]
范圍內某一隨機整數的表達式是（　?。?br/>（A）Rnd
40
（B）Int(Rnd
40)
（C）Int(Rnd
40)
+
1
（D）Int(Rnd
39)
+
1
8.下列Visual
Basic表達式的值等于56的是（　　）
（A）Mid("1234567",
5,
3)
（B）Len("55")
+
1
（C）Sqr(56)
（D）Abs(-55)
+
1
9.在Visual
Basic中，語句abc.Text="hello"中的“Text”是（　?。?br/>（A）對象名
（B）方法名
（C）屬性值
（D）屬性名
10.下列屬于正確的Visual
Basic賦值語句的是（　?。?br/>（A）a
+
b
=
2
（B）a
=
2+b
（C）2
=
a
+
b
（D）a
b
=
2
11.在Visual
Basic中，下列能作為變量名的是（　?。?br/>（A）3_Click
（B）Name
（C）Integer
（D）a+y
12.在Visual
Basic中，Hello.frm文件屬于（　　）
（A）工程文件
（B）窗體文件
（C）代碼文件
（D）類文件
13.在Visual
Basic中，語句tel="ipad3"中的"iPad3"是（　?。?br/>（A）邏輯常量
（B）數值常量
（C）字符串常量
（D）實數常量
14.下列表達式中，符合
Visual
Basic表達式書寫規范的是（　　）
（A）3+|k-1|
（B）2k-1
（C）a·k/2
（D）k2-1
15.在Visual
Basic中，要在標簽對象Label3上顯示文字“正確”，下列語句正確的是（　?。?br/>（A）Label3
="正確"
（B）Lable3.Caption
="正確"
（C）Label3.Caption
="正確"
（D）Caption.Label3
="正確"
16.對于Visual
Basic語句If
b=2
Then
s=s
2
Else
s=s/2，下列說法正確的是（　?。?br/>（A）b=2為賦值語句
（B）s=s
2和s=s/2均為賦值語句
（C）s=s
2和s=s/2均為關系表達式
（D）s=s
2為關系表達式，s=s/2為賦值語句
17．長方體側面積計算公式是s=2h(a+b)，a、b為長和寬，h為高，計算s的Visual
Basic表達式是
（　　）
（A）2h(a+b)
（B）2h
(a+b)
（C）2
h(a+b)
（D）2
h
(a+b)
18.將整數型變量n的值顯示在文本框Text1中，正確的語句是（　?。?br/>（A）Text
=
n
（B）Val(Text1)
=
n
（C）Text1.Text
=
Str(n)
（D）Str(Text1.Text)
=
n
19．下列語句用于計算s=1+4+7+10+…+25：
①For
i=1
To
25
Step
3
②Next
i
③s=0
④s=s+i
正確的語句順序是（　?。?br/>（A）①②③④
（B）①③④②
（C）③①④②
（D）④③①②
20．有流程圖結構如下，其算法結構屬于
（　?。?br/>

（A）順序結構
（B）選擇結構
（C）分支結構
（D）循環結構
21．下列描述算法的流程圖符號中屬于輸入.輸出框符號的是（　?。?br/>（A）
（B）
（C）
（D）
22.某Visual
Basic程序的一個事件過程如下：
Private
Sub
Command1_Click()
Dim
ch
As
String
ch
=
"abcd"
Label1.Caption
=
ch
End
Sub
窗體中標簽對象的屬性設置如圖所示。
( http: / / www.21cnjy.com )
運行程序，單擊命令按鈕Command1，出現“要求對象”的出錯信息提示。引起該錯誤的語句是（　　）
（A）Dim
ch
As
String
（B）ch
=
"abcd"
（C）Label1.Caption
=
ch
（D）End
Sub
二、填空題
1.（每空3分）有如下Visual
Basic程序段：
i=6
i=i+2
j=2
i+1
j=i
該程序段運行后，變量j的值為
。
（每空3分）
Private
Sub
Command1_Click()
Dim
a
As
String
a
=
Text1.Text
+
Text2.Text
Print
a
End
Sub
程序運行后,在第一個文本框(Text1)和
( http: / / www.21cnjy.com )第二個文本框(Text2)中分別輸入58和42,然后單擊命令按鈕,則在窗體上打印出來的結果為_______________
3.（每空3分）某算法的流程圖如下所示：


若輸入a、b的值分別為3、9，則該算法的輸出結果為_______________
4.（每空3分）某快遞公司
( http: / / www.21cnjy.com )快遞貨物按照貨物的重量，按下列標準收費：若不超過5千克，統一收取費用15元，若超過5千克，在基本費用15元的基礎上，超過部分則按每千克2.5元收費，若超過20千克,在基本費用50元的基礎上，超過部分則按每千克2元收費。
設x表示貨物重量，y表示快遞費用。該問題的數學表達式為：
解決上述問題的Visual
Basic程序如下，在①和②劃線處，填入合適的語句或表達式，把程序補充完整。
Private
Sub
Command1_Click()
Dim
x
as
Double
x=Val(Text1.Text)
If
x>20
Then
①
Else
If
②
Then
y=15+(x-5)
2.5
Else
y=15
End
If
Text2.Text=Str(y)
End
If
End
Sub
5、（每空3分）有如下Visual
Basic程序段：
s
=
0
For
i
=
1
To
6
step
2

s
=
s
+
i
Next
i
該程序段運行后，s=________
6.（每空4分）以下Visual
Ba
( http: / / www.21cnjy.com )sic程序的功能是：計算表達式1×3＋2×3＋3×3＋…100×3的值，并在文本框abc中輸出計算結果。
Private
Sub
Command1_Click()
Dim
i
As
Integer,
s
As
Integer
s
=
0
i
=
1
Do
While
i
<=
100
s
=
s
+
i
3
i
=
i
+
1
Loop
_____①______
=
Str(s)
End
Sub
問：（1）為了實現上述表達式的計算，②處劃線處應填入_____①_____。
退出循環時，變量i的值是____②_____。
7.（每空4分）如下圖為冒泡排序的案例：lstUnsorted，lstSorted為左右兩個列表框。
( http: / / www.21cnjy.com )
Option
Explicit
Const
MAXSIZE
=
1000
Dim
d(MAXSIZE
+
1)
As
Integer,
n
As
Integer
Private
Sub
Command1_Click()
Dim
i
As
Integer,
j
As
Integer
n
=
Val(txtSize.Text)
If
n
<=
0
Or
n
>
MAXSIZE
Then
txtSize
=
"數據個數必須大于0！"
Exit
Sub
End
If
Randomize
lstUnsorted.Clear
For
i
=
1
To
n
j
=
Int(32768
Rnd)
lstUnsorted.AddItem
Str$(j)
d(i)
=
j
Next
Command2.Enabled
=
True
End
Sub
Private
Sub
Command2_Click()
'冒泡
Dim
i,
j,
TEMP,
NextElement
lstSorted.Clear
For
i=1
to
n-1
For
_____①_______
Step
-1
If
d(j)
<
d(j
-
1)
Then
TEMP
=
d(j)
________②_______
d(j
-
1)
=
TEMP
End
If
Next
Next
For
i
=
1
To
n
lstSorted.AddItem
d(i)
Next
End
Sub
問：為了實現上述冒泡算法的實現，劃線處應填入_____①_____。____②_____。
2016年6月信息技術VB期末測試試卷答題卷
一、選擇題
(本大題22小題，每小題3分，共66分。在每小題給出的四個選項中，只有一個是符合題目要求的。)
題次
1
2
3
4
5
6
7
8
9
10
答案
題次
11
12
13
14
15
16
17
18
19
20
答案
題次
21
22
答案
填空題
（1-4題每空3分，6-7題每空4分）
_____________
_____________
（3）_____________
（4）_____________
_____________
（5）_____________
（6）_____________
_____________
（7）_____________
_____________
2016年6月信息技術VB期末測試試卷答案
一、選擇題
(本大題22小題，每小題3分，共66分。在每小題給出的四個選項中，只有一個是符合題目要求的。)
題次
1
2
3
4
5
6
7
8
9
10
答案
B
C
B
C
A
C
C
D
D
B
題次
11
12
13
14
15
16
17
18
19
20
答案
B
B
C
D
C
B
D
C
C
D
題次
21
22
答案
C
C
填空題
（1-4題每空3分，6-7題每空4分）
_____17________
_____5846________
（3）_______2______
（4）_y=50+(x-20)
2
x>5或x>5
and
x<=20
（5）_______9______
（6）__abc.text______
___101_____
（7）
j=n
to
i+1
d(j)=d(j-1)___
線
密
封
線
密
封

展開更多......

收起↑