2013年4月考试可视化程序设计[VB]第三次作业.doc

2013年4月考试可视化程序设计（VB）第三次作业一、填空题（本大题共60分，共 15 小题，每小题 4 分）1. 要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 ______ ，然后从工具箱中选择 ______ 控件。2. 对象的边框类型由 ______ _属性设置。3. VB的每个菜单项都有一个下拉菜单，含有若干个 ______ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。4. 菜单的热键指使用 ______ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 ______ 符号，在菜单中这一字符会自动加上 ______ ，表示该字符是一个热键字符。5. 运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______ 。6. 根据文件内容区分，文件分为 ______ 和 ______ 。7. 当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 ______ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 ______ 显示。8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 ______ 属性设为False，然后在程序中用 ______ 语句加载。9. 如果将工程的启动对象设置成 ______ 子程序，则程序启动时可以不加载任何窗体。10. 要从字符串“Visual Basic 6.0”中截取子字符串“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，Form1.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?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 ＃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(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 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