【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“vb程序设计教程ZW9　 - 中考高考“提供大家参考，希望对大家有所帮助!

第9章 过程 9.1 Sub过程 9.1.1建立Sub过程 1. 定义Sub过程 VisualBasic程序设计教程第三版 2 2. 建立Sub过程 图9.1“添加过程”对话框 图9.2模块代码窗口 9.1.2调用Sub过程 1. 用Call语句调用Sub过程 2. 把过程名作为一个语句来使用 VisualBasic程序设计教程第三版 3 图9.3时间延迟 VisualBasic程序设计教程第三版 4 9.1.3通用过程与事件过程 VisualBasic程序设计教程第三版 5 VisualBasic程序设计教程第三版 6 9.2 Function过程 9.2.1建立Function过程 VisualBasic程序设计教程第三版 7 9.2.2调用Function过程 图9.4输出随机数 VisualBasic程序设计教程第三版 8 图9.5求平方根 VisualBasic程序设计教程第三版 9 图9.6 Visual Basic应用程序中的过程 9.3参数传送 9.3.1形参与实参 1. 按位置传送 图9.7形参与实参 2. 指名传送 VisualBasic程序设计教程第三版 10 9.3.2引用 图9.8过程的副作用 VisualBasic程序设计教程第三版 11 9.3.3传值 VisualBasic程序设计教程第三版 12 9.3.4数组参数的传送 VisualBasic程序设计教程第三版 13 VisualBasic程序设计教程第三版 14 图9.9实参数组与形参数组 VisualBasic程序设计教程第三版 15 图9.10用梯形法求定积分 VisualBasic程序设计教程第三版 16 图9.11求定积分界面设计 图9.12求定积分求值结果 VisualBasic程序设计教程第三版 17 9.4可选参数与可变参数 9.4.1可选参数 9.4.2可变参数 VisualBasic程序设计教程第三版 18 9.5对象参数 9.5.1窗体参数 VisualBasic程序设计教程第三版 19 VisualBasic程序设计教程第三版 20 9.5.2控件参数 图9.13控件参数示例 VisualBasic程序设计教程第三版 21 图9.14 TypeOf语句示例 VisualBasic程序设计教程第三版 22 图9.15控件移动界面设计 VisualBasic程序设计教程第三版 23 图9.16控件移动运行情况 9.6局部内存分配 VisualBasic程序设计教程第三版 24 VisualBasic程序设计教程第三版 25 9.7递归 图9.17递归调用操作 VisualBasic程序设计教程第三版 26 习题 9.1编写一个求3个数中最大值Max和最小值Min的过程然后用这个过程分别求3VisualBasic程序设计教程第三版 27 个数和5个数、7个数中的最大值和最小值。

     9.2编写程序求SABC阶乘的计算分别用Sub过程和Function过程两种方法来实现。

     9.3编写一个过程以整型数作为形参当该参数为奇数时输出False而当该参数为偶数时输出True。

     9.4设a为一整数如果能使a2的低位与a相同则称a为“守形数”。

    例如52 25252 625则5和25 都是守形数。

    试编写一个Function过程Automorphic其形参为一正整数判断其是否为守形数然后用该过程查找11000内的所有守形数。

     9.5编写求解一元二次方程 ax2 bx c 0 的过程要求abc及解x1x2都以参数传送的方式与主程序交换数据输入abc和输出x1x2的操作放在主程序中。

     9.6斐波纳契Fibonacci数列的第一项是1第二项是1以后各项都是前两项的和试用递归算法和非递归算法各编写一个程序求斐波纳契数列前n项的值。

     9.7编写八进制数与十进制数相互转换的过程 1 过程ReadOctal读入八进制数然后转换为等值的十进制数。

     2 过程WriteOctal将十进制正整数以等值的八进制形式输出。

     9.8编写一个过程用来计算并输出 的值。

     9.9编写过程用下面的公式计算π的近似值 在事件过程中调用该过程并输出当n10050010005000时π的近似值。

     9.10在本章中介绍了用梯形法求定积分的方法例9.10请编写用矩形法求定积分的程序。

    矩形法与梯形法的区别是 梯形法以一个小梯形曲顶矩形的面积近似代替小区间内曲顶梯形的实际面积而矩形法则是以一个矩形来代替。

    例如sinx曲线在 a b区间里可分为n个区间第一个区间的宽为hb-a/n高为sina。

     编写用矩形法求定积分 VisualBasic程序设计教程第三版 28 的程序用a0 b1 n10100100010000进行试验。

     9.11用随机数函数Rnd生成一个8行8列的数组各元素值在100以内然后找出某个指定行内值最大的元素所在的列号。

    要求 查找指定行内值最大的元素所在列号的操作要通过一个过程来实现。

     9.12某商场有一个价目表见表9.2该表有两项内容即商品名和商品价格。

    有4种商品的价格。

     商品名价格商品名价格电冰箱2340洗衣机3320电视机5300自行车890编写程序把上面的价目表存入一个数组然后把新的商品名及其价格插入数组中。