模擬試題二答案

1、模擬試題二答案一、 填空題（0.54020）1. Visual Basic6.0中應(yīng)用 可視化的面向?qū)ο?的程序設(shè)計(jì)方法，采用 事件 驅(qū)動的編程機(jī)制。2. Visual Basic6.0的主要功能特點(diǎn)是具有面向?qū)ο蟮?可視化的基于事件驅(qū)動 設(shè)計(jì)工具，非常適合于面向?qū)ο蟮木幊谭绞健?. 當(dāng)進(jìn)如Visual Basic集體環(huán)境，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇 視圖 菜單的選項(xiàng),使“工具箱”窗口顯示。4. 對象的方法是指 對對象可以進(jìn)行地操作 。5. Visual Basic6.0中文版的菜單欄共有 13 個菜單項(xiàng)。6. Visual Basic6.0的控件分為3類，即： 常用控件、Active

2、X控件、可插入對象控件。7. 十進(jìn)制整型數(shù)的表示范圍為 -3276832767 。8. 根據(jù)所給條件，引出邏輯表達(dá)式：（1）閏年的條件是：年號(year)能被4整除,但不能被100整除；或者能被400整除。邏輯表達(dá)式為： NOT(Year MOD 4) AND (Year MOD 100) OR NOT(Year MOD 400) （2）一元二次方程有實(shí)根的條件為：a不等于0且b2-4ac=0邏輯表達(dá)式為： a0 AND b2-4*a*c=0 9. name為 字符串 常數(shù)；alse為 布爾型 常數(shù)；11/16/99為 字符串 常量； 12.345為 浮點(diǎn)數(shù) 常量。10. 以下語句的輸出結(jié)果是

3、 Beijing S$=ChinaS$=BeijingPrint S $11. .列表框中項(xiàng)目的序號是從 0 開始的， ListCount-1 表示列表框中最后一項(xiàng)的序號。12. 滾動條響應(yīng)的重要事件有 Change 和 Scroll 。13. 控件數(shù)組的名字由 Name 屬性指定，而數(shù)組中的每個元素由 Index 屬性指定。14. visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是_組合框_15. 計(jì)時器控件能有規(guī)律的以一定時間間隔觸發(fā)_Timer_事件，并執(zhí)行該事件過程中的程序代碼。16. 為了在運(yùn)行時把圖形文件Pf.jpg裝入圖片框Picture1，所使用的語句為

4、_Pictuer1.Pictuer=LoadPictuer(Pf.jpg)_。17. 在菜單編輯器中建立了一個菜單，名為pmenu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁?。Form1. PopupMenu Pmenu18. 制作菜單的分隔欄時，選用的符號是_-_。19. Visual Basic提供的對數(shù)據(jù)文件的三種訪問方式為隨機(jī)訪問方式_順序訪問方式_和二進(jìn)制訪問方式。20. 一個數(shù)據(jù)庫由一個或多個表組成，表的每一行就是一個 記錄 ，表中的每一列稱作一個 字段 。21. Data 控件是Visual Basic 6.0和數(shù)據(jù)庫之間的橋梁，而 數(shù)據(jù)綁定 控件則把Data控件和用戶界面聯(lián)

5、系起來，兩者構(gòu)成了Visual Basic 6.0開發(fā)數(shù)據(jù)庫的主體。22. 顯示窗體所使用的方法為_show_；隱藏窗體但并不從內(nèi)存中將其刪除所使用的方法是_Hide_；隱藏窗體并從內(nèi)存中將其刪除所使用的方法是_UnLoad_。23. 在改變默認(rèn)的驅(qū)動器，可以通過設(shè)置驅(qū)動器控件的_Drive_屬性；文件夾列表控件的當(dāng)前路徑被_Path_屬性所記錄；文件列表控件中被選中的文件被_FileName_屬性所記錄。二、 選擇題（219=38）1. 可以用來在啟動程序時對屬性和變量進(jìn)行初始化的事件( D )A Click B UnloadC Activate D Load2. 當(dāng)窗體上有多個控件時，最多

6、只有( A )個控件是活動的。A 1 B 2C 3 D 多3. 當(dāng)對被選擇的控件進(jìn)行對齊、調(diào)整大小等操作時，將以( C )為準(zhǔn)。A 所有控件 B 某些控件C 基準(zhǔn)控件 D 以上說法均不對4. Visual Basic中的語句通常按“一行一句，一句一行”的規(guī)則書寫，但也允許多個語句放在同一行中。在這種情況下，用來隔開各語句的符號是( A )A 冒號 B 分號C 逗號 D 感嘆號5. 一般來說，在用Visual Basic開發(fā)應(yīng)用程序時，其通常的步驟為( A )A 設(shè)置可視界面 編寫代碼 程序測試、運(yùn)行B 建立可視用戶界面 設(shè)置可視界面特性 編寫事件驅(qū)動代碼C 編寫事件驅(qū)動代碼 程序測試 程序運(yùn)行

7、和維護(hù)D 以上步驟均不對6. 下面4個選項(xiàng)中屬于字符型數(shù)據(jù)的是( A )A “Hello” B HelloC Hello D #Hello7. 雙精度浮點(diǎn)數(shù)存儲時占的字節(jié)數(shù)是( B ) A 4 B 8 C 16 D 328. 下面為正確的整型常量的是( C ) A &624 B 0347 C &0127 D &01289. 把小寫字母轉(zhuǎn)換為大寫字母的函數(shù)是( B ) A Lcase$ B Ucase$ C Instr D Len10. “x是小于100的非負(fù)數(shù)”，用Visual Basic表達(dá)式表示正確的是( C ) A 0=x100 B 0=x100 C 0=x And x100 D 0=x

8、 Or X0 Then Print 左大括號數(shù)多；Count1；個Else Print 右大括號數(shù)多；-Count1；個End If End If End Sub2 閱讀程序：Private Sub Form_Click( )num=0 Do while num=2num=num+1Print num Loop End Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是 123 。3 在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click( ) Dim n( )As Integer Dim a,b As Integer a=Inp

9、utBox(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 Printn(;k;)=;n(k)Next k End Sub程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入和，輸出結(jié)果為 n(2)=2 n(3)=3。4 在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼： Private Sub Command1_click( ) Dim a(5) For I=0 To 4 A(i)=I+1

10、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 Then a(I+1)=a(t-4) A(4)=1 Print a(i); Next I End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 1 2 3 1 4 1 。5 在窗體中添加一個名稱為Text1的文本框，兩個名稱分別為Command1和Command2的命令按鈕。要求程序運(yùn)行后，用戶向文本框中輸入字母，單擊Command1按鈕則文本框中字母全部轉(zhuǎn)換為大寫；然后單擊Command2按鈕則文本框中字母全部轉(zhuǎn)換為小寫。請將下列程序補(bǔ)充完整。Pri

11、vate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) _ Text1.Tag_ = Text1.TextEnd Sub Private Sub Command1_Click() Text1.Text = _ UCase(Text1.Tag)_ End Sub Private Sub Command2_ _Click_ Text1.Text = LCase(Text1.Tag)End Sub6 在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼： Private Sub Command1_click() D

12、im 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é)果為 4 。7 下面程序運(yùn)行后，輸出的結(jié)果為_0_ Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(LeftA$,2)+Right$(B$,2),C$)Print C$ End Sub 8 在窗體上畫兩個標(biāo)簽，其名稱分別為Label1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個名稱為

13、Hscoll1的水平滾動條，其Min的值為0，Max的值為100。程序運(yùn)行后，如果單擊滾動條兩端的箭頭，則在標(biāo)簽Lable2中顯示滾動條的值，如圖所示。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。Private Sub HScroll1_ Change ()Labl2.Caption=HScroll1. Value End Sub9 在窗體上畫一個名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫兩個文本框，名稱分別為Text1和Text2；然后畫4個標(biāo)簽，名稱分別為Label1、Label2、Label3和Label4，標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”和空白；再建立一個含有4個單選

14、按紐的控件數(shù)組，名稱為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后，在Text1、Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label4，程序運(yùn)行情況如圖所示。請?jiān)谔钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。Private Sub Command1_Click()For i=0 To 3If Option1(i).Value =True thenopt=Option1(i).CaptionEnd IfNextSelect Case opt Case”+”Result=Val(Text1.Text)+Val(Text2.Text)Case”-”Re

15、sult=Val(Text1.Text)-Val(Text2.Text)Case”*”Result=Val(Text.Text)*Val(Text2.Text)Case”/”Result=Val(Text1.Text)/Val(Text2.Text)End Select Label4.Caption =ResultEnd Sub四、 程序改錯題（188）在數(shù)組b中查找其中一個數(shù)，并輸出該數(shù)在數(shù)組中的位置。其程序代碼如下：Private sub search( a（7）As variant，ByVal key As Variant，ByVal index%) Dim I For IUBound(

16、a) To LBound(a)If keya(I) Then indexI Exit subEnd If Next I Index-1 End Sub Private Sub Form_Load() Show Dim n As StringDim b(n) As Variant bArray(1，3，5，7，9，11，13，15) a=inputbox(“請輸入所要查詢的數(shù)字”,”查詢”,0)search(b，a，n) Print n End Sub 正確的程序：Private Sub search(a() As Variant, ByVal key As Variant, index%) Dim I% index =