VisualBasic编程与应用作业3答案

1.填写空问题
1。返回相应的结果2。无返回值3。名字是4。用函数名
5。表单模块标准模块类模块6。点击7。菜单项
8。sub过程的过程名不能返回值，Function过程可以通过过程名返回值。9.添加程序
10。标准模块的通用声明部分
2。判断是对还是错(正确的打∨，错误的打x)写出正确答案。
1。(X子进程可以接收参数。) 2.(X函数程序可以接收参数。) 3.(∨) 4.(∨)
5。(X调用我的pro (a，B) MyProc( A，b) 6。(∨)
7。(X标准模块是程序中的一个独立容器，里面包含全局变量，。)
三。问题和答案。什么是工程？
答:项目是应用文件的集合。项目文件是与项目和环境信息集相关联的所有文件和对象的简单列表。其他项目也可以共享所有文件和对象。
2。什么是过程？
答:一个应用程序由几个模块组成，每个模块又由几个更小的代码片段组成。组成这些模块的代码片段称为进程。通过程序，整个程序可以按照功能划分成块，每个程序用来完成一个特定的功能。
3。通过选择表单启动菜单编辑器的三种方式是什么？
答:(1)使用菜单工具/(菜单编辑器)
(2)使用工具栏按钮工具栏快捷键；(3)键盘快捷键Ctrl+E
4。什么是动态菜单？
答:动态菜单是指在菜单中列出最近使用的文件名。这部分内容是随着应用的运行不断变化的，使得菜单在运行中不断增长。
5。已知弹出菜单的名字是aa。填写弹出菜单的代码。
回答:Private subform _ mousedown(button为integer，shift为integer，X为Single，Y为Single)
'在窗体上按鼠标。
如果Btton = 2，那么‘如果它是正确的键。
PopupMenu aa '弹出菜单。
end if
end sub
6。现在使用菜单编辑器来设计弹出菜单。第一个菜单项(制作菜单项)的标题是“弹出菜单”，名称:“AA”，不选择可见，所以填写弹出菜单的代码。
回答:Private subform _ mousedown(button为integer，shift为integer，X为Single，Y为Single)
'在窗体上按鼠标。
如果Btton = 2，那么‘如果它是正确的键。
PopupMenu aa '弹出菜单。
End If
End Sub
IV。编程问题。写一个过程，把整数作为参数，当参数是奇数时输出False，当参数是偶数时输出True。
回答:大致过程如下:
function numoe (byval n为整数)as boolean[/Br/]if nmodu 2 = 0 then[/Br/]numoe = true[/Br/]else[/Br/]numoe = false[/Br/]end if[/Br/]end Function[/Br/]这是一个函数过程，有一个整数参数，返回值为Boolean。当参数值为奇数时，过程返回False，否则返回True。在以下事件过程中调用此过程:
private subform _ Click()
Dimretnum as boolean
num = InputBox("请输入一个整数")
num = Val(num)
Retnum = numoe(num)
ifretnum = true then
a $ = "偶数"
Else a$ = "奇数"
End If
Print num；"‐‐‐‐ ";“是一个”；A $
end sub
2。分析以下程序的运行结果。
Private函数Multiply (n为整数)As Integer
Multiply = 1
do While n > 0
Multiply = Multiply * n
n = n-1
Loop
End函数
Private Sub Form _ Click()
Dim Sum As Integer，I As Integer
For I = 5 to 1 Step-1
Sum = Sum+Multiply(I)
Next
Sum，
End Sub
答案:
题目是计算:5！
所以运行结果:
Sum=120
这个程序只计算5！=120。因为参数n是按地址传递的，所以第一次调用乘法函数后，n的值是0，参数I的值也是0，因为实参数共用地址单元。当执行Sum=Sum+Multiply(I)语句时，Sum的值为120。执行下一条语句后，当判断出I=5到1 Step -1的语句时，For循环将退出。所以循环只执行一次，5！的价值。
3。分析以下程序的结果。
Private函数Multiply (ByVal n为整数)As Integer
Multiply = 1
do While n > 0
Multiply = Multiply * n
n = n-1
Loop
End函数
Private Sub Form _ Click()
Dim Sum As Integer，I As Integer
For I = 5 to 1 Step-1
Sum = Sum+Multiply(I)
NextSum，
End Sub
答案:
运行结果:
sum = 153
4。通过函数调用计算∑n
。答案:
私有静态函数fac (n为整数)as Dim f为整数
f = f+n
Fac = f
End函数
私有子Form_Click()
Dim I为整数
For I = 1到5
Print“8721”；I & " = " & fac(I)
Next I
End sub
程序分析:
●流程定义语句私有静态函数fac (n为整数)用于使流程中的所有局部变量成为静态。当Static关键字加在过程头之前时，无论过程中的变量是用Static、Dim还是Private或隐式声明的，都将成为静态变量。
●调整后的函数Fac是∑n的值，局部变量F是静态变量。每次调用Fac函数结束时，变量F的值保持为∑i，然后加上下一个I+1。
●如果变量f没有用Static声明，则不会保留之前的sum，每次调用时函数中f的初始值都是0。如果f是在一个模块的声明段定义的，那么f就变成了一个模块级变量，也会得到同样的效果。但是，由于其他进程也可以访问和更改模块级变量的值，因此操作结果可能不可靠，代码将难以维护。