2011年12月考试可视化程序设计(VB)第三次作业及答案.docVIP

2011年12月考试可视化程序设计（VB）第三次作业 一、填空题（本大题共60分，共 15 小题，每小题 4 分） 1. 要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 Microsoft Windows Common Controls 6.0 ，然后从工具箱中选择 StatusBar 控件。 2. 对象的边框类型由 BorderStyle 属性设置。 3. VB的每个菜单项都有一个下拉菜单，含有若干个 菜单 命令。用鼠标单击某个菜单项就执行相应的菜单命令。 4. 菜单的热键指使用 Alt 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 符号，在菜单中这一字符会自动加上 下划线 ，表示该字符是一个热键字符。 5. 运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ToolbarlButtons(2).ButtonMenus(3).Enabled＝False。 6. 根据文件内容区分，文件分为 程序文件 和 数据文件 。 7. 当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 显示数据 的长度，若要显示的数据位数大于这个长度，则显示时数据按 原样 显示。 8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 Visible 属性设为False，然后在程序中用 Load 语句加载。 9. 如果将工程的启动对象设置成 Main 子程序，则程序启动时可以不加载任何窗体。 10. 要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 Mid(“Visual Basic 6.0”,8,5) 。 11. 要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句：StatusBar1Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。 12. 若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 这个范围内的值 时，执行该case子句相应的程序块。 13. 表示x是5的倍数或是9的倍数的逻辑表达式是 x mod 5=0 OR x mod 9=0 。 14. 程序运行过程中，在立即窗口显示变量f的语句是 Debug.Print f 。 15. 设 Form1.Scaleleft=-250， Form1.Scalertop=300， Form1.Scalewidth=350， Form1.Scaleheight=500， 则Form1的右下角坐标为 100,800 。 二、程序阅读题（本大题共40分，共 10 小题，每小题 4 分） 1. 若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？ Dim filename As String Dim str As String CommonDialog1.Filter = 文本文件(*.TXT)|*.txt ?CommonDialog1.Action = 1 ?filename = CommonDialog1.filename ?CommonDialog1.ShowColor Form1.ForeColor = CommonDialog1.Color Open filename For Input As #1 Do While Not EOF(1) str = str + Input(1, #1) Loop Form1.Print str Close ＃1以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上2. Private Sub Form_Click() num = 0 Do num = num + 3 Print num Loop Until num Mod 4 = 0 End Sub 程序运行后，单击窗体，输出结果是3 6 9 12 3. 写出下面事件过程的执行结果。 Private Sub Command1_Click() Dim f(10) As Integer f(0)=1 f(1)=1 For i=2 To 10 f(i)=f(i - 2)+f(i - 1)? Next i? For i=0 To 9? If i Mod 4=0 Then? Print Print f(i) Next i End Sub执行结果1 1 2 3 5 8 13 21 34 55 4.下列标准模块和窗体模块的功能是给通信录文件“