計(jì)算機(jī)等級考試二級VB全真模擬試題（一）

答案：A

(26) 運(yùn)行下列程序段后，顯示的結(jié)果為
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<3�硑 And x>y Then y=x^3
B) If x<3�硑 And x>y Then y=3x
C) If x<3�硑:x>y Then y=x^3
D) If x<3�硑 And x>y Then y=x* *3

答案：A

(29) 計(jì)算z的值，當(dāng)x大于y時(shí)，z=x；否則z=y。下列語句錯(cuò)誤的是
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) 下列程序段執(zhí)行結(jié)果為
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) 不能脫離控件(包括客體) 而獨(dú)立存在的過程是
A) 事件過程
B) 通用過程
C) Sub過程
D) 函數(shù)過程

答案：A

(32) Sub過程與Function過程最根本的區(qū)別是
A) Sub過程可以用Call語句直接使用過程名調(diào)用，而Function過程不可以
B) Function過程可以有形參，Sub過程不可以
C) Sub過程不能返回值，而Function過程能返回值
D) 兩種過程參數(shù)的傳遞方式不同
答案： C

(33) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是
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=2�硏+y+3�硓
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) 下列程序的執(zhí)行結(jié)果為
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】 和擁有足夠的情報(bào)。
正確答案：有窮性

(2) 在長度為n的有序線性表中進(jìn)行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。
正確答案：log2n

(3) 在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，類描述的是具有相似性質(zhì)的一組 【3】 。
正確答案：對象

(4) 通常，將軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過程稱為 【4】 。

正確答案：軟件生命周期

(5) 數(shù)據(jù)庫管理系統(tǒng)常見的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。
正確答案：關(guān)系模型

(6) Visual Basic對象可以分為兩類，分別為 【6】 和 【7】 。

正確答案：預(yù)定義對象
正確答案：用戶定義對象

(7) 完成下面的程序，使顯示結(jié)果如下圖所示。
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) 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒有意義。請?zhí)羁铡?BR>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 "輸入的數(shù)據(jù)出界！"
End Select
Print x, y
End Sub

正確答案：Select Case x
正確答案：Case Else

(9) 改變驅(qū)動(dòng)器列表框的Drive屬性值將引發(fā) 【12】 事件。
正確答案：Change

(10) 下面程序是由鼠標(biāo)事件在窗體上畫圖，如果按下鼠標(biāo)將可以畫圖，雙擊窗體可以清除所畫圖形。補(bǔ)充完整下面的程序。
首先在窗體層定義如下變量：
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