VisualBasic编程与应用作业3答案

1、姓名：_ 班级：_ 学号：_-密-封 -线- visualbasic编程与应用作业3答案考试时间：120分钟 考试总分：100分题号一二三四五总分分数遵守考场纪律，维护知识尊严，杜绝违纪行为，确保考试结果公正。一、填空题 1返回相应的结果2没有返回值按名称3按名称4以该函数名 5窗体模块标准模块类模块6click7顶级菜单项目 8sub过程的过程名不能返回值，而function过程能通过过程名返回值9添加过程 10标准模块的通用声明段 二、判断正确与错误（正确标，错误标x）并写出正确答案。 1（x子过程能接收参数。）2（x函数过程能接收参数。）3（）4（） 5（xcallmypro（a、b）m

2、yproc（a、b）6（） 7（x标准模块是程序中的一个独立容器，包含全局变量、function（函数）过程和sub过程。） 三、问答题 1什么是工程？ 解答：工程是构成应用程序文件的集合。工程文件是与工程相关联的所有文件和对象以及所设置的环境信息的一个简单的列表，所有文件和对象也可以被其它的工程所共享。 2什么是过程？ 解答：一个应用程序是由若干个模块组成的，而每个模块又是由若干个更小的代码片段组成，将组成这些模块的代码片段称为过程。通过过程，可以将整个程序按功能进行分块，每个过程用来完成一项特定的功能。 3选中一个窗体，启动菜单编辑器的方法有哪三种？ 解答：（1）使用菜单“工具”/（菜单编

3、辑器） （2）使用工具栏按钮工具栏快捷键；（3）键盘快捷键ctrl+e 4什么是动态菜单？ 解答：动态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在运行时使菜单可以增长。 5已知弹出菜单的名是aa，填补弹出菜单的代码。 解答：privatesubform_mousedown（buttonasinteger,shiftasinteger，xassingle，yassingle） 在窗体上按下鼠标。 ifbtton=2then如果是右键。 popupmenuaa弹出菜单。 endif endsub 6现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项

4、目）的caption为“弹出菜单”，name：“aa”，visible没有选中，填补弹出菜单的代码。 解答：privatesubform_mousedown（buttonasinteger,shiftasinteger，xassingle，yassingle） 在窗体上按下鼠标。 ifbtton=2then如果是右键。 popupmenuaa弹出菜单。 endif endsub 四、编程题 1编写一个过程，以整型数作为形参，当该参数为奇数时输出false，而当该参数为偶数时输出true。 解答：通用过程如下： functionnumoe（byvalnasinteger）asboolean if

5、nmod2=0then numoe=true else numoe=false endif endfunction 这是一个function过程，该过程有一个整型形参，其返回值为boolean类型。当参数值为奇数时，过程返回false，否则返回true。在下面的事件过程中调用该过程： privatesubform_click() dimretnumasboolean num=inputbox(“请输入一个整数”) num=val(num) retnum=numoe(num) ifretnum=truethen a$=“偶数” elsea$=“奇数” endif printnum;”;”是一个”

6、;a$ endsub 2分析下面程序运行的结果。 privatefunctionmultiply(nasinteger)asinteger multiply=1 dowhilen0 multiply=multiply*n n=n-1 loop endfunction privatesubform_click() dimsumasinteger,iasinteger fori=5to1step-1 sum=sum+multiply(i) next print”sum=“;sum, endsub 解答： 本题是计算：5！ 所以运行结果： sum=120 本程序只计算了5！=120。因为，形参n是按

7、地址传递的，在第一次调用multiply函数后n的值为0，由于实参与形参共享地址单元，实参i的值也是0。当执行sum=sum+multiply(i)语句后，sum的值是120，执行next语句后在判断语句fori=5to1step-1时就退出for循环。因此循环只执行了一次，求了5！的值。 3分析下面程序运行的结果。 privatefunctionmultiply(byvalnasinteger)asinteger multiply=1 dowhilen0 multiply=multiply*n n=n-1 loop endfunction privatesubform_click() dim

8、sumasinteger,iasinteger fori=5to1step-1 sum=sum+multiply(i) next print”sum=“;sum, endsub 解答： 运行结果： sum=153 4用函数调用的方法计算n 解答: privatestaticfunctionfac(nasinteger)asinteger dimfasinteger f=f+n fac=f endfunction privatesubform_click() dimiasinteger fori=1to5 print”;i&”=“&fac(i) nexti endsub 程序分析： 过程定义语句privatestaticfunctionfac(nasinteger)是为了使过程中所有的局部变量为静态变量。在过程头前加上static关键字时，无论过程中的变量是用static、dim或private声明的还是隐式声明的，都会变成静态变量。 被调函数fac是计算n的值，局部变量f为静态变量，在每次调用fac函数结束时变量f的值保留为i，再与下次的i+1相加