一 、選擇題
(1) 由兩個棧共享一個存儲空間的好處是
A．減少存取時間，降低下溢發(fā)生的機率
B．節(jié)省存儲空間，降低上溢發(fā)生的機率
C．減少存取時間，降低上溢發(fā)生的機率
D．節(jié)省存儲空間，降低下溢發(fā)生的機率
正確答案: B
(2) 設有兩個串p和q，求q在p中首次出現(xiàn)位置的運算稱作
A．連接
B．模式匹配
C．求子串
D．求串長
正確答案: B
(3) n個頂點的連通圖中邊的條數(shù)至少為
A．0
B．1
C．n-1
D．n
正確答案: C
(4) 對象實現(xiàn)了數(shù)據(jù)和操作的結合，是指對數(shù)據(jù)和數(shù)據(jù)的操作進行
A．結合
B．隱藏
C．封裝
D．抽象
正確答案: C
(5) 下列敘述中，正確的是
A．軟件就是程序清單
B．軟件就是存放在計算機中的文件
C．軟件應包括程序清單及運行結果
D．軟件包括程序和文檔
正確答案: D
(6) 軟件設計中，有利于提高模塊獨立性的一個準則是
A．低內(nèi)聚低耦合
B．低內(nèi)聚高耦合
C．高內(nèi)聚低耦合
D．高內(nèi)聚高耦合
正確答案: C
(7) 軟件生命周期中花費時間最多的階段是
A．詳細設計
B．軟件編碼
C．軟件測試
D．軟件維護
正確答案: D
(8) 下列4項中說法不正確的是
A．數(shù)據(jù)庫減少了數(shù)據(jù)冗余
B．數(shù)據(jù)庫中的數(shù)據(jù)可以共享
C．數(shù)據(jù)庫避免了一切數(shù)據(jù)的重復
D．數(shù)據(jù)庫具有較高的數(shù)據(jù)獨立性
正確答案: C
(9) 下列4項中，必須進行查詢優(yōu)化的是
A．關系數(shù)據(jù)庫
B．網(wǎng)狀數(shù)據(jù)庫
C．層次數(shù)據(jù)庫
D．非關系模型
正確答案: A
(10) 最常用的一種基本數(shù)據(jù)模型是關系數(shù)據(jù)模型，它的表示應采用
A．樹
B．網(wǎng)絡
C．圖
D．二維表
正確答案: D
(11) 下列說法不正確的是
A．對象的可見性可設為True或False
B．標題的屬性值可設為任何文本
C．屬性窗口中屬性可以按字母順序排列
D．某些屬性的值可以跳過不設置，系統(tǒng)自動設為空值
正確答案: D
(12) 要設置窗體為固定對話框，并包含控制菜單欄和標題欄，但沒有化和最小化按鈕，設置的操作是
A．設置BoderStyle的值為Fixed ToolWindow
B．設置BoderStyle的值為Sizable ToolWindow
C．設置BoderStyle的值為Fixed Dialog
D．設置BoderStyle的值為Sizable
正確答案: C
(13) 下面的控件可作為其他控件容器的是
A．PictureBox和Data
B．Frame和Image
C．PictureBox和Frame
D．Image和Data
正確答案: C
(14) 如果要將文本框作為密碼框使用時，應設置的屬性為
A．Name
B．Caption
C．PasswordChar
D．Text
正確答案: C
(15) 有關程序代碼窗口的說法錯誤的是
A．在窗口的垂直滾動條的上面，有一個"拆分欄"，利用它可以把窗口分為兩個部分，每個窗口顯示代碼的一部分
B．雙擊控件設計窗體即可打開程序代碼窗口
C．在程序代碼的左下角有兩個按鈕，可以選擇全模塊查看或者是過程查看
D．默認情況下，窗體的事件是Load
正確答案: A
(16) Visual Basic中的數(shù)值可以用十六進制或八進制表示，十六進制數(shù)的開頭符是&H，八進制數(shù)的開頭符號是
A．$O
B．&O
C．$E
D．&E
正確答案: B
(17) MsgBox函數(shù)的返回值的類型為
A．數(shù)值型
B．變體類型
C．字符串型
D．日期型
正確答案: A
(18) 使"計算機技術"在當前窗體上輸出的語句是
A．Print "計算機技術"
B．Picture.Print "計算機技術"
C．Printer.Print "計算機技術"
D．Debug.Print "計算機技術"
正確答案: A
(19) 用來設置文本框有無滾動條的屬性是
A．ScrollBars
B．MultiLine
C．SelText
D．SelLength
正確答案: A
(20) 當Esc鍵與單擊該命令按鈕作用相同時，此命令按鈕的什么屬性被設置為True？
A．Style
B．Default
C．Caption
D．Cancel
正確答案: D
(21) 在Visual Basic種，要使標簽的標題欄靠右顯示，則將其Alignment屬性設置為
A．0
B．2
C．1
D．3
正確答案: C
(22) 屬性BorderColor的作用是
A．設置直線顏色和形狀邊界顏色
B．設置直線或形狀背景顏色
C．設置直線或形狀邊界線的線型
D．設置形狀的內(nèi)部顏色
正確答案: A
(23) 下面哪個程序段能夠正確實現(xiàn)如果A
A．If A
A=-1
Print A
B．If A
A=-1:Print A
C．If A
A=1:Print A
Else
A=-1:
End If
D．If A A=-1
Print A
Print A
考生答案: 正確答案: C
(24) 下列程序段的執(zhí)行結果為
a=2
b=0
Select Case a
Case 1
Select Case b
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
A．**0**
B．**1**
C．**2**
D．0
正確答案: C
(25) 在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框，兩個名稱分雖為Label1、Label2，標題分別為空白和"共有文件"的標簽。編寫程序，使得驅(qū)動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標簽Label1中顯示當前文件夾中文件的數(shù)量。如圖所示。
能夠正確實現(xiàn)上述功能的程序是
A．Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B．Private Sub Dir1_Change()
File.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C．Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
(D．Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption= File1.List
End Sub
正確答案: C
(26) 設有聲明語句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
則數(shù)組b中全部元素的個數(shù)
A．2310
B．1920
C．1500
D．1658
正確答案: B
(27) 單擊命令按鈕，下列事件過程的執(zhí)行結果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=40: y=72
Call PtoP(x, y)
Print x; y
End Sub
Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
n=n ＼ 10+2
m=m ＼ 10+2
End Sub
A．0 8
B．40 72
C．4 50
D．78 50
正確答案: B
(28) 下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim p As Integer, q As Integer
p=12: q=20
Call Value(p, q)
Print p; q
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A．20 12
20 15
B．12 20
12 25
C．24 15
12 20
D．24 12
12 15
考生答案: 正確答案: C
(29) 在窗體上畫一個命令按鈕，然后編寫如下程序：
Private Sub Command3_Click()
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop (a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序運行后，單擊命令按鈕，輸出結果為
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
正確答案: B
(30) 有如下事件過程，單擊命令按鈕扣，輸出結果為
Private Sub Command1_Click()
Dim b%(1 To 4) , j%, t#
For j=1 To 4
b(j) =j
Next j
t=Tax(b() )
Print "t="; t,
End Sub
Function Tax (a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A．
t=t * a(i)
Next i
Tax=t
End Function
A．t＝18
B．t＝24
C．t＝30
D．t＝32
正確答案: B
(31) 設在窗體上有一個文本框，然后編寫如下的事件過程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2= &H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text= "abl"
End If
End Sub
程序運行后，清除文本框中原有內(nèi)容，如果按Shift+F2鍵，則在文本框中顯示的是
A．Alt+F2
B．a(chǎn)bl
C．隨機出幾個數(shù)
D．不發(fā)生變化
正確答案: D
(32) 設已經(jīng)在菜單編輯器中設計了窗體的快捷菜單，其菜單為Bt，取消其"可見"屬性，運行時，在以下事件過程中，可以使快捷菜單相應鼠標右鍵菜單的是
A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bt, 2
End Sub
B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt
End Sub
C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt,0
End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
End Sub
正確答案: A
(33) 在窗體上畫一個通用對話框，其Name屬性為Cont，再畫一個命令按鈕，Name屬性為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
Cont.FileName= ""
Cont.Flags=vbOFNFileMustExist
Cont.Filter= "All Files|*.*"
Cont.FilterIndex=3
Cont.DialogTitle= "Open File"
Co nt.Action=1
If Cont.FileName= "" Then
MsgBox "No file selected"
Else
Open Cont.FileName For Input As #1
Do While Not EOF(1)
Input #1, b$
Print b$
Loop
End If
End Sub
以下各選項，對上述事件過程描述錯誤的是
A．該事件過程用來建立一個Open對話框，可以在這個對話框中選擇要打開的文件
B．選擇后單擊"打開"按鈕，所選擇的文件名即作為對話框的FileName屬性值
C．Open對話框不僅僅用來選擇一個文件，還可以打開、顯示文件
D．過程中的"Cont.Action=1"用來建立Open對話框，它與Cont.ShowOpen等價
正確答案: C
(34) 已知使用Show方法的格式為：［窗體名稱］.Show ［模式］，如果要使窗體是"模態(tài)型"窗體，則"模式"值為
A．True
B．0
C．1
D．False
正確答案: C
(35) 下面敘述不正確的是
A．對順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B．順序文件結構簡單
C．能同時對順序文件進行讀寫操作
D．順序文件中只能知道第一個記錄的位置
正確答案: C
二 、填空題
(1) 當線性表采用順序存儲結構實現(xiàn)存儲時，其主要特點是 【1】 。
正確答案: 1.(邏輯結構中相鄰的結點在存儲結構中仍相鄰)
(2) 軟件工程的出現(xiàn)是由于 【2】 。
正確答案: 1.(軟件危機的出現(xiàn))
(3) 單元測試又稱模塊測試，一般采用 【3】 測試。
正確答案: 1.(白盒法)
(4) 數(shù)據(jù)庫恢復是將數(shù)據(jù)庫從 【4】 狀態(tài)恢復到某一已知的正確狀態(tài)。
正確答案: 1.(錯誤)
(5) 數(shù)據(jù)的基本單位是 【5】 。
正確答案: 1.(數(shù)據(jù)元素)
(6) 下列語句的輸出結果是 【6】 。
Print Format$(6658.6, "000,000.00")
正確答案: 1.(006,658.60)
(7) 如果在D盤當前文件夾下已經(jīng)存在名為PIC.dat的順序文件，那么執(zhí)行語句Open "D:＼PIC.dat" For Append As #1之后將 【7】 。
正確答案: 1.(在文件尾添加新內(nèi)容)
(8) 在有下面一個程序段從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿足條件，除以6余2，除以5余3，則輸出，否則，將焦點定位在文本框中，并清除文本框的內(nèi)容。
Private Sub Command1_Click()
num=Val(Text1.Text)
If 【8】 Then
Print num
Else
Text1.Text=""
【9】
End If
End Sub
正確答案: 1.(num Mod 6 = 2 And num Mod 5 = 3) 2.(Text1.SetFocus)
(9) 下面的程序的作用是利用隨機函數(shù)產(chǎn)生10個100~300(不包含300) 之間的隨機整數(shù)，打印其中7的倍數(shù)的數(shù)，并求它們的總和，請?zhí)羁铡?BR> Sub TOF()
Randomize
Dim s As Double
Dim a(10) As Integer
For i=0 To 9
【10】
Next
For i=0 To 9
If 【11】 Then
Print a(i)
s=s + a(i)
【12】
Next i
Print
Print "S="; s
End Sub
正確答案: 1.(a(i) = Int(Rnd * 200 + 100)) 2.(a(i) Mod 7 = 0) 3.(End If)
(10) 下面的程序是計算給定函數(shù)的值，自變量x，y的值用InputBox函數(shù)輸入，函數(shù)如下：
f(x,y) =
程序不完整，請?zhí)羁?，將程序的補充完整。
Option Explicit
Dim x As Single
Dim y As Single
Dim z As Single
Private Sub Command1_Click()
x=Val(InputBox("x=") )
y=Val(InputBox("y=") )
End Sub
Private Sub Command2_Click()
If 【13】 Then
z=x ^ 2 + y ^ 2
ElseIf 【14】 Then
z=x ^ 2 - 2 * y ^ 2
【15】
z=y ^ 2 - 3 * x ^ 2
End If
Form1.Print "當x，y的值為："; x, y
Form1.Print "f(x,y) 的值為："; z
End Sub
正確答案: 1.(x > 0 And y > 0) 2.(x < 0 And y > 0) 3.(Else)
(1) 由兩個棧共享一個存儲空間的好處是
A．減少存取時間，降低下溢發(fā)生的機率
B．節(jié)省存儲空間，降低上溢發(fā)生的機率
C．減少存取時間，降低上溢發(fā)生的機率
D．節(jié)省存儲空間，降低下溢發(fā)生的機率
正確答案: B
(2) 設有兩個串p和q，求q在p中首次出現(xiàn)位置的運算稱作
A．連接
B．模式匹配
C．求子串
D．求串長
正確答案: B
(3) n個頂點的連通圖中邊的條數(shù)至少為
A．0
B．1
C．n-1
D．n
正確答案: C
(4) 對象實現(xiàn)了數(shù)據(jù)和操作的結合，是指對數(shù)據(jù)和數(shù)據(jù)的操作進行
A．結合
B．隱藏
C．封裝
D．抽象
正確答案: C
(5) 下列敘述中，正確的是
A．軟件就是程序清單
B．軟件就是存放在計算機中的文件
C．軟件應包括程序清單及運行結果
D．軟件包括程序和文檔
正確答案: D
(6) 軟件設計中，有利于提高模塊獨立性的一個準則是
A．低內(nèi)聚低耦合
B．低內(nèi)聚高耦合
C．高內(nèi)聚低耦合
D．高內(nèi)聚高耦合
正確答案: C
(7) 軟件生命周期中花費時間最多的階段是
A．詳細設計
B．軟件編碼
C．軟件測試
D．軟件維護
正確答案: D
(8) 下列4項中說法不正確的是
A．數(shù)據(jù)庫減少了數(shù)據(jù)冗余
B．數(shù)據(jù)庫中的數(shù)據(jù)可以共享
C．數(shù)據(jù)庫避免了一切數(shù)據(jù)的重復
D．數(shù)據(jù)庫具有較高的數(shù)據(jù)獨立性
正確答案: C
(9) 下列4項中，必須進行查詢優(yōu)化的是
A．關系數(shù)據(jù)庫
B．網(wǎng)狀數(shù)據(jù)庫
C．層次數(shù)據(jù)庫
D．非關系模型
正確答案: A
(10) 最常用的一種基本數(shù)據(jù)模型是關系數(shù)據(jù)模型，它的表示應采用
A．樹
B．網(wǎng)絡
C．圖
D．二維表
正確答案: D
(11) 下列說法不正確的是
A．對象的可見性可設為True或False
B．標題的屬性值可設為任何文本
C．屬性窗口中屬性可以按字母順序排列
D．某些屬性的值可以跳過不設置，系統(tǒng)自動設為空值
正確答案: D
(12) 要設置窗體為固定對話框，并包含控制菜單欄和標題欄，但沒有化和最小化按鈕，設置的操作是
A．設置BoderStyle的值為Fixed ToolWindow
B．設置BoderStyle的值為Sizable ToolWindow
C．設置BoderStyle的值為Fixed Dialog
D．設置BoderStyle的值為Sizable
正確答案: C
(13) 下面的控件可作為其他控件容器的是
A．PictureBox和Data
B．Frame和Image
C．PictureBox和Frame
D．Image和Data
正確答案: C
(14) 如果要將文本框作為密碼框使用時，應設置的屬性為
A．Name
B．Caption
C．PasswordChar
D．Text
正確答案: C
(15) 有關程序代碼窗口的說法錯誤的是
A．在窗口的垂直滾動條的上面，有一個"拆分欄"，利用它可以把窗口分為兩個部分，每個窗口顯示代碼的一部分
B．雙擊控件設計窗體即可打開程序代碼窗口
C．在程序代碼的左下角有兩個按鈕，可以選擇全模塊查看或者是過程查看
D．默認情況下，窗體的事件是Load
正確答案: A
(16) Visual Basic中的數(shù)值可以用十六進制或八進制表示，十六進制數(shù)的開頭符是&H，八進制數(shù)的開頭符號是
A．$O
B．&O
C．$E
D．&E
正確答案: B
(17) MsgBox函數(shù)的返回值的類型為
A．數(shù)值型
B．變體類型
C．字符串型
D．日期型
正確答案: A
(18) 使"計算機技術"在當前窗體上輸出的語句是
A．Print "計算機技術"
B．Picture.Print "計算機技術"
C．Printer.Print "計算機技術"
D．Debug.Print "計算機技術"
正確答案: A
(19) 用來設置文本框有無滾動條的屬性是
A．ScrollBars
B．MultiLine
C．SelText
D．SelLength
正確答案: A
(20) 當Esc鍵與單擊該命令按鈕作用相同時，此命令按鈕的什么屬性被設置為True？
A．Style
B．Default
C．Caption
D．Cancel
正確答案: D
(21) 在Visual Basic種，要使標簽的標題欄靠右顯示，則將其Alignment屬性設置為
A．0
B．2
C．1
D．3
正確答案: C
(22) 屬性BorderColor的作用是
A．設置直線顏色和形狀邊界顏色
B．設置直線或形狀背景顏色
C．設置直線或形狀邊界線的線型
D．設置形狀的內(nèi)部顏色
正確答案: A
(23) 下面哪個程序段能夠正確實現(xiàn)如果A
A．If A
A=-1
Print A
B．If A
A=-1:Print A
C．If A
A=1:Print A
Else
A=-1:
End If
D．If A A=-1
Print A
Print A
考生答案: 正確答案: C
(24) 下列程序段的執(zhí)行結果為
a=2
b=0
Select Case a
Case 1
Select Case b
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
A．**0**
B．**1**
C．**2**
D．0
正確答案: C
(25) 在窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框，兩個名稱分雖為Label1、Label2，標題分別為空白和"共有文件"的標簽。編寫程序，使得驅(qū)動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標簽Label1中顯示當前文件夾中文件的數(shù)量。如圖所示。
能夠正確實現(xiàn)上述功能的程序是
A．Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B．Private Sub Dir1_Change()
File.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C．Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
(D．Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption= File1.List
End Sub
正確答案: C
(26) 設有聲明語句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
則數(shù)組b中全部元素的個數(shù)
A．2310
B．1920
C．1500
D．1658
正確答案: B
(27) 單擊命令按鈕，下列事件過程的執(zhí)行結果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=40: y=72
Call PtoP(x, y)
Print x; y
End Sub
Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
n=n ＼ 10+2
m=m ＼ 10+2
End Sub
A．0 8
B．40 72
C．4 50
D．78 50
正確答案: B
(28) 下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim p As Integer, q As Integer
p=12: q=20
Call Value(p, q)
Print p; q
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A．20 12
20 15
B．12 20
12 25
C．24 15
12 20
D．24 12
12 15
考生答案: 正確答案: C
(29) 在窗體上畫一個命令按鈕，然后編寫如下程序：
Private Sub Command3_Click()
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop (a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序運行后，單擊命令按鈕，輸出結果為
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
正確答案: B
(30) 有如下事件過程，單擊命令按鈕扣，輸出結果為
Private Sub Command1_Click()
Dim b%(1 To 4) , j%, t#
For j=1 To 4
b(j) =j
Next j
t=Tax(b() )
Print "t="; t,
End Sub
Function Tax (a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A．
t=t * a(i)
Next i
Tax=t
End Function
A．t＝18
B．t＝24
C．t＝30
D．t＝32
正確答案: B
(31) 設在窗體上有一個文本框，然后編寫如下的事件過程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2= &H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text= "abl"
End If
End Sub
程序運行后，清除文本框中原有內(nèi)容，如果按Shift+F2鍵，則在文本框中顯示的是
A．Alt+F2
B．a(chǎn)bl
C．隨機出幾個數(shù)
D．不發(fā)生變化
正確答案: D
(32) 設已經(jīng)在菜單編輯器中設計了窗體的快捷菜單，其菜單為Bt，取消其"可見"屬性，運行時，在以下事件過程中，可以使快捷菜單相應鼠標右鍵菜單的是
A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bt, 2
End Sub
B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt
End Sub
C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt,0
End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
End Sub
正確答案: A
(33) 在窗體上畫一個通用對話框，其Name屬性為Cont，再畫一個命令按鈕，Name屬性為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
Cont.FileName= ""
Cont.Flags=vbOFNFileMustExist
Cont.Filter= "All Files|*.*"
Cont.FilterIndex=3
Cont.DialogTitle= "Open File"
Co nt.Action=1
If Cont.FileName= "" Then
MsgBox "No file selected"
Else
Open Cont.FileName For Input As #1
Do While Not EOF(1)
Input #1, b$
Print b$
Loop
End If
End Sub
以下各選項，對上述事件過程描述錯誤的是
A．該事件過程用來建立一個Open對話框，可以在這個對話框中選擇要打開的文件
B．選擇后單擊"打開"按鈕，所選擇的文件名即作為對話框的FileName屬性值
C．Open對話框不僅僅用來選擇一個文件，還可以打開、顯示文件
D．過程中的"Cont.Action=1"用來建立Open對話框，它與Cont.ShowOpen等價
正確答案: C
(34) 已知使用Show方法的格式為：［窗體名稱］.Show ［模式］，如果要使窗體是"模態(tài)型"窗體，則"模式"值為
A．True
B．0
C．1
D．False
正確答案: C
(35) 下面敘述不正確的是
A．對順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B．順序文件結構簡單
C．能同時對順序文件進行讀寫操作
D．順序文件中只能知道第一個記錄的位置
正確答案: C
二 、填空題
(1) 當線性表采用順序存儲結構實現(xiàn)存儲時，其主要特點是 【1】 。
正確答案: 1.(邏輯結構中相鄰的結點在存儲結構中仍相鄰)
(2) 軟件工程的出現(xiàn)是由于 【2】 。
正確答案: 1.(軟件危機的出現(xiàn))
(3) 單元測試又稱模塊測試，一般采用 【3】 測試。
正確答案: 1.(白盒法)
(4) 數(shù)據(jù)庫恢復是將數(shù)據(jù)庫從 【4】 狀態(tài)恢復到某一已知的正確狀態(tài)。
正確答案: 1.(錯誤)
(5) 數(shù)據(jù)的基本單位是 【5】 。
正確答案: 1.(數(shù)據(jù)元素)
(6) 下列語句的輸出結果是 【6】 。
Print Format$(6658.6, "000,000.00")
正確答案: 1.(006,658.60)
(7) 如果在D盤當前文件夾下已經(jīng)存在名為PIC.dat的順序文件，那么執(zhí)行語句Open "D:＼PIC.dat" For Append As #1之后將 【7】 。
正確答案: 1.(在文件尾添加新內(nèi)容)
(8) 在有下面一個程序段從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿足條件，除以6余2，除以5余3，則輸出，否則，將焦點定位在文本框中，并清除文本框的內(nèi)容。
Private Sub Command1_Click()
num=Val(Text1.Text)
If 【8】 Then
Print num
Else
Text1.Text=""
【9】
End If
End Sub
正確答案: 1.(num Mod 6 = 2 And num Mod 5 = 3) 2.(Text1.SetFocus)
(9) 下面的程序的作用是利用隨機函數(shù)產(chǎn)生10個100~300(不包含300) 之間的隨機整數(shù)，打印其中7的倍數(shù)的數(shù)，并求它們的總和，請?zhí)羁铡?BR> Sub TOF()
Randomize
Dim s As Double
Dim a(10) As Integer
For i=0 To 9
【10】
Next
For i=0 To 9
If 【11】 Then
Print a(i)
s=s + a(i)
【12】
Next i
Print "S="; s
End Sub
正確答案: 1.(a(i) = Int(Rnd * 200 + 100)) 2.(a(i) Mod 7 = 0) 3.(End If)
(10) 下面的程序是計算給定函數(shù)的值，自變量x，y的值用InputBox函數(shù)輸入，函數(shù)如下：
f(x,y) =
程序不完整，請?zhí)羁?，將程序的補充完整。
Option Explicit
Dim x As Single
Dim y As Single
Dim z As Single
Private Sub Command1_Click()
x=Val(InputBox("x=") )
y=Val(InputBox("y=") )
End Sub
Private Sub Command2_Click()
If 【13】 Then
z=x ^ 2 + y ^ 2
ElseIf 【14】 Then
z=x ^ 2 - 2 * y ^ 2
【15】
z=y ^ 2 - 3 * x ^ 2
End If
Form1.Print "當x，y的值為："; x, y
Form1.Print "f(x,y) 的值為："; z
End Sub
正確答案: 1.(x > 0 And y > 0) 2.(x < 0 And y > 0) 3.(Else)