vb程序设计教程ZW9.docVIP

第9章 过程 9.1 Sub过程 9.1.1建立Sub过程 1. 定义Sub过程 2. 建立Sub过程 图9.1“添加过程”对话框 图9.2模块代码窗口 9.1.2调用Sub过程 1. 用Call语句调用Sub过程 2. 把过程名作为一个语句来使用 图9.3时间延迟 9.1.3通用过程与事件过程 9.2 Function过程 9.2.1建立Function过程 9.2.2调用Function过程 图9.4输出随机数 图9.5求平方根 图9.6 Visual Basic应用程序中的过程 9.3参数传送 9.3.1形参与实参 1. 按位置传送 图9.7形参与实参 2. 指名传送 9.3.2引用 图9.8过程的副作用 9.3.3传值 9.3.4数组参数的传送 图9.9实参数组与形参数组 图9.10用梯形法求定积分 图9.11求定积分（界面设计） 图9.12求定积分（求值结果） 9.4可选参数与可变参数 9.4.1可选参数 9.4.2可变参数 9.5对象参数 9.5.1窗体参数 9.5.2控件参数 图9.13控件参数示例 图9.14 TypeOf语句示例 图9.15控件移动（界面设计） 图9.16控件移动（运行情况） 9.6局部内存分配 9.7递归 图9.17递归调用操作 习题 9.1编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数和5个数、7个数中的最大值和最小值。 9.2编写程序，求S=A!+B!+C!，阶乘的计算分别用Sub过程和Function过程两种方法来实现。 9.3编写一个过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。 9.4设a为一整数，如果能使a2的低位与a相同，则称a为“守形数”。例如52 = 25，252 = 625，则5和25 都是守形数。试编写一个Function过程Automorphic，其形参为一正整数，判断其是否为守形数，然后用该过程查找1～1000内的所有守形数。 9.5编写求解一元二次方程 ax2 + bx + c = 0 的过程，要求a，b，c及解x1，x2都以参数传送的方式与主程序交换数据，输入a，b，c和输出x1，x2的操作放在主程序中。 9.6斐波纳契（Fibonacci）数列的第一项是1，第二项是1，以后各项都是前两项的和，试用递归算法和非递归算法各编写一个程序，求斐波纳契数列前n项的值。 9.7编写八进制数与十进制数相互转换的过程： （1） 过程ReadOctal读入八进制数，然后转换为等值的十进制数。 （2） 过程WriteOctal将十进制正整数以等值的八进制形式输出。 9.8编写一个过程，用来计算并输出： 的值。 9.9编写过程，用下面的公式计算π的近似值： 在事件过程中调用该过程，并输出当n=100，500，1000，5000时π的近似值。 9.10在本章中介绍了用梯形法求定积分的方法（例9.10），请编写用矩形法求定积分的程序。矩形法与梯形法的区别是： 梯形法以一个小梯形（曲顶矩形）的面积近似代替小区间内曲顶梯形的实际面积，而矩形法则是以一个矩形来代替。例如，sinx曲线在 [a, b]区间里可分为n个区间，第一个区间的宽为h=(b-a)/n，高为sina。 编写用矩形法求定积分： 的程序，用a=0； b=1； n=10，100，1000，10000进行试验。 9.11用随机数函数Rnd生成一个8行8列的数组（各元素值在100以内），然后找出某个指定行内值最大的元素所在的列号。要求： 查找指定行内值最大的元素所在列号的操作要通过一个过程来实现。 9.12某商场有一个价目表（见表9.2），该表有两项内容，即商品名和商品价格。有4种商品的价格。 商品名价格商品名价格电冰箱2340洗衣机3320电视机5300自行车890编写程序，把上面的价目表存入一个数组，然后把新的商品名及其价格插入数组中。 6 数据结构(C++版) 28 VisualBasic程序设计教程(第三版)