2011年12月考试可视化程序设计（VB）第三次作业

1、2011年12月考试可视化程序设计（VB）第三次作业一、填空题（本大题共60分，共 15 小题，每小题 4 分）1. 要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 _ ，然后从工具箱中选择 _ 控件。2. 对象的边框类型由 _ _属性设置。3. VB的每个菜单项都有一个下拉菜单，含有若干个 _ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。4. 菜单的热键指使用 _ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 _ 符号，在菜单中这一字符会自动加上 _ ，表示该字符是一个热键字符。5. 运行时，要使工具栏控件Toolbarl中的第二个按钮的

2、按钮菜单中的第三项无效（变成灰色），应使用语句： _ 。6. 根据文件内容区分，文件分为 _ 和 _ 。7. 当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 _ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 _ 显示。8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 _ 属性设为False，然后在程序中用 _ 语句加载。9. 如果将工程的启动对象设置成 _ 子程序，则程序启动时可以不加载任何窗体。10. 要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 _ 。11. 要在运行

3、时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：windowswinupdico”指定，应使用语句： _ 。12. 若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 _ 时，执行该case子句相应的程序块。13. 表示x是5的倍数或是9的倍数的逻辑表达式是 _ 。14. 程序运行过程中，在立即窗口显示变量f的语句是 _ 。15. 设Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下

4、角坐标为 _ 。二、程序阅读题（本大题共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程序运行后，单击窗体，输出结果是_3. 写出下面事件过程的执行结果。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. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。标准模块： 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. 写出下面的程序运行后，连续单击4次窗体，在Form1上的执行结果。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. 有如下事件过程，写出程序的功能（数学表达式）。 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 该学生的分数等级为：; grade; End Sub答案：一、

9、填空题（60分，共 15 题，每小题 4 分）1. 参考答案：Microsoft Windows Common Controls 6.0 、 StatusBar解题方案：评分标准：22. 参考答案：BorderStyle解题方案：评分标准：23. 参考答案：菜单解题方案：评分标准：24. 参考答案：Alt、&、下划线解题方案：评分标准：25. 参考答案：ToolbarlButtons（2）ButtonMenus（3）EnabledFalse解题方案：评分标准：26. 参考答案：程序文件、数据文件解题方案：评分标准：27. 参考答案：显示数据、原样解题方案：评分标准：28. 参考答案：Visib

10、le，Load解题方案：评分标准：29. 参考答案：Main解题方案：评分标准：210. 参考答案：Mid(“Visual Basic 6.0”,8,5)解题方案：评分标准：211. 参考答案：StatusBar1Panels（2）PictureLoadPicture（”C：WindowsWinupdico”）解题方案：评分标准：212. 参考答案：这个范围内的值解题方案：评分标准：213. 参考答案：x mod 5=0 OR x mod 9=0解题方案：评分标准：214. 参考答案：Debug.Print f解题方案：评分标准：215. 参考答案：100,800解题方案：评分标准：2二、程序

11、阅读题（40分，共 10 题，每小题 4 分）1. 参考答案：以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上解题方案：使用通用对话框改颜色评分标准：62. 参考答案：3 6 9 12解题方案：理解循环过程评分标准：63. 参考答案：1 1 2 3 5 8 13 21 34 55解题方案：循环输出评分标准：64. 参考答案：(1) LOF(1) / Len(zgr) + 1 (2) Put #1, n, zgr解题方案：标准模块和窗体模块应用评分标准：65. 参考答案：执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8解题方案：静态变量的特性评分标准：66. 参考答案：程序的功能：程序用于计算数学表达等式为：1223242202=2870解题方案：循环计算评分标准：67. 参考答案：移动鼠标并松开鼠标左键。解题方案：理解鼠标事件的动作原理评分标准：68. 参考答案：（1）Dim a() As Integer （2）ReDim a(n)解题方案：根据要求填写与数组有关的代码评分标准：69. 参考答案：将数组a倒置解题方案：数组操作与数据交换评分标准：610. 参考答案：Private Sub Command1_Click() Dim score!, grade$ score=InputBox(