一 、選擇題
(1) 下列數(shù)據(jù)結(jié)構(gòu)中，按先進(jìn)后出原則組織數(shù)據(jù)的是
A．線性鏈表
B．棧
C．循環(huán)鏈表
D．順序表
正確答案: B
(2) 具有3個(gè)結(jié)點(diǎn)的二叉樹(shù)有
A．2種形態(tài)
B．4種形態(tài)
C．7種形態(tài)
D．5種形態(tài)
正確答案: D
(3) 設(shè)有下列二叉樹(shù)：
對(duì)此二叉樹(shù)前序遍歷的結(jié)果為
A．ZBTYCPXA
B．ATBZXCYP
C．ZBTACYXP
D．ATBZXCPY
正確答案: B
(4) 結(jié)構(gòu)化程序設(shè)計(jì)主要強(qiáng)調(diào)的是
A．程序的規(guī)模
B．程序的效率
C．程序設(shè)計(jì)語(yǔ)言的先進(jìn)性
D．程序易讀性
正確答案: D
(5) 程序的3種基本控制結(jié)構(gòu)是
A．過(guò)程、子過(guò)程和分程序
B．順序、選擇和重復(fù)
C．遞歸、堆棧和隊(duì)列
D．調(diào)用、返回和轉(zhuǎn)移
正確答案: B
(6) 下列敘述中，不屬于測(cè)試的特征的是
A．測(cè)試的挑剔性
B．完全測(cè)試的不可能性
C．測(cè)試的可靠性
D．測(cè)試的經(jīng)濟(jì)性
正確答案: C
(7) 需求分析中開(kāi)發(fā)人員要從用戶那里了解
A．軟件做什么
B．用戶使用界面
C．輸入的信息
D．軟件的規(guī)模
正確答案: A
(8) 下列關(guān)系模型中，能使經(jīng)運(yùn)算后得到的新關(guān)系中屬性個(gè)數(shù)多于原來(lái)關(guān)系中屬性個(gè)數(shù)的是
A．選擇
B．連接
C．投影
D．并
正確答案: B
(9) 下列敘述中，正確的是
A．用E-R圖能夠表示實(shí)體集間一對(duì)一的聯(lián)系、一對(duì)多的聯(lián)系和多對(duì)多的聯(lián)系
B．用E-R圖只能表示實(shí)體集之間一對(duì)一的聯(lián)系
C．用E-R圖只能表示實(shí)體集之間一對(duì)多的聯(lián)系
D．用E-R圖表示的概念數(shù)據(jù)模型只能轉(zhuǎn)換為關(guān)系數(shù)據(jù)模型
正確答案: C
(10) "年齡在18-25之間"這種約束是屬于數(shù)據(jù)庫(kù)當(dāng)中的
A．原子性措施
B．一致性措施
C．完整性措施
D．安全性措施
正確答案: C
(11) 下列說(shuō)法錯(cuò)誤的是
A．資源文件的擴(kuò)展名為.res
B．一個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件
C．Visual Basic中的一個(gè)工程只包含一個(gè)窗體
D．Visual Basic中一個(gè)工程最多可以包含255個(gè)窗體
正確答案: C
(12) 下列說(shuō)法錯(cuò)誤的是
A．方法是對(duì)象的一部分
B．方法的調(diào)用格式和對(duì)象的屬性的使用格式相同
C．方法是一種特殊的過(guò)程和函數(shù)
D．在調(diào)用方法時(shí)，對(duì)象名是不可缺少的
正確答案: D
(13) 在運(yùn)行程序時(shí)，在文本框中輸入新的內(nèi)容，或在程序代碼中改變Text的屬性值，相應(yīng)會(huì)觸發(fā)到的事件是
A．GotFocus
B．Change
C．Click
D．DblClick
正確答案: B
(14) Print方法可以在對(duì)象上輸出數(shù)據(jù)，這些對(duì)象包括
A．圖片框
B．狀態(tài)欄
C．標(biāo)題欄
D．代碼窗口
正確答案: A
(15) 可以在常量的后面加上類型說(shuō)明符以顯示常量的類型，用來(lái)表示字符串常量的是
A．％
B．＃
C．！
D．$
正確答案: D
(16) 下列語(yǔ)句的輸出結(jié)果為
Print Format$(10009.36, "000,000.000")
A．10,009.36
B．10,009.360
C．10,009.3
D．010,009.360
正確答案: D
(17) 使"Microsoft"在當(dāng)前窗體上輸出的語(yǔ)句是
A．Picture.Print "Microsoft"
B．Print "Microsoft"
C．Printer. Print "Microsoft"
D．Debug.Print "Microsoft"
正確答案: B
(18) 在修改列表框內(nèi)容時(shí)，AddItem方法的作用是
A．在列表框內(nèi)插入一行文本
B．在列表框中插入多行文本
C．刪除列表框中指定的項(xiàng)目
D．清除列表框內(nèi)的全部?jī)?nèi)容
正確答案: A
(19) 圖片框與圖像框的區(qū)別是圖片框可以作為其他控件的父對(duì)象，即為容器控件，而圖像框只能
A．顯示圖形信息
B．顯示文本內(nèi)容
C．顯示文本和圖形信息
D．顯示程序代碼
正確答案: A
(20) 執(zhí)行下面的程序段后，變量c的值為
a=14
b=30
Select Case b ＼ 10
Case 0
c=a * 10 + b
Case 1 To 9
c=a * 100 + b
Case 10 To 99
c=a * 1000 + b
End Select
Print c
A．363
B．2548
C．1430
D．9875
正確答案: C (21) 下列程序段的執(zhí)行結(jié)果為
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
A．**0**
B．**1**
C．**2**
D．0
正確答案: B
(22) 下列程序段的執(zhí)行結(jié)果為
m=2
n=3
Do
m=m + n
n=n + 1
Loop While m < 10
Print m; n
A．1 5
B．14 6
C．a(chǎn) b
D．10 25
正確答案: B
(23) 有如下的程序段，該程序段執(zhí)行完后，共執(zhí)行的循環(huán)次數(shù)是
total=0
Counter=1
Do
Print Counter
total=total * Counter+1
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10
A．4
B．10
C．15
D．20
正確答案: A
(24) 下列程序的運(yùn)行結(jié)果為
Dim a(-1 To 6)
For i=LBound(a, 1) To UBound(a, 1)
a(i) =i
Next i
Print a(LBound(a, 1) ) ; a(UBound(a, 1) )
A．0 0
B．-5 0
C．-1 6
D．0 6
正確答案: C
(25) 下面的數(shù)組聲明中，正確的是
A．Dim pict［3,4］ As Integer
B．Dim pict(3,4) As Integer
C．Dim pict［3.4］ As Integer
D．Dim pict(3:4) As Integer.
正確答案: B
(26) 下面的過(guò)程定義語(yǔ)句中不合法的是
A．Sub Para(ByVal n() )
B．Sub Para(n) As Integer
C．Function Para(ByVal n)
D．Function Para(proc1)
正確答案: B
(27) 單擊命令按鈕時(shí)，下列的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=86: y=29
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．12 32
B．6 29
C．2 3
D．12 3
正確答案: B
(28) 下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim FirStr As String
FirStr= "abcdef"
Print Pct (FirStr)
End Sub
Private Function Pct(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
Pct=tempStr
End Function
A．a(chǎn)bcdef
B．a(chǎn)fbecd
C．fedcba
D．defabc
正確答案: B
(29) 單擊命令按鈕時(shí)，下列程序代碼的運(yùn)行結(jié)果為
Private Sub Command1_Click()
Print MyFunc(20, 18)
End Sub
Public Function MyFunc(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyFunc=m
End Function
A．0
B．2
C．4
D．6
正確答案: B
(30) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=2: b=4
Call CS (a, B．
End Sub
Sub CS (x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
程序運(yùn)行后，單擊命令按鈕，a和b的值分別為
A．0 0
B．1 1
C．0 2
D．1 2
正確答案: C
(31) 下面有一段程序代碼，如果從鍵盤(pán)上輸入"Computer"，則在文本框內(nèi)顯示的內(nèi)容是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >=65 And KeyAscii <=122 Then
KeyAscii=42
End If
End Sub
A．Computer
B．什么都沒(méi)有
C．********
D．程序出錯(cuò)
正確答案: C
(32) 下列有關(guān)子菜單的說(shuō)法中，錯(cuò)誤的是
A．除了Click事件之外，菜單項(xiàng)不可以響應(yīng)其他事件
B．菜單項(xiàng)的索引號(hào)必須從1開(kāi)始
C．每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有其屬性和事件
D．菜單的索引號(hào)可以不連續(xù)
正確答案: B
(33) 在窗體上畫(huà)一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫(huà)一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.*) |*.txt|" _
& Batch Files(*.bat) |*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)"打開(kāi)"對(duì)話框，此時(shí)在"文件類型"框中顯示的是
A．All Files(*.*)
B．Text Files(*.*)
C．Batch Files(*.bat)
D．All Files(*.*) |Text Files(*.*)
正確答案: A
(34) 在Visual Basic中，要將一個(gè)窗體從內(nèi)存中釋放，應(yīng)使用的語(yǔ)句是
A．Hide
B．Unload
C．Load
D．Show
正確答案: B
(35) 在Visual Basic中按文件的編碼方式不同，可將文件分為
A．順序文件和隨機(jī)文件
B．文本文件和數(shù)據(jù)文件
C．ASCII文件和二進(jìn)制文件
D．?dāng)?shù)據(jù)文件和可執(zhí)行文件
正確答案: C
二 、填空題
(1) 排序是計(jì)算機(jī)程序設(shè)計(jì)中的一種重要操作，常見(jiàn)的排序方法有插入排序、 【1】 和選擇排序等。
正確答案: 1.(交換排序)
(2) 當(dāng)循環(huán)隊(duì)列非空且隊(duì)尾指針等于隊(duì)頭指針時(shí)，說(shuō)明循環(huán)隊(duì)列已滿，不能進(jìn)行入隊(duì)運(yùn)算。這種情況稱為 【2】 。
正確答案: 1.(上溢)
(3) 【3】 是一種信息隱蔽技術(shù)，目的在于將對(duì)象的使用者和對(duì)象的設(shè)計(jì)者分開(kāi)。
正確答案: 1.(封裝)
(4) 為了便于對(duì)照檢查，測(cè)試用例應(yīng)由輸入數(shù)據(jù)和預(yù)期的 【4】 兩部分組成。
正確答案: 1.(輸出結(jié)果)
(5) 【5】 是從二維表列的方向進(jìn)行的運(yùn)算。
正確答案: 1.(關(guān)系運(yùn)算)
(6) 在Visual Basic的立即窗口內(nèi)輸入以下語(yǔ)句
X＝97
?Chr$(X)
在窗口中顯示的結(jié)果是 【6】 。
正確答案: 1.(a)
(7) 如果要將形狀控件的內(nèi)部設(shè)置為水平線，應(yīng)將FillStyle屬性設(shè)置為 【7】 。
正確答案: 1.(2)
(8) 在窗體上畫(huà)兩個(gè)文本框，其名稱分別為Name1和PassWord1，然后編寫(xiě)如下事件過(guò)程
Private Sub Form_Load()
Show
Name1.Text=""
Password1.Text=""
Password1.SetFocus
End Sub
Private Sub Password1_KeyDown(KeyCode As Integer, Shift As Integer)
Name1.Text=Name1.Text + Chr(KeyCode - 3)
End Sub
程序運(yùn)行后，如果在Password1中輸入"hit"，則在Name1文本框中顯示的內(nèi)容是 【8】 。
正確答案: 1.(EFQ)
(9) 在一個(gè)窗體上有兩個(gè)命令按鈕，cmdMax和cmdMin。單擊cmdMax時(shí)，窗體上顯示"字體由小變大"，字號(hào)每次增加2；單擊cmdMin時(shí)，窗體上顯示"字體由大變小"，字號(hào)每次減小2。請(qǐng)?zhí)羁铡?BR> Private Sub Form_Load()
Form1.Caption="字體變化示范"
cmdMax.Caption="字體變大"
cmdMin.Caption="字體變小"
End Sub
Private Sub cmdMax_Click()
【9】
Form1.Print "字體由小變大"
End Sub
Private Sub cmdMin_Click()
【10】
Form1.Print "字體由大變小"
End Sub
正確答案: 1.(Form1.FontSize = Form1.FontSize + 2) 2.(Form1.FontSize)
(10) 下列程序的功能是：將數(shù)據(jù)1，2，…，10寫(xiě)入順序文件Base.txt中，請(qǐng)?zhí)羁铡?BR> Private Sub Form_Click()
Dim i As Integer
Open 【11】 As #1
For i=1 To 10
【12】
Next i
Close #1
End Sub
正確答案: 1.("Base.txt" For Output) 2.(Print #1, i)
(11) 下面的程序用于根據(jù)文本框Text中輸入的內(nèi)容進(jìn)行以下處理：
若Text為1，則打印"您的成績(jī)?yōu)閮?yōu)秀！"；若Text為2，則打印"您的成績(jī)?yōu)榱己茫?
若Text為3，則打印"您的成績(jī)?yōu)橐话?；否則打印"您的成績(jī)一般以下！"，請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 【13】
Print "您的成績(jī)?yōu)閮?yōu)秀！"
Case 【14】
Print "您的成績(jī)?yōu)榱己茫?
Case 【15】
Print "您的成績(jī)?yōu)橐话?
Case Else
Print "您的成績(jī)一般以下！"
End Select
End Sub
正確答案: 1.(1) 2.(2) 3.(3)
(1) 下列數(shù)據(jù)結(jié)構(gòu)中，按先進(jìn)后出原則組織數(shù)據(jù)的是
A．線性鏈表
B．棧
C．循環(huán)鏈表
D．順序表
正確答案: B
(2) 具有3個(gè)結(jié)點(diǎn)的二叉樹(shù)有
A．2種形態(tài)
B．4種形態(tài)
C．7種形態(tài)
D．5種形態(tài)
正確答案: D
(3) 設(shè)有下列二叉樹(shù)：
對(duì)此二叉樹(shù)前序遍歷的結(jié)果為
A．ZBTYCPXA
B．ATBZXCYP
C．ZBTACYXP
D．ATBZXCPY
正確答案: B
(4) 結(jié)構(gòu)化程序設(shè)計(jì)主要強(qiáng)調(diào)的是
A．程序的規(guī)模
B．程序的效率
C．程序設(shè)計(jì)語(yǔ)言的先進(jìn)性
D．程序易讀性
正確答案: D
(5) 程序的3種基本控制結(jié)構(gòu)是
A．過(guò)程、子過(guò)程和分程序
B．順序、選擇和重復(fù)
C．遞歸、堆棧和隊(duì)列
D．調(diào)用、返回和轉(zhuǎn)移
正確答案: B
(6) 下列敘述中，不屬于測(cè)試的特征的是
A．測(cè)試的挑剔性
B．完全測(cè)試的不可能性
C．測(cè)試的可靠性
D．測(cè)試的經(jīng)濟(jì)性
正確答案: C
(7) 需求分析中開(kāi)發(fā)人員要從用戶那里了解
A．軟件做什么
B．用戶使用界面
C．輸入的信息
D．軟件的規(guī)模
正確答案: A
(8) 下列關(guān)系模型中，能使經(jīng)運(yùn)算后得到的新關(guān)系中屬性個(gè)數(shù)多于原來(lái)關(guān)系中屬性個(gè)數(shù)的是
A．選擇
B．連接
C．投影
D．并
正確答案: B
(9) 下列敘述中，正確的是
A．用E-R圖能夠表示實(shí)體集間一對(duì)一的聯(lián)系、一對(duì)多的聯(lián)系和多對(duì)多的聯(lián)系
B．用E-R圖只能表示實(shí)體集之間一對(duì)一的聯(lián)系
C．用E-R圖只能表示實(shí)體集之間一對(duì)多的聯(lián)系
D．用E-R圖表示的概念數(shù)據(jù)模型只能轉(zhuǎn)換為關(guān)系數(shù)據(jù)模型
正確答案: C
(10) "年齡在18-25之間"這種約束是屬于數(shù)據(jù)庫(kù)當(dāng)中的
A．原子性措施
B．一致性措施
C．完整性措施
D．安全性措施
正確答案: C
(11) 下列說(shuō)法錯(cuò)誤的是
A．資源文件的擴(kuò)展名為.res
B．一個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件
C．Visual Basic中的一個(gè)工程只包含一個(gè)窗體
D．Visual Basic中一個(gè)工程最多可以包含255個(gè)窗體
正確答案: C
(12) 下列說(shuō)法錯(cuò)誤的是
A．方法是對(duì)象的一部分
B．方法的調(diào)用格式和對(duì)象的屬性的使用格式相同
C．方法是一種特殊的過(guò)程和函數(shù)
D．在調(diào)用方法時(shí)，對(duì)象名是不可缺少的
正確答案: D
(13) 在運(yùn)行程序時(shí)，在文本框中輸入新的內(nèi)容，或在程序代碼中改變Text的屬性值，相應(yīng)會(huì)觸發(fā)到的事件是
A．GotFocus
B．Change
C．Click
D．DblClick
正確答案: B
(14) Print方法可以在對(duì)象上輸出數(shù)據(jù)，這些對(duì)象包括
A．圖片框
B．狀態(tài)欄
C．標(biāo)題欄
D．代碼窗口
正確答案: A
(15) 可以在常量的后面加上類型說(shuō)明符以顯示常量的類型，用來(lái)表示字符串常量的是
A．％
B．＃
C．！
D．$
正確答案: D
(16) 下列語(yǔ)句的輸出結(jié)果為
Print Format$(10009.36, "000,000.000")
A．10,009.36
B．10,009.360
C．10,009.3
D．010,009.360
正確答案: D
(17) 使"Microsoft"在當(dāng)前窗體上輸出的語(yǔ)句是
A．Picture.Print "Microsoft"
B．Print "Microsoft"
C．Printer. Print "Microsoft"
D．Debug.Print "Microsoft"
正確答案: B
(18) 在修改列表框內(nèi)容時(shí)，AddItem方法的作用是
A．在列表框內(nèi)插入一行文本
B．在列表框中插入多行文本
C．刪除列表框中指定的項(xiàng)目
D．清除列表框內(nèi)的全部?jī)?nèi)容
正確答案: A
(19) 圖片框與圖像框的區(qū)別是圖片框可以作為其他控件的父對(duì)象，即為容器控件，而圖像框只能
A．顯示圖形信息
B．顯示文本內(nèi)容
C．顯示文本和圖形信息
D．顯示程序代碼
正確答案: A
(20) 執(zhí)行下面的程序段后，變量c的值為
a=14
b=30
Select Case b ＼ 10
Case 0
c=a * 10 + b
Case 1 To 9
c=a * 100 + b
Case 10 To 99
c=a * 1000 + b
End Select
Print c
A．363
B．2548
C．1430
D．9875
正確答案: C (21) 下列程序段的執(zhí)行結(jié)果為
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
A．**0**
B．**1**
C．**2**
D．0
正確答案: B
(22) 下列程序段的執(zhí)行結(jié)果為
m=2
n=3
Do
m=m + n
n=n + 1
Loop While m < 10
Print m; n
A．1 5
B．14 6
C．a(chǎn) b
D．10 25
正確答案: B
(23) 有如下的程序段，該程序段執(zhí)行完后，共執(zhí)行的循環(huán)次數(shù)是
total=0
Counter=1
Do
Print Counter
total=total * Counter+1
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10
A．4
B．10
C．15
D．20
正確答案: A
(24) 下列程序的運(yùn)行結(jié)果為
Dim a(-1 To 6)
For i=LBound(a, 1) To UBound(a, 1)
a(i) =i
Next i
Print a(LBound(a, 1) ) ; a(UBound(a, 1) )
A．0 0
B．-5 0
C．-1 6
D．0 6
正確答案: C
(25) 下面的數(shù)組聲明中，正確的是
A．Dim pict［3,4］ As Integer
B．Dim pict(3,4) As Integer
C．Dim pict［3.4］ As Integer
D．Dim pict(3:4) As Integer.
正確答案: B
(26) 下面的過(guò)程定義語(yǔ)句中不合法的是
A．Sub Para(ByVal n() )
B．Sub Para(n) As Integer
C．Function Para(ByVal n)
D．Function Para(proc1)
正確答案: B
(27) 單擊命令按鈕時(shí)，下列的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=86: y=29
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．12 32
B．6 29
C．2 3
D．12 3
正確答案: B
(28) 下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
Dim FirStr As String
FirStr= "abcdef"
Print Pct (FirStr)
End Sub
Private Function Pct(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
Pct=tempStr
End Function
A．a(chǎn)bcdef
B．a(chǎn)fbecd
C．fedcba
D．defabc
正確答案: B
(29) 單擊命令按鈕時(shí)，下列程序代碼的運(yùn)行結(jié)果為
Private Sub Command1_Click()
Print MyFunc(20, 18)
End Sub
Public Function MyFunc(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyFunc=m
End Function
A．0
B．2
C．4
D．6
正確答案: B
(30) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=2: b=4
Call CS (a, B．
End Sub
Sub CS (x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
程序運(yùn)行后，單擊命令按鈕，a和b的值分別為
A．0 0
B．1 1
C．0 2
D．1 2
正確答案: C
(31) 下面有一段程序代碼，如果從鍵盤(pán)上輸入"Computer"，則在文本框內(nèi)顯示的內(nèi)容是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >=65 And KeyAscii <=122 Then
KeyAscii=42
End If
End Sub
A．Computer
B．什么都沒(méi)有
C．********
D．程序出錯(cuò)
正確答案: C
(32) 下列有關(guān)子菜單的說(shuō)法中，錯(cuò)誤的是
A．除了Click事件之外，菜單項(xiàng)不可以響應(yīng)其他事件
B．菜單項(xiàng)的索引號(hào)必須從1開(kāi)始
C．每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有其屬性和事件
D．菜單的索引號(hào)可以不連續(xù)
正確答案: B
(33) 在窗體上畫(huà)一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫(huà)一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.*) |*.txt|" _
& Batch Files(*.bat) |*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)"打開(kāi)"對(duì)話框，此時(shí)在"文件類型"框中顯示的是
A．All Files(*.*)
B．Text Files(*.*)
C．Batch Files(*.bat)
D．All Files(*.*) |Text Files(*.*)
正確答案: A
(34) 在Visual Basic中，要將一個(gè)窗體從內(nèi)存中釋放，應(yīng)使用的語(yǔ)句是
A．Hide
B．Unload
C．Load
D．Show
正確答案: B
(35) 在Visual Basic中按文件的編碼方式不同，可將文件分為
A．順序文件和隨機(jī)文件
B．文本文件和數(shù)據(jù)文件
C．ASCII文件和二進(jìn)制文件
D．?dāng)?shù)據(jù)文件和可執(zhí)行文件
正確答案: C
二 、填空題
(1) 排序是計(jì)算機(jī)程序設(shè)計(jì)中的一種重要操作，常見(jiàn)的排序方法有插入排序、 【1】 和選擇排序等。
正確答案: 1.(交換排序)
(2) 當(dāng)循環(huán)隊(duì)列非空且隊(duì)尾指針等于隊(duì)頭指針時(shí)，說(shuō)明循環(huán)隊(duì)列已滿，不能進(jìn)行入隊(duì)運(yùn)算。這種情況稱為 【2】 。
正確答案: 1.(上溢)
(3) 【3】 是一種信息隱蔽技術(shù)，目的在于將對(duì)象的使用者和對(duì)象的設(shè)計(jì)者分開(kāi)。
正確答案: 1.(封裝)
(4) 為了便于對(duì)照檢查，測(cè)試用例應(yīng)由輸入數(shù)據(jù)和預(yù)期的 【4】 兩部分組成。
正確答案: 1.(輸出結(jié)果)
(5) 【5】 是從二維表列的方向進(jìn)行的運(yùn)算。
正確答案: 1.(關(guān)系運(yùn)算)
(6) 在Visual Basic的立即窗口內(nèi)輸入以下語(yǔ)句
X＝97
?Chr$(X)
在窗口中顯示的結(jié)果是 【6】 。
正確答案: 1.(a)
(7) 如果要將形狀控件的內(nèi)部設(shè)置為水平線，應(yīng)將FillStyle屬性設(shè)置為 【7】 。
正確答案: 1.(2)
(8) 在窗體上畫(huà)兩個(gè)文本框，其名稱分別為Name1和PassWord1，然后編寫(xiě)如下事件過(guò)程
Private Sub Form_Load()
Show
Name1.Text=""
Password1.Text=""
Password1.SetFocus
End Sub
Private Sub Password1_KeyDown(KeyCode As Integer, Shift As Integer)
Name1.Text=Name1.Text + Chr(KeyCode - 3)
End Sub
程序運(yùn)行后，如果在Password1中輸入"hit"，則在Name1文本框中顯示的內(nèi)容是 【8】 。
正確答案: 1.(EFQ)
(9) 在一個(gè)窗體上有兩個(gè)命令按鈕，cmdMax和cmdMin。單擊cmdMax時(shí)，窗體上顯示"字體由小變大"，字號(hào)每次增加2；單擊cmdMin時(shí)，窗體上顯示"字體由大變小"，字號(hào)每次減小2。請(qǐng)?zhí)羁铡?BR> Private Sub Form_Load()
Form1.Caption="字體變化示范"
cmdMax.Caption="字體變大"
cmdMin.Caption="字體變小"
End Sub
Private Sub cmdMax_Click()
【9】
Form1.Print "字體由小變大"
End Sub
Private Sub cmdMin_Click()
【10】
Form1.Print "字體由大變小"
End Sub
正確答案: 1.(Form1.FontSize = Form1.FontSize + 2) 2.(Form1.FontSize)
(10) 下列程序的功能是：將數(shù)據(jù)1，2，…，10寫(xiě)入順序文件Base.txt中，請(qǐng)?zhí)羁铡?BR> Private Sub Form_Click()
Dim i As Integer
Open 【11】 As #1
For i=1 To 10
【12】
Next i
Close #1
End Sub
正確答案: 1.("Base.txt" For Output) 2.(Print #1, i)
(11) 下面的程序用于根據(jù)文本框Text中輸入的內(nèi)容進(jìn)行以下處理：
若Text為1，則打印"您的成績(jī)?yōu)閮?yōu)秀！"；若Text為2，則打印"您的成績(jī)?yōu)榱己茫?
若Text為3，則打印"您的成績(jī)?yōu)橐话?；否則打印"您的成績(jī)一般以下！"，請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 【13】
Print "您的成績(jī)?yōu)閮?yōu)秀！"
Case 【14】
Print "您的成績(jī)?yōu)榱己茫?
Case 【15】
Print "您的成績(jī)?yōu)橐话?
Case Else
Print "您的成績(jī)一般以下！"
End Select
End Sub
正確答案: 1.(1) 2.(2) 3.(3)