《《VB程序設(shè)計》模擬考試試題》由會員分享，可在線閱讀，更多相關(guān)《《VB程序設(shè)計》模擬考試試題（8頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、真誠為您提供優(yōu)質(zhì)參考資料，若有不當之處，請指正。
《VB程序設(shè)計》模擬考試試題2
一、填空題（每空1分，共18分）
1. Visual Basic6.0是面向 的程序設(shè)計方法，采用 驅(qū)動的編程機制。
2. 當進如Visual Basic集體環(huán)境，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇 菜單的 選項,使“工具箱”窗口顯示。
3. 十進制整型數(shù)的表示范圍為 。
4. 根據(jù)所給條件，引出邏輯表達式：
（1）閏年的條件是：年號(year)能被4整除,但不能被100整除；或者能被400整除。邏輯表達式
為：
2、
（2）一元二次方程有實根的條件為：a不等于0且b2-4ac>=0邏輯表達式為：
5. .列表框中項目的序號是從 開始的， 表示列表框中最后一項的序號。
6. 控件數(shù)組的名字由 屬性指定，而數(shù)組中的每個元素由 屬性指定。
7. 為了在運行時把圖形文件Pf.jpg裝入圖片框Picture1，所使用的語句為
。
8. XXX菜單的分隔欄時，選用的符號是
3、___ ___。
9. Visual Basic提供的對數(shù)據(jù)文件的三種訪問方式為隨機訪問方式_ __和二進制訪問方式。
10. 控件是Visual Basic 6.0和數(shù)據(jù)庫之間的橋梁，而 控件則把Data控件和用戶界面XXX起來，兩者構(gòu)成了Visual Basic 6.0開發(fā)數(shù)據(jù)庫的主體。
二、選擇題（每題2分，共38分）
1. 可以用來在啟動程序時對屬性和變量進行初始化的事件( )
A Click B Unload C Activate D Load
2. 當窗體上有多
4、個控件時，最多只有( )個控件是活動的。
A 1 B 2 C 3 D 多
3. 當對被選擇的控件進行對齊、調(diào)整大小等操作時，將以( )為準。
A 所有控件 B 某些控件 C 基準控件 D 以上說法均不對
4. Visual Basic中的語句通常按“一行一句，一句一行”的規(guī)則書寫，但也允許多個語句放在同一行中。在這種情況下，用來隔開各語句的符號是( )
A 冒號 B 分號 C 逗號 D 感嘆號
5. 一
5、般來說，在用Visual Basic開發(fā)應(yīng)用程序時，其通常的步驟為( )
A ①設(shè)置可視界面 ②編寫代碼 ③程序測試、運行
B ①建立可視用戶界面 ②設(shè)置可視界面特性 ③編寫事件驅(qū)動代碼
C ①編寫事件驅(qū)動代碼 ②程序測試 ③程序運行和維護
D 以上步驟均不對
6. 下面4個選項中屬于字符型數(shù)據(jù)的是( )
A “Hello” B `Hello` C Hello D #Hello
7. 雙精度浮點數(shù)存儲時占的字節(jié)數(shù)是( )
A 4
6、 B 8 C 16 D 32
8. 下面為正確的整型常量的是( )
A &624 B 0347 C &0127 D &0128
9. 把小寫字母轉(zhuǎn)換為大寫字母的函數(shù)是( )
A Lcase$ B Ucase$ C Instr D Len
10. “x是小于100的非負數(shù)”，用Visual Basic表達式表示正確的是( )
A 0<=x<100 B
7、 0<=x<100 C 0<=x And x<100 D 0<=x Or X<100
11. 假定Picture1和Text1分別為圖片框和文本框的名稱，下列語句不正確的是( )
A Print 100 B Picture1.Print 100
C Text1. Print 100 D Debug. Print 100
12. 表達式4+5\6*7/8Mod9的值是( )
A 4 B 5 C 6
8、 D 7
13. 在窗體上畫一個命令按鈕,然后編寫如下事件過程：( )
Private Sub C ommand1_Click( )
a=InputBox(＂Enter the First Integer＂)
b=InputBox(＂Enter the Second integer＂)
Print b+a
End Sub
程序運行后,單擊命令按鈕,先后在兩個輸入對話框中分別輸入456和123,則輸出結(jié)果是
A 579 B 123 C 456 D 123456
14. 若
9、要使標簽控件顯示時不覆蓋其背景內(nèi)容，要對其設(shè)置的屬性是（ ）
A BackColor B BorderStyle C ForeColor D. BackStyle
15. 下面程序
x$=＂a＂
y$=＂b＂
z$=＂c＂
For I=1 to 2
X$=y$：y$=z$：z$=x$
Next I
Print x$+y$+z$
運行后的輸出結(jié)果是（ ?。?
A cab B bca C
10、bcb D cbc
16. 下面程序段
For I=1 To 3 Step 1
Print Spc(5-I);
For j=1 To 2*I-1
Print ＂*＂;
Next j;
Print
Next I
運行結(jié)果為（ ?。?
A * * * * * B *
* * * * * *
*
11、 * * * * *
C * D *
* * * * * *
* * ** * * * * * * * * *
17. 設(shè)有語句
open "c：Test．Dat" For OutPutAs#1
則以下錯誤的敘述是 （ ）
A) 該語句打開C盤根目錄下一個己存在的文件Test．Dat
B) 該語句
12、在C盤根目錄下建立一個名為Test．Dat的文件
C) 該語句建立的文件的文件號為1
D) 執(zhí)行該語句后，就可以通過Print#語句向文件Test．Dat中寫入信息
18. 表的每一行就是一個（ ）；表中的每一列稱作一個（ ），描述了它所含有的數(shù)據(jù)。
A 記錄 字段 B 索引 字段 C 字段 記錄 D 記錄 索引
19. Data控件的很多方法，當我們在運行時修改了Record-Source屬性后，需要調(diào)用（ ）方法刷新記錄集。
A Refresh方法
13、 B UpdateRecord方法
C UpdateControls方法 D Cancelupdate方法
三、程序填空題（每空2分，共36分）
1． 下面的程序段是檢查輸入的文字段中大括號是否配對，并顯示相應(yīng)的結(jié)果．本程序在文本框中邊輸入邊統(tǒng)計大括號的個數(shù)，以+輸入回車作為結(jié)束標志，然后顯示結(jié)果．請將程序補充完整．
Dim Count1%
Private Sub Text1_KeyPress(Key Ascii As Integer)
If =＂{＂Then
Count1=Count
14、1+1
Else If =＂}＂ Then
If KeyAscii=13 Then
If Then
Print ＂左右大括號配對＂
Else If Then
Print ＂左大括號數(shù)多＂；Count1；＂個＂
Else
Print ＂右大括號數(shù)多＂；-Count1；＂個＂
End If
End If
15、
End Sub
2． 閱讀程序：
Private Sub Form_Click( )
num=0
Do while num<=2
num=num+1
Print num
Loop
End Sub
程序運行后，單擊窗體，輸出結(jié)果是 。
3． 在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：
Private Sub Command1_Click( )
Dim n( )As Integer
Dim a,b As Integer
a=I
16、nputBox(＂Enter the first number＂)
b=InputBox(＂Enter the second number＂)
ReDim n (a To b)
For k=Lbound(n,1)To Ubound(n,1)
n(k)=k
Print＂n(＂＂;k;＂)=＂;n(k)
Next k
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中分別輸入２和３，輸出結(jié)果為 ?！?
4． 在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：
Private Sub Com
17、mand1_click( )
Dim a(5)
For I=0 To 4
A(i)=I+1
T=I+1
If t=3 Then
Print a(i);
A(t-1)=a(I-2)
Else
A(t)=a(i)
End If
If I=3 T
18、hen a(I+1)=a(t-4)
A(4)=1
Print a(i);
Next I
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果為 。
5． 在窗體中添加一個名稱為Text1的文本框，兩個名稱分別為Command1和Command2的命令按鈕。要求程序運行后，用戶向文本框中輸入字母，單擊Command1按鈕則文本框中字母全部轉(zhuǎn)換為大寫；然后單擊Command2按鈕則文本框中字母全部轉(zhuǎn)換為小寫。請將下列程序補充
19、完整。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
__ _________ = Text1.Text
End Sub
Private Sub Command1_Click()
Text1.Text = ___ __
End Sub
Private Sub Command2_ __________
Text1.Text = LCase(Text1.Tag)
End Sub
6． 在窗體上畫一個命令按鈕（其Name屬性為Comm
20、and1），然后編寫如下代碼：
Private Sub Command1_click()
Dim m(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
X=6
Print m(2+m(x))
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果為 ?！?
7． 下面程序運行后，輸出的結(jié)果為___ __
21、__
Private Sub Command1_Click( )
A$=”Beijing”
B$=”dalian”
C$=”shanghai”
C$=Instr(LeftA$,2)+Right$(B$,2),C$)
Print C$
End Sub
8． 在窗體上畫兩個標簽，其名稱分別為Label1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個名稱為Hscoll1的水平滾動條，其Min的值為0，Max的值為100。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽Lable2中顯示滾動條的值，如圖所示。請?zhí)钊脒m當?shù)膬?nèi)容，將程序補充完整。
Priv
22、ate Sub HScroll1_ ()
Labl2.Caption=HScroll1.
End Sub
9． 在窗體上畫一個名稱為Command1、標題為“計算”的命令按鈕；畫兩個文本框，名稱分別為Text1和Text2；然后畫4個標簽，名稱分別為Label1、Label2、Label3和Label4，標題分別為“操作數(shù)1”、“操作數(shù)2”、“運算結(jié)果”和空白；再建立一個含有4個單選按紐的控件數(shù)組，名稱為Option1，標題分別為“+”、“-”、“*”和“/”。程序運行后，在Text1、Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命
23、令按鈕，相應(yīng)的計算結(jié)果顯示在Label4，程序運行情況如圖所示。請在填入適當?shù)膬?nèi)容，將程序補充完整。
Private Sub Command1_Click()
For i=0 To 3
If =True then
opt=Option1(i).Caption
End If
Next
Select Case
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Te
24、xt2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
=Result
End Sub
四、程序改錯題（共8分）
在數(shù)組b中查找其中一個數(shù)，并輸出該數(shù)在數(shù)組中的位置。其程序代碼如下：
Private sub search( a（7）As variant，ByVal key As Variant，ByVal index%)
Dim I％
25、 For I＝UBound(a) To LBound(a)
If key＝a(I) Then
index＝I
Exit sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dim n As String
Dim b(n) As Variant
b＝Array(1，3，5，7，9，11，13，15)
a=inputbox(“請輸入所要查詢的數(shù)字”,”查詢”,0)
search(b，a，n)
Print n
End Sub
8 / 8
《VB程序設(shè)計》模擬考試試題
