《VB程序設(shè)計(jì)》模擬考試試題

《《VB程序設(shè)計(jì)》模擬考試試題》由會(huì)員分享，可在線閱讀，更多相關(guān)《《VB程序設(shè)計(jì)》模擬考試試題（8頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、真誠(chéng)為您提供優(yōu)質(zhì)參考資料，若有不當(dāng)之處，請(qǐng)指正。 《VB程序設(shè)計(jì)》模擬考試試題2 一、填空題（每空1分，共18分） 1. Visual Basic6.0是面向 的程序設(shè)計(jì)方法，采用 驅(qū)動(dòng)的編程機(jī)制。 2. 當(dāng)進(jìn)如Visual Basic集體環(huán)境，發(fā)現(xiàn)沒(méi)有顯示“工具箱”窗口，應(yīng)選擇 　　 菜單的 選項(xiàng),使“工具箱”窗口顯示。 3. 十進(jìn)制整型數(shù)的表示范圍為 　　　　　　　　　　 。 4. 根據(jù)所給條件，引出邏輯表達(dá)式： （1）閏年的條件是：年號(hào)(year)能被4整除,但不能被100整除；或者能被400整除。邏輯表達(dá)式 為：

2、　　　　　　　　　　　　　　　　　　　　　　　　　 （2）一元二次方程有實(shí)根的條件為：a不等于0且b2-4ac>=0邏輯表達(dá)式為： 　 　　　　 5. .列表框中項(xiàng)目的序號(hào)是從 　 開始的， 　　　　 表示列表框中最后一項(xiàng)的序號(hào)。 6. 控件數(shù)組的名字由 　　　 屬性指定，而數(shù)組中的每個(gè)元素由 　　　 屬性指定。 7. 為了在運(yùn)行時(shí)把圖形文件Pf.jpg裝入圖片框Picture1，所使用的語(yǔ)句為 　　 　 　。 8. XXX菜單的分隔欄時(shí)，選用的符號(hào)是

3、___ ___。 9. Visual Basic提供的對(duì)數(shù)據(jù)文件的三種訪問(wèn)方式為隨機(jī)訪問(wèn)方式_ __和二進(jìn)制訪問(wèn)方式。 10. 控件是Visual Basic 6.0和數(shù)據(jù)庫(kù)之間的橋梁，而 控件則把Data控件和用戶界面XXX起來(lái)，兩者構(gòu)成了Visual Basic 6.0開發(fā)數(shù)據(jù)庫(kù)的主體。 二、選擇題（每題2分，共38分） 1. 可以用來(lái)在啟動(dòng)程序時(shí)對(duì)屬性和變量進(jìn)行初始化的事件( ) A Click B Unload C Activate D Load 2. 當(dāng)窗體上有多

4、個(gè)控件時(shí)，最多只有( )個(gè)控件是活動(dòng)的。 A 1 B 2 C 3 D 多 3. 當(dāng)對(duì)被選擇的控件進(jìn)行對(duì)齊、調(diào)整大小等操作時(shí)，將以( )為準(zhǔn)。 A 所有控件 B 某些控件 C 基準(zhǔn)控件 D 以上說(shuō)法均不對(duì) 4. Visual Basic中的語(yǔ)句通常按“一行一句，一句一行”的規(guī)則書寫，但也允許多個(gè)語(yǔ)句放在同一行中。在這種情況下，用來(lái)隔開各語(yǔ)句的符號(hào)是( ) A 冒號(hào) B 分號(hào) C 逗號(hào) D 感嘆號(hào) 5. 一

5、般來(lái)說(shuō)，在用Visual Basic開發(fā)應(yīng)用程序時(shí)，其通常的步驟為( ) A ①設(shè)置可視界面 ②編寫代碼 ③程序測(cè)試、運(yùn)行 B ①建立可視用戶界面 ②設(shè)置可視界面特性 ③編寫事件驅(qū)動(dòng)代碼 C ①編寫事件驅(qū)動(dòng)代碼 ②程序測(cè)試 ③程序運(yùn)行和維護(hù) D 以上步驟均不對(duì) 6. 下面4個(gè)選項(xiàng)中屬于字符型數(shù)據(jù)的是( ) A “Hello” B `Hello` C Hello D #Hello 7. 雙精度浮點(diǎn)數(shù)存儲(chǔ)時(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的非負(fù)數(shù)”，用Visual Basic表達(dá)式表示正確的是( ) A 0<=x<100 B

7、 0<=x<100 C 0<=x And x<100 D 0<=x Or X<100 11. 假定Picture1和Text1分別為圖片框和文本框的名稱，下列語(yǔ)句不正確的是( ) A Print 100 B Picture1.Print 100 C Text1. Print 100 D Debug. Print 100 12. 表達(dá)式4+5\6*7/8Mod9的值是( ) A 4 B 5 C 6

8、 D 7 13. 在窗體上畫一個(gè)命令按鈕,然后編寫如下事件過(guò)程：( ) Private Sub C ommand1_Click( ) a=InputBox(＂Enter the First Integer＂) b=InputBox(＂Enter the Second integer＂) Print b+a End Sub 程序運(yùn)行后,單擊命令按鈕,先后在兩個(gè)輸入對(duì)話框中分別輸入456和123,則輸出結(jié)果是 A 579 B 123 C 456 D 123456 14. 若

9、要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì)其設(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$ 運(yùn)行后的輸出結(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 運(yùn)行結(jié)果為（ ?。? A * * * * * B * * * * * * * 　　 *

11、 * * * * * C * D * * * * * * * * * ** * * * * * * * * * 17. 設(shè)有語(yǔ)句 open "c：Test．Dat" For OutPutAs#1 則以下錯(cuò)誤的敘述是 （ ） A) 該語(yǔ)句打開C盤根目錄下一個(gè)己存在的文件Test．Dat B) 該語(yǔ)句

12、在C盤根目錄下建立一個(gè)名為Test．Dat的文件 C) 該語(yǔ)句建立的文件的文件號(hào)為1 D) 執(zhí)行該語(yǔ)句后，就可以通過(guò)Print#語(yǔ)句向文件Test．Dat中寫入信息 18. 表的每一行就是一個(gè)（ ）；表中的每一列稱作一個(gè)（ ），描述了它所含有的數(shù)據(jù)。 A 記錄 字段 B 索引 字段 C 字段 記錄 D 記錄 索引 19. Data控件的很多方法，當(dāng)我們?cè)谶\(yùn)行時(shí)修改了Record-Source屬性后，需要調(diào)用（ ）方法刷新記錄集。 A Refresh方法

13、 B UpdateRecord方法 C UpdateControls方法 D Cancelupdate方法 三、程序填空題（每空2分，共36分） 1． 下面的程序段是檢查輸入的文字段中大括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果．本程序在文本框中邊輸入邊統(tǒng)計(jì)大括號(hào)的個(gè)數(shù)，以+輸入回車作為結(jié)束標(biāo)志，然后顯示結(jié)果．請(qǐng)將程序補(bǔ)充完整． 　　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 ＂左右大括號(hào)配對(duì)＂ 　　　Else If Then Print ＂左大括號(hào)數(shù)多＂；Count1；＂個(gè)＂ 　　　Else Print ＂右大括號(hào)數(shù)多＂；-Count1；＂個(gè)＂ 　　　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 程序運(yùn)行后，單擊窗體，輸出結(jié)果是 。 3． 在窗體上畫一個(gè)命令按鈕（其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 程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入２和３，輸出結(jié)果為 。　 4． 　在窗體上畫一個(gè)命令按鈕（其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 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 。 5． 在窗體中添加一個(gè)名稱為Text1的文本框，兩個(gè)名稱分別為Command1和Command2的命令按鈕。要求程序運(yùn)行后，用戶向文本框中輸入字母，單擊Command1按鈕則文本框中字母全部轉(zhuǎn)換為大寫；然后單擊Command2按鈕則文本框中字母全部轉(zhuǎn)換為小寫。請(qǐng)將下列程序補(bǔ)充

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． 在窗體上畫一個(gè)命令按鈕（其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 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 ?！? 7． 下面程序運(yùn)行后，輸出的結(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． 在窗體上畫兩個(gè)標(biāo)簽，其名稱分別為L(zhǎng)abel1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個(gè)名稱為Hscoll1的水平滾動(dòng)條，其Min的值為0，Max的值為100。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽Lable2中顯示滾動(dòng)條的值，如圖所示。請(qǐng)?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 Priv

22、ate Sub HScroll1_ () Labl2.Caption=HScroll1. End Sub 9． 在窗體上畫一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫兩個(gè)文本框，名稱分別為Text1和Text2；然后畫4個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”和空白；再建立一個(gè)含有4個(gè)單選按紐的控件數(shù)組，名稱為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后，在Text1、Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命

23、令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label4，程序運(yùn)行情況如圖所示。請(qǐng)?jiān)谔钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 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 四、程序改錯(cuò)題（共8分） 在數(shù)組b中查找其中一個(gè)數(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(“請(qǐng)輸入所要查詢的數(shù)字”,”查詢”,0) search(b，a，n) Print n End Sub 8 / 8