VisualBasic程序设计案例教程 第7章 过程.pptVIP

第七章 过程 理解通用过程和函数过程的工作原理和区别 熟练掌握参数传递的两种方式：按地址传递和按值传递 熟练掌握多窗体与Sub Main过程 教学重点与难点： 对通用过程和函数过程的运用；理解掌握按地址传递和按值传递 7.1 通用过程和函数过程应用案例 7.1.1 案例实现过程 【案例说明】 1.利用Sub过程，要求程序运行后结果如图7.1所示。 图7.1 运行结果 1．? 2.利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。 图7.2 运行结果 7.1 通用过程和函数过程应用案例 7.1.1 案例实现过程 【案例说明】 1.利用Sub过程，要求程序运行后结果如图7.1所示。 图7.1 运行结果 1．? 2.利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。 图7.2 运行结果 7.1 通用过程和函数过程应用案例 3．输入三个数，求出它们的最大数，要求将求两个数中的大数编写成Function过程，过程名为Max。 4．从键盘上输入一个字符，判断它是不是英文字母。 分析：英语字母有大小写之分，只要将该字符转换为大写，再判断是不是处于“A”-“Z”范围内。若是，则是英文字母，否则不是。 【技术要点】 该应用程序设计步骤如下。 1．运用【案例说明】中的第一部份：利用Sub过程，要求程序运行后结果如图7.1所示。 （1）本例直接采用Print直接在窗体上输出结果。 程序代码如下： Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 7.1 通用过程和函数过程应用案例 Call mysub1(30) End Sub Private Sub mysub1(n) Print String(n, *) End Sub Private Sub mysub2() Print *; Tab(30); * End Sub ? 在上述事件过程Form_Load()中，通过Call语句分别调用两个Sub过程。在Sub过程Mysubl(n)中，n为参数(也称形参)，当调用过程通过Call Mysubl(30)(30称为实参) 调用时，就把30传给n。这样，调用后输出30个“*’’号。过程Mysub2()不带参数，其功能是输出左右两边的“*”号。我们可以用图7.3来表示调用过程。 7.1 通用过程和函数过程应用案例 图7.3 调用过程 7.1 通用过程和函数过程应用案例 2．运用【案例说明】中的第二部份：利用Sub过，在弹出的窗口中输入y确定后，则在相应的窗体中输入内容，当输入n的时候，程序停止运行。程序运行后如图7.2所示。 （1）本例直接采用Print直接在窗体上输出结果。 程序代码如下： Private Sub Form_load() Show Print VB的基本特点是： Call sub_cont Print 面向对象的可视化编程 Call sub_cont Print 事件驱动的编程机制 Call sub_cont Print 结构化的设计语言 End Sub Private Sub sub_cont() Dim resp As String Do While True 7.1 通用过程和函数过程应用案例 resp = InputBox(是否继续(y/n) ? ) If UCase(resp) = N Then End If UCase(resp) = Y Then Exit Do Loop End Sub 在事件过程Form_Load中，有3处调用Sub过程Sub_Cont。每次调用Sub_Cont时，都会提问“是否继续（y/n）?”。若用户回答“n”，结束程序运行；若用户回答“y”，退出Do…Loop循环而返回调用语句（