2011年12月考試可視化程序設(shè)計（VB）第三次作業(yè)

1、2011年12月考試可視化程序設(shè)計（VB）第三次作業(yè)一、填空題（本大題共60分，共 15 小題，每小題 4 分）1. 要使用狀態(tài)欄控件設(shè)計狀態(tài)欄，應(yīng)首先在“部件”對話框中選擇 _ ，然后從工具箱中選擇 _ 控件。2. 對象的邊框類型由 _ _屬性設(shè)置。3. VB的每個菜單項都有一個下拉菜單，含有若干個 _ 命令。用鼠標(biāo)單擊某個菜單項就執(zhí)行相應(yīng)的菜單命令。4. 菜單的熱鍵指使用 _ 鍵和菜單項標(biāo)題中的一個字符來打開菜單。建立熱鍵的方法是在菜單標(biāo)題的某個字符前加上一個 _ 符號，在菜單中這一字符會自動加上 _ ，表示該字符是一個熱鍵字符。5. 運行時，要使工具欄控件Toolbarl中的第二個按鈕的

2、按鈕菜單中的第三項無效（變成灰色），應(yīng)使用語句： _ 。6. 根據(jù)文件內(nèi)容區(qū)分，文件分為 _ 和 _ 。7. 當(dāng)使用Format函數(shù)與Print方法一起輸出時，格式字符串中的”#”號表示一個數(shù)字位，它的個數(shù)決定 _ 的長度，若要顯示的數(shù)據(jù)位數(shù)大于這個長度，則顯示時數(shù)據(jù)按 _ 顯示。8. 菜單在運行時的動態(tài)增減主要通過控件數(shù)組實現(xiàn)，首先將菜單項的 _ 屬性設(shè)為False，然后在程序中用 _ 語句加載。9. 如果將工程的啟動對象設(shè)置成 _ 子程序，則程序啟動時可以不加載任何窗體。10. 要從字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函數(shù)是 _ 。11. 要在運行

3、時給狀態(tài)欄 StatusBar1的第二個窗格添加一幅圖片，該圖片由文件 “c：windowswinupdico”指定，應(yīng)使用語句： _ 。12. 若case子句中的表達(dá)式表列具有形式：表達(dá)式1 To 表達(dá)式2，則它的含義是：當(dāng)測試表達(dá)式的值等于 _ 時，執(zhí)行該case子句相應(yīng)的程序塊。13. 表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式是 _ 。14. 程序運行過程中，在立即窗口顯示變量f的語句是 _ 。15. 設(shè)Form1.Scaleleft=-250，F(xiàn)orm1.Scalertop=300，F(xiàn)orm1.Scalewidth=350，F(xiàn)orm1.Scaleheight=500，則Form1的右下

4、角坐標(biāo)為 _ 。二、程序閱讀題（本大題共40分，共 10 小題，每小題 4 分）1. 若窗體Form1上添加了通用對話框CommonDialog1，下面程序的功能是什么？ Dim filename As String Dim str As String CommonDialog1.Filter = 文本文件(*.TXT)|*.txtCommonDialog1.Action = 1filename = CommonDialog1.filenameCommonDialog1.ShowColor Form1.ForeColor = CommonDialog1.Color Open filename

5、For Input As #1 Do While Not EOF(1) str = str + Input(1, #1) Loop Form1.Print str Close 12. Private Sub Form_Click()num = 0 Do num = num + 3 Print num Loop Until num Mod 4 = 0 End Sub程序運行后，單擊窗體，輸出結(jié)果是_3. 寫出下面事件過程的執(zhí)行結(jié)果。Private Sub Command1_Click() Dim f(10) As Integer f(0)=1f(1)=1 For i=2 To 10 f(i)=f

6、(i - 2)+f(i - 1)Next iFor i=0 To 9If i Mod 4=0 ThenPrint Print f(i)Next i End Sub4. 下列標(biāo)準(zhǔn)模塊和窗體模塊的功能是給通信錄文件“d:txrf1.dat”添加新記錄，在橫線上填上適當(dāng)內(nèi)容。標(biāo)準(zhǔn)模塊： Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20 End Type窗體模塊： Private Sub Command1_Click() Dim n%, zgr As txr Open d:txrf1.da

7、t For Random As #1 Len = Len(zgr) zgr.num = InputBox(輸入新職工編號：) = InputBox(輸入新職工姓名：) zgr.tel = InputBox(輸入新職工電話號碼：)zgr.addr = InputBox(輸入新職工住址：) n = (1)(2) Close #1 End Sub5. 寫出下面的程序運行后，連續(xù)單擊4次窗體，在Form1上的執(zhí)行結(jié)果。Private Sub Form_Click（ ） Static a As Integer Dim b As Integer b=a+b+1 a=a+bForm1.Pr

8、int “a=”;a, “b=”;bEnd Sub6. 有如下事件過程，寫出程序的功能（數(shù)學(xué)表達(dá)式）。 Private Sub Command1_Click() T=0M=1 Sum =0Do T=T+M Sum =Sum+T M=M+2 Loop While M=90 Then Grade=”A” ElseIf score=80 Then Grade=”B” ElseIf score=70 ThenGrade=”C” ElseIf score=60 Then Grade=”D” ElseGrade=”E”End If Print 該學(xué)生的分?jǐn)?shù)等級為：; grade; End Sub答案：一、

9、填空題（60分，共 15 題，每小題 4 分）1. 參考答案：Microsoft Windows Common Controls 6.0 、 StatusBar解題方案：評分標(biāo)準(zhǔn)：22. 參考答案：BorderStyle解題方案：評分標(biāo)準(zhǔn)：23. 參考答案：菜單解題方案：評分標(biāo)準(zhǔn)：24. 參考答案：Alt、&、下劃線解題方案：評分標(biāo)準(zhǔn)：25. 參考答案：ToolbarlButtons（2）ButtonMenus（3）EnabledFalse解題方案：評分標(biāo)準(zhǔn)：26. 參考答案：程序文件、數(shù)據(jù)文件解題方案：評分標(biāo)準(zhǔn)：27. 參考答案：顯示數(shù)據(jù)、原樣解題方案：評分標(biāo)準(zhǔn)：28. 參考答案：Visib

10、le，Load解題方案：評分標(biāo)準(zhǔn)：29. 參考答案：Main解題方案：評分標(biāo)準(zhǔn)：210. 參考答案：Mid(“Visual Basic 6.0”,8,5)解題方案：評分標(biāo)準(zhǔn)：211. 參考答案：StatusBar1Panels（2）PictureLoadPicture（”C：WindowsWinupdico”）解題方案：評分標(biāo)準(zhǔn)：212. 參考答案：這個范圍內(nèi)的值解題方案：評分標(biāo)準(zhǔn)：213. 參考答案：x mod 5=0 OR x mod 9=0解題方案：評分標(biāo)準(zhǔn)：214. 參考答案：Debug.Print f解題方案：評分標(biāo)準(zhǔn)：215. 參考答案：100,800解題方案：評分標(biāo)準(zhǔn)：2二、程序

11、閱讀題（40分，共 10 題，每小題 4 分）1. 參考答案：以選擇的顏色作為窗體前景色，將一個文本文件顯示在Form1窗體上解題方案：使用通用對話框改顏色評分標(biāo)準(zhǔn)：62. 參考答案：3 6 9 12解題方案：理解循環(huán)過程評分標(biāo)準(zhǔn)：63. 參考答案：1 1 2 3 5 8 13 21 34 55解題方案：循環(huán)輸出評分標(biāo)準(zhǔn)：64. 參考答案：(1) LOF(1) / Len(zgr) + 1 (2) Put #1, n, zgr解題方案：標(biāo)準(zhǔn)模塊和窗體模塊應(yīng)用評分標(biāo)準(zhǔn)：65. 參考答案：執(zhí)行結(jié)果為： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8解題方案：靜態(tài)變量的特性評分標(biāo)準(zhǔn)：66. 參考答案：程序的功能：程序用于計算數(shù)學(xué)表達(dá)等式為：1223242202=2870解題方案：循環(huán)計算評分標(biāo)準(zhǔn)：67. 參考答案：移動鼠標(biāo)并松開鼠標(biāo)左鍵。解題方案：理解鼠標(biāo)事件的動作原理評分標(biāo)準(zhǔn)：68. 參考答案：（1）Dim a() As Integer （2）ReDim a(n)解題方案：根據(jù)要求填寫與數(shù)組有關(guān)的代碼評分標(biāo)準(zhǔn)：69. 參考答案：將數(shù)組a倒置解題方案：數(shù)組操作與數(shù)據(jù)交換評分標(biāo)準(zhǔn)：610. 參考答案：Private Sub Command1_Click() Dim score!, grade$ score=InputBox(