答案：A
(26) 運行下列程序段后，顯示的結果為
J1=4
J2=9
If J1<J2 Then Print J2 Else Print J1
A) 4
B)9
C) 13
D) 49
答案：B
(27) 下列語句正確的是
A) If A≠B Then Print "A不等于B"
B) If A<>B Then Printf "A不等于B"
C) If A<>B Then Print "A不等于B"
D) If A≠B Print "A不等于B"
答案：C
(28) 下面語句正確的是
A) If x<3y And x>y Then y=x^3
B) If x<3y And x>y Then y=3x
C) If x<3y:x>y Then y=x^3
D) If x<3y And x>y Then y=x* *3
答案：A
(29) 計算z的值，當x大于y時，z=x；否則z=y。下列語句錯誤的是
A) If x>=y Then z=x : z=y
B) If x>=y Then z=x Else z=y
C) z=y : If x>=y Then z=x
D) If x<=y Then z=y Else z=x
答案：A
(30) 下列程序段執行結果為
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A) -3 3
B) 5 -9
C) 3 -3
D) -6 5
答案：A
(31) 不能脫離控件(包括客體) 而獨立存在的過程是
A) 事件過程
B) 通用過程
C) Sub過程
D) 函數過程
答案：A
(32) Sub過程與Function過程最根本的區別是
A) Sub過程可以用Call語句直接使用過程名調用，而Function過程不可以
B) Function過程可以有形參，Sub過程不可以
C) Sub過程不能返回值，而Function過程能返回值
D) 兩種過程參數的傳遞方式不同
答案： C
(33) 單擊命令按鈕時，下列程序的執行結果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12:y=32
Call Proc(x,y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A) 1232
B) 232
C) 23
D) 123
答案：B
(34) 單擊命令按鈕時，下列程序的執行結果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3
b=4
c=5
Print SecProc(c, b, A)
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
End Function
A) 20
B) 22
C) 28
D) 30
答案：C
(35) 下列程序的執行結果為
Private Sub Command1_Click()
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i<=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A) abcdef
B) afbecd
C) fedcba
D) defabc
正確答案：B
二、填空題（無答題記錄！）
(1) 算法的基本特征是可行性、確定性、 【1】 和擁有足夠的情報。
正確答案：有窮性
(2) 在長度為n的有序線性表中進行二分查找。最壞的情況下，需要的比較次數為 【2】 。
正確答案：log2n
(3) 在面向對象的程序設計中，類描述的是具有相似性質的一組 【3】 。
正確答案：對象
(4) 通常，將軟件產品從提出、實現、使用維護到停止使用退役的過程稱為 【4】 。
正確答案：軟件生命周期
(5) 數據庫管理系統常見的數據模型有層次模型、網狀模型和 【5】 3種。
正確答案：關系模型
(6) Visual Basic對象可以分為兩類，分別為 【6】 和 【7】 。
正確答案：預定義對象
正確答案：用戶定義對象
(7) 完成下面的程序，使顯示結果如下圖所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【8】 "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
正確答案：Welcome to Beijing !
正確答案：Print
(8) 下列程序的功能是：當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的值！")
【10】
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【11】
Print "輸入的數據出界！"
End Select
Print x, y
End Sub
正確答案：Select Case x
正確答案：Case Else
(9) 改變驅動器列表框的Drive屬性值將引發 【12】 事件。
正確答案：Change
(10) 下面程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。
首先在窗體層定義如下變量：
Dim PaintStart As Boolean
編寫如下事件過程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【13】
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】
End Sub
Private Sub Form_DblClick()
【15】
End Sub
