《《算法與程序設(shè)計》試卷二》由會員分享，可在線閱讀，更多相關(guān)《《算法與程序設(shè)計》試卷二（12頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、
《算法與程序設(shè)計》測試題（二）
考試時間： 90 分鐘 滿分： 100 分
第一卷
一、 單項選擇題：（共 20 個空，每空 2 分，共 40 分）
1．下面關(guān)于算法的認(rèn)識，錯誤的是 [ ]。
A． 算法是解決問題的方法和步驟
B． 算法有一個或多個的輸出
C． 算法就是計算機程序
D． 算法的步驟必須是有限的
2．關(guān)于數(shù)組的說法，下面錯誤的是 [ ]。
A． 同一數(shù)組中的數(shù)據(jù)類型一定相同
B． 數(shù)組元素個數(shù)是有限的
C． 可以定義字符串類型的數(shù)組
D． 同一個程序的數(shù)組
2、數(shù)據(jù)類型一定相同
3．設(shè)置窗體標(biāo)題時，應(yīng)改變窗體的 [ ]屬性。
A． Name
B． Font
C． BackColor
D． Caption
4．不能使用 “ do作”為變量名的原因是 [ ]。
A．由英文字母開頭
B．后面沒有使用數(shù)字
C．使用了英文單詞
D．使用了關(guān)鍵字
5．代數(shù)式 對應(yīng)的 VB 表達(dá)式是 [ ]。
A． (a + b)/(c - d)
B． (a + b)/c –d
1 / 11
C． a + b/(c - d)
D． a +
3、 b/c - d
6．若變量 a 的值為 34000，則變量 a 的數(shù)據(jù)類型不可能為 [ ] 。
A． integer
B． long
C. single
D. double
如圖所示的流程圖為求 x 的絕對
值的算法。請回答 7-8 題：
7．根據(jù)算法，流程圖中①處的
內(nèi)容是 [ ] 。
A． 輸入 -x
B． 輸入 x
C． 輸入 y
D． 輸入 -y
8．該算法包含了 [ ] 控制結(jié)構(gòu)。
A． 順序結(jié)構(gòu)
B． 選擇結(jié)構(gòu)
C． 順序和循環(huán)結(jié)構(gòu)
4、D． 順序和選擇結(jié)構(gòu)
9．在 VB 語言中，下列正確的賦值語句是 [ ] 。
A． a + a = 2
B． 3 * a = c –5
C． a = 2 * a
D． a + 3 = b
10．在 VB 中，假定有以下程序段：
For i=1 to 3 step 2
2 / 11
Print “VB”
Next i
則語句 print “VB的”執(zhí)行次數(shù)是 [ ] 。
A． 4
B． 3
C． 2
D． 1
11．下面一組語句能令數(shù)組的兩個元素 a(i)與 a(j)交換數(shù)據(jù)
5、的是 [ ]
A． temp=a(i): a(i)=a(j): a(j)=temp
B． temp=i: i=j: j=temp
C. temp=a(i): a(j)=a(i): a(i)=temp
D．temp=a(j): a(i)=a(j): a(j)=temp
12．在 VB 語言中，表示 “a大于 5 或 b 小于 0” 的正確表達(dá)式是 [ ]。
A． 0 < b or a < 5
B． a > 5 And b < 0
C． a > 5 Or b < 0
D． a > 0 And b < 5
13．若 a = 4， b = 5
6、，則運行 Print a; "+"; b; "="; a + b 的結(jié)果是 [ ]
A． 4+5=9
B． a+b=9
C． a+b=a+b
D． 9
14．下列循環(huán)語句中循環(huán)次數(shù)無限的是 [ ]。
A． x=0
Do
x=x+1
Loop untilx>0
B． x=1
Do
3 / 11
x=2*x+1
Loop untilx=3
C． x=5
Do
x=x-2
Loop until x>=3
D． x=1
Do
x=x+2
7、
Loop until x=8
15．關(guān)于函數(shù)與過程的說法，正確的是 []。
A． 過程結(jié)束時一定要返回一個值
B． 過程內(nèi)一定要定義變量
C． 可以在表達(dá)式中調(diào)用過程
D． 函數(shù)一定要有返回值
16．二分法查找的前提是 [
]。
A． 被查找數(shù)據(jù)元素個數(shù)是奇數(shù)
B． 被查找數(shù)據(jù)元素個數(shù)是偶數(shù)
C． 被查找數(shù)據(jù)元素是有序的
D． 被查找數(shù)據(jù)元素是無序的
17．當(dāng)一個順序文件通過 [
]方式打開以后，才能向此文件寫入數(shù)據(jù)。
A． for input
或 for
8、output
B． for input
或 for append
C． for output 或 for append
D． 以上都可以
18．用選擇排序法對數(shù)據(jù) 7,8,3,9,2 從小到大排序，第
3 趟結(jié)果是 [] 。
A． 2,3,7,9,8
B． 3,8,2,7,9
4 / 11
C． 3,2,8,7,9
D． 3,7,8,9,2
19．要從 n 個數(shù)據(jù)元素中 序 找一個元素，最多 找次數(shù)是 [ ]。
A． 1
B． n
C． n/2
9、
D． lgn
20．《 子算 》上有一道 “物不知數(shù) ” ： “今有物不知其數(shù)，三三數(shù)之剩
二，五五數(shù)之剩三，七七數(shù)之剩二。 物幾何？ ” 采用 [ ] 。
A． 解析法
B． 找法
C． 法
D． 算法
第二卷
二、填空 （共 10 個空，每空 3 分，共 30 分）
21． 程 算 s=1*(-2)*3*(- 4)* ?? *49*(-50)
Private Sub Form_Click()
Dim s as integer,i as single
s= （1）
For i=1 to
10、 50
If （ 2） then
s=s*i
else
s= （3）
next i
print “s=”;s
end sub
程序中 (1) 填入 ____________________。
5 / 11
程序中 (2)處應(yīng)填入 ____________________。
程序中 (3)處應(yīng)填入 ____________________。
22．某顧客欲將 300 元全部換成 10 元、20 元、50 元的紙幣（每種面額至少 1
張），請問有幾種換法？
Privat
11、e Sub Form_Click()
Dim a as integer,b as integer,c as integer ,n As integer ’a,b,c分別代表 10,20,50 元面額的張數(shù)； n 代表換法
n= （1）
For a=1 to 30
For b=1 to （ 2）
For c=1 to30
If （ 3） then n=（4）
Next c
Nextb
Next a
print “n=”;n
end sub
程序中 (1)處應(yīng)填入 ____________________。
12、
程序中 (2)處應(yīng)填入 ____________________。
程序中 (3)處應(yīng)填入 ____________________。
程序中 (4)處應(yīng)填入 ____________________。
23．編寫遞歸函數(shù)求 5！的值。
Public Function s(n As Integer) As Long
If n = 1 Then
s =（ 1）
Else
s = （2）
End If
6 / 11
End Function
Private Sub form_Clic
13、k() 調(diào)用遞歸函數(shù)，顯示結(jié)果
Print "s(5)="; （3）
End Sub
程序中 (1)處應(yīng)填入 ____________________。
程序中 (2)處應(yīng)填入 ____________________。
程序中 (3)處應(yīng)填入 ____________________。
三、閱讀程序，寫出運行后輸出的結(jié)果：（前兩題每題 5 分，后兩題每題 10 分，共 30 分 ）
24．
Private Sub Command1_Click() dim x as integer，y as single x
14、= Round(5.4)
Select Case x
Case 1 To 5
y = 4 + Abs(x)
Case 6 To 10
y = 50 * x
Case Else
y = x ^ 2
End Select
Print y
End sub
7 / 11
25．
Private Sub Command1_Click()
Dim m as integer,n as integer
Dim t
15、 As Integer
m = 10
n = m * 2
t = m * n
print t
End Sub
運行結(jié)果 :
26．
Private Sub Command1_Click()
Dim a as integer, b as integer, t as integer
Dim ma as integer, mb as integer, n As Integer
a = 12: b = 8: n =
16、 20
t = 0
Do
t = t + 1
ma = t * a Mod n
mb = t * b Mod n
Loop Until ma = mb
8 / 11
Print t
End Sub
運行結(jié)果：
27．
Private Sub Command1_Click()
Dim m1 as integer，m2 as inte
17、ger
Dim j as integer， a(5) as integer
For j = 1 To 5
a(j) = InputBox("")
Next j
m2 = 1
m1 = a(1)
For j = 2 To 5
If a(j) > m1 Then
m1 = a(j)
m2 = j
End If
Next j
Print m1
9 / 11
Print m2
End sub
若輸入的數(shù)分別是 237, 126, 87, 48, 498，則輸出結(jié)果
18、是什么？
運行結(jié)果：
10 / 11
答案： 1.C
2.D
3.D
4.D
5.C
6.A
7.B
8.D
9.C
10.C
11.A
12.C
19、
13.A
14.D
15.D
16.C
17.C
18.A
19.B
20.C
21. （1）1
（2）i mod 2=1
（3） s*(-i)
22. （1）1（2）30(或 24,或其他通過數(shù)學(xué)方式推理出來的結(jié)果 )
（3）a*10+b*20+C*50=300（4）n+1
23. （1）1 （2） s(n-1)*n （ 3） s(5)
24. 9
25. 200
26. 5
27. 4985
11 / 11
《算法與程序設(shè)計》試卷二
