1、2013年 4月考试可视化程序设计（ VB）第三次作业 一、填空题（本大题共 60 分，共 15 小题，每小题 4 分） 1. 要使用状态栏控件设计状态栏，应首先在 “ 部件 ” 对话框中选择 _ ，然后从工具箱中选择 _ 控件。 2. 对象的边框类型由 _ _属性设置。 3. VB的每个菜单项都有一个下拉菜单，含有若干个 _ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。 4. 菜单的热键指使用 _ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个 字符前加上一个 _ 符号，在菜单中这一字符会自动加上 _ ，表示该字符是一个热键字符。 5. 运行时，要使工具栏控件 T
2、oolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： _ 。 6. 根据文件内容区分，文件分为 _ 和 _ 。 7. 当使用 Format函数与 Print方法一起输出时，格式字符串中的 ”#” 号表示一个数字位，它的个数决定 _ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 _ 显示。 8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 _ 属性设为 False，然后在程序中用 _ 语句加载。 9. 如果将工程的启动对象设置成 _ 子程序，则程序启动时可以不加载任何窗体。 10. 要从字符串 “Visual Basic 6.0” 中截取子字符
3、串 “Basic” 可使用的函数是 _ 。 11. 要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c ： windows winupd ico” 指定，应使用语句： _ 。 12. 若 case子句中的表达式表列具有形式：表达式 1 To 表达式 2，则它的含义是：当测试表达式的值等于 _ 时，执行该 case子句相应的程序块。 13. 表示 x是 5的倍数或是 9的倍数的逻辑表达式是 _ 。 14. 程序运行过程中，在立即窗口显示变量 f的语句是 _ 。 15. 设 Form1.Scaleleft=-250， Form1.Scalertop=300， Fo
4、rm1.Scalewidth=350， Form1.Scaleheight=500， 则 Form1的右下角 坐标为 _ 。 二、程序阅读题（本大题共 40分，共 10 小题，每小题 4 分） 1. 若窗体 Form1上添加了通用对话框 CommonDialog1，下面程序的功能是什么？ Dim filename As String Dim str As String CommonDialog1.Filter = “文本文件 (*.TXT)|*.txt“ CommonDialog1.Action = 1 filename = CommonDialog1.filename CommonDialo
5、g1.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 2. Private Sub Form_Click() num = 0 Do num = num + 3 Print num Loop Until num Mod 4 = 0 End Sub 程序运行后，单击窗体，输出结果是 _ 3. 写出下面事件过程的执行结果。 Private Sub
6、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 4. 下列标准模块和窗体模块的功能 是给通信录文件 “d: txrf1.dat” 添加新记录，在横线上填上适当内容。 标准模块： Type txr num As Integer name As String * 10 tel As String * 8 addr As String
7、 * 20 End Type 窗体模块： Private Sub Command1_Click() Dim n%, zgr As txr Open “d:txrf1.dat“ For Random As #1 Len = Len(zgr) zgr.num = InputBox(“输入新职工编号： “) zgr.name = InputBox(“输入新职工姓名： “) zgr.tel = InputBox(“输入新职工电话号码： “) zgr.addr = InputBox(“输入新职工住址： “) n = (1) (2) Close #1 End Sub 5. 写出下面的程序运行后，连续单击
8、4次窗体，在 Form1上的执行结果。 Private Sub Form_Click（ ） Static a As Integer Dim b As Integer b=a+b+1 a=a+b Form1.Print “a=”;a, “b=”;b End Sub 6. 有如下事件过程，写出程序的功能（数学表达式）。 Private Sub Command1_Click() T=0 M=1 Sum =0 Do T=T+M Sum =Sum+T M=M+2 Loop While M=90 Then Grade=”A” ElseIf score=80 Then Grade=”B” ElseIf sc
9、ore=70 Then Grade=”C” ElseIf score=60 Then Grade=”D” Else Grade=”E” End If Print “该学生的分数等级为： “; grade; End Sub 答案： 一、填空题（ 60 分，共 15 题，每小题 4 分） 1. 参考答案： Microsoft Windows Common Controls 6.0 、 StatusBar 解题方案： 评分标准： 2 2. 参考答案： BorderStyle 解题方案： 评分标准： 2 3. 参考答案： 菜单 解题方案： 评分标准： 2 4. 参考答案： Alt、 grade; End Sub 解题方案： 区别条件语句与分支语句的功能 评分标准： 6
