月考试可视化程序设计(VB)次作业及答案

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

2、一字符会自动加上下划线 ，表示该字符是一个热键字符.5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled False .6.根据文件内容区分，文件分为程序文件 和 数据文件 .7.当使用 Format 函数与 Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定显示数据 的长度，若要显示的数据位数大于这个长度，则显示时数据按原样显示 .8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的Visible属性设为 False ，

3、然后在程序中用Load 语句加载 .9.如果将工程的启动对象设置成Main 子程序，则程序启动时可以不加载任何窗体.10.要从字符串“ Visual Basic 6.0”中截取子字符串“ Basic ”可使用的函数是Mid( “Visual Basic 6.0 ”,8,5) .11.要在运行时给状态栏StatusBar1的第二个窗格添加一幅图片，该图片由文件“c： windows winupd ico ”指定，应使用语句： StatusBar1.Panels(2).PictureLoadPicture （“ C ： Windows Winupdico ”） .12.若 case 子句中的表达式

4、表列具有形式：表达式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

5、 分）1. 若窗体 Form1 上添加了通用对话框 CommonDialog1，下面程序的功能是什么？Dim filename As StringDim str As StringCommonDialog1.Filter = "文本文件 (*.TXT)|*.txt"CommonDialog1.Action = 1filename = CommonDialog1.filenameCommonDialog1.ShowColorForm1.ForeColor = CommonDialog1.ColorOpen filenameFor Input As #1Do While Not

6、 EOF(1)str = str + Input(1, #1)LoopForm1.Print strClose 1以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上2. Private Sub Form_Click() num = 0Donum = num + 3Print num第1页，共 4页Loop Until numMod 4 = 0End Sub程序运行后，单击窗体，输出结果是：369123.写出下面事件过程的执行结果.Private Sub Command1_Click()Dim f(10) As Integerf(0)=1f(1)=1For i=2 To 10f(i

7、)=f(i - 2)+f(i - 1)Next iFor i=0 To 9If i Mod 4=0 ThenPrintPrint f(i)Next iEnd Sub执行结果是：4. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容.标准模块：Type txr num As Integername As String * 10tel As String * 8addr As String * 20End Type窗体模块：Private Sub Command1_Click()Dim n%, zgr As txrOpen "d:txr

8、f1.dat" For Random As #1Len = Len(zgr)zgr.num = InputBox("输入新职工编号：") = InputBox("输入新职工姓名：")zgr.tel = InputBox("输入新职工电话号码：")zgr.addr = InputBox("输入新职工住址：")n =LOF(1) / Len(zgr) + 1 (2)Put #1, n, zgrClose #1End Sub5.写出下面的程序运行后，连续单击4 次窗体，在Form1 上的执行结果

9、.Private Sub Form_Click（ ）Static a As IntegerDim b As Integerb=a+b+1a=a+bForm1.Print“a=”;a,“b=”;bEnd Sub执行结果为：a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=86.有如下事件过程，写出程序的功能（数学表达式）.Private Sub Command1_Click()T=0M=1Sum =0DoT=T+MSum =Sum+TM=M+2第2页，共 4页Loop While M<=39Print “Sum =”；SumEnd Sub计算数学表达式：1 22 32 42 2

10、02=28707.编写如下代码：dim flag as Booleanprivate sub form_mousedown（ button as integer， shift as integer， x as single， y as single）flag=trueend subprivate sub form_mousemove（ button as integer， shift as integer， x as single， y as single）flag=falseend subprivate sub form_mouseup（ button as integer， shift a

11、s integer， x as single， y as single）if flag=false thenprint "DDDD"end ifend sub程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为移动鼠标并松开鼠标左键.8.下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a 中，并求出这组数据的平均值，在横线上填上适当内容 .Private Sub Command1_Click()Dim n%, i%Dim a() As Integern=InputBox("请输入数据个数：")ReDim a(n)For i=1 To na(

12、i)=InputBox("请输入第 " & Str(i) & "个数据： ")Next iFor i=1 To nSum=Sum+a(i)Next iPrint "平均值： " Sum / nEnd Sub9. 下面程序的作用是什么？Private Sub Command1_Click()Dim a()a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For n = 0 To 8Print a(n);NextPrintCall s1(a)For n = 0 To 8Print a(n);NextE

13、nd SubPrivate Sub s1(ByRef x()s = UBound(x)For n = 0 To s / 2temp = x(n)x(n) = x(s - n)x(s - n) = tempNextEnd Sub将数组 a 倒置10.使用情况语句改写下列事件过程.Private Sub Command1_Click()第3页，共 4页Dim score!, grade$score=InputBox("请输入一个学生的分数：")If score>=90 ThenGrade=”A”ElseIf score>=80 ThenGrade=”B”ElseIf score>=70 ThenGrade=”C”ElseIf score>=60 ThenGrade=”D”ElseGrade=”E”End IfPrint "该学生的分数等级为：" grade;End SubPrivate Sub Command1_Click()Dim score!, grade$score=InputBox("请输入一个学生的分数：")Select Case scoreCase