vb第6章课后练习答案

《vb第6章课后练习答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章过程与函数一、填空题1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。2．一维长整型数组a作过程形参写作：a()AsLong，二维长整型数组b作过程形参写作：____b()AsLong____。3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按值传递____方式。5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地址传递____方式。6．声明Single类型全局变量x，写作____Publ

2、icxAsSingle（或Publicx!）____；声明Integer类型静态变量x，写作____StaticxAsInteger（或Staticx%）____。7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作____Form2.y____。8．阅读如下代码，单击窗体后，窗体上的显示结果为____s=2s=5s=9____。DimiAsInteger,nAsIntegerPrivateSubForm_Click()DimiAsIntegerFori=1To3s=sum(i):Print"s=";s;NextiEndSubPri

3、vateFunctionsum(nAsInteger)StaticjAsIntegerj=j+n+1:sum=jEndFunction二、选择题1.VB程序设计语言中，函数过程与子过程必须分别用关键字（C）声明。(A)Private，Public(B)Public，Private(C)Function,Sub(D)Sub,Function2.要调用一个已经定义好的函数myfunction()，用语句的方式调用函数，下列写法哪个是正确的（D）(A)Callmyfunction(B)myFunction(C)myFunction()(D)Callmy

4、Function()3.定义过程时，如果在过程名前加关键字Private，则该过程为（A）。(A)它是私有过程，仅在定义该过程的模块内有效，模块内的过程可以调用该过程(B)它是公有过程，在整个工程内有效，模块外的过程可以调用该过程(C)它是私有过程，在整个工程内有效，模块外的过程可以调用该过程(D)它是公有过程，仅在定义该过程的模块内有效，模块内的过程可以调用该过程4.在过程中用Dim保留字定义的变量是（B）(A)全局变量(B)局部变量(C)静态变量(D)以上都不是5.防止递归函数进入死锁的机制是（A）(A)在适当的条件下返回(B)通过Stop语

5、句终止递归调用(C)通过End语句终止递归函数(D)不需要返回6.关于函数与子程序的关系，下面说法正确的是（A）(A)函数执行完后将得到一个返回值，而子程序只是执行一系列动作(B)函数可以不带参数，而子程序必须带参数(C)在函数中只用到传地址的方式，而子程序只能用到传值方式(D)子程序可以被其他子程序调用，而函数不能被其他函数调用7.VisualBasic6.0中缺省的参数传递机制是（B）(A)传值(B)传址(C)传值和传地址(D)从实参到形参8.使用（C）语句可以实现过程的特殊出口。(A)PublicSub/Function(B)Call过程名

6、(C)ExitSub/Function(D)PrivateSub/Function三、思考题1.静态变量和动态变量的区别是什么？2.函数过程与子程序过程有什么区别？3.子过程调用有哪几种形式？4.什么是形参？什么是实参？什么是值引用？什么是地址引用？对应的实参有没有限制？5.怎样引用其他模块的过程和变量？6.编制通用函数过程，计算Double类型一维数组所有元素的平均值。7.编制通用Sub过程，将Single类型一维数组反序排放（如实参数组元素依次为6、5、9、7，调用后为7、9、5、6；若为-3.2、4、2.6、31、7.3，调用后为7.3、3

7、1、2.6、4、-3.2）。8．编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号（提示：Sub过程的形参列表如x()AsSingle,mAsbyte,nAsByte,xmaxAsSingle,kiAsByte,kjAsByte）。9.输出100—300间的素数，要求：（1）用函数判断素数。（2）每行输出10个数。10．设计一个将一维数组按降序排列的子过程（假设数据个数不知道），然后编程：（1）自动产生并输出100个[100，999]间的正整数，并要求每行输出10个数据。（2）调用该过程对数据按降序排列后再按

8、每行10个输出。6-3-7解答：PrivateSubForm_Click()Dima()AsSingleReDima(10)Print"