VisualBasic编程与应用作业3

会计考友

一、填空题  
/ K- W7 q3 d9 C* L' f1．函数过程（Function  Pocedure）用来完成特定的功能并____。
2．子过程是____的函数。又常被称为Sub过程。在事件过程或其它子过程中可以____调用过程。
/ L" r! K" ]) L( F4 A$ l1 t8 I$ Q3．在事件过程或其它过程中可以____调用函数过程。
4．函数过程____返回一个值。
4 L/ B* j5 W/ x) U+ u* w5．VB的代码存储在模块中。在VB中提供了三种类型的模块：____ 、____和____。
6．菜单控件只包一个事件____，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
; j! S+ S5 {0 V& }: N* u- g7．使用菜单编辑器创建弹出菜单时，____为不可见，“Visible属性设置为False。
8．Sub过程与Function过程最根本的区别是____。
6 c" L6 T  ^) ]/ }' ?9．通用过程可以通过执行“工具”菜单中的____命令来建立。
8 Z4 h2 B0 W% _- A10．使用Public Const语句声明一个全局的符号常量时，该语句应放在____ 。  
* C% B" p6 z0 W" E/ x    二、判断正确与错误（正确标∨，错误标 x ）并写出正确答案。  
% p+ a4 D* L/ _$ }1．子过程不能接收参数。（    ）
2．函数过程不能接收参数。（    ）
3．子过程不返回与其特定子过程名相关联的值。（    ）
4．在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（      ）
5．以下两个语句都调用了名为MgProc的Sub过程，A、B是参数。
          Call    My Proc   A、B
MyProc（A、B）
# Z2 x  w1 ?% A* }8 q（    ）
6．以下两个语句都调了名为Year（Now）的函数
9 X' P' a( j6 i6 uCall Year（Now）
# Z0 }, T4 _. k- y7 M8 s0 i: cYear Now
3 K1 Q+ z* d" L/ B4 k6 R4 r  n（    ）
4 l) Y" t$ Y8 d5 M7．标准模块是程序中的一个独立容器，包含全局变量、Function（函数）过程和Sub过程，包含对象或属性设置。（    ）
     三、问答题  
( N6 i. f4 `0 Z8 Y1．什么是工程？
2．什么是过程？
' s7 ~* t7 K- K" R3．选中一个窗体，启动菜单编辑器的方法有哪三种？
4．什么是动态菜单？
& |: F( d9 U- W0 D4 b4 L5．已知弹出菜单的名是aa，填补弹出菜单的代码。
6．现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“aa”，Visible没有选中，填补弹出菜单的代码。
8 r4 W0 C/ ^8 X, B$ Z, z四、编程题  
1．编写一个过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。
/ O6 B. d0 M' T. l) p0 F2．分析下面程序运行的结果。
/ S5 U3 O- A3 e. q8 FPrivate Function Multiply (n as Integer) As Integer
3 M2 s* U5 [/ {            Multiply=1
            do While n>0
                   Multiply=Multiply*n
                   n=n-1
5 B7 f1 z. p+ J' ?0 ]5 q( @6 I            Loop
End Function
   
+ M6 A1 w2 O. l2 OPrivate Sub Form_Click()
            Dim Sum As Integer, I As Integer
( a9 H  W2 o' _% b& c: i            For I=5 to 1 Step-1
4 U/ Q& {( R' e) t" ?# p                   Sum=Sum+Multiply(I)
            Next
& Z  K$ ~" x: e' _            Print "Sum=";Sum,
" R- C5 |) K' X# g. ZEnd Sub
5 @4 f" Z8 J& o( [& d: X' H3．分析下面程序运行的结果。
Private Function Multiply (ByVal n as Integer) As Integer
3 e) y6 i& P4 g1 a- [$ Y        Multiply=1
        do While n>0
0 J$ q" x8 Q7 Y* r2 s6 |               Multiply=Multiply*n
               n=n-1
        Loop
! ^* f6 _9 R( T8 f7 FEnd Function
+ [$ F0 F9 q, y8 @- u   
( I% `  J, I9 T; vPrivate Sub Form_Click()
0 T* C+ C2 g# d& L6 K* m' f$ M        Dim Sum As Integer, I As Integer
        For I=5 to 1 Step-1

会计考友

Sum=Sum+Multiply(I)
5 m  s' i8 s7 y; s  u        Next
6 i, q7 H1 J) W5 h3 W( S        Print "Sum=";Sum,
9 R' b2 u5 T0 t& SEnd Sub
7 A4 q6 k/ ]: b4．用函数调用的方法计算∑n