【asp精品源码栏目提醒】:网学会员,鉴于大家对asp精品源码十分关注,论文会员在此为大家搜集整理了“第4章_VVB_NET过程与变量 - 大学课件”一文,供大家参考学习!
第四章 过程与变量的作用域在Visual Basic.
NET中有3种类型的过程:Sub过 程、Function过程和Property过程。
⑴ Sub过程执行操作,但不向调用它的过程返回 值。
⑵ Function过程可以向调用它的过程返回值。
⑶ Property过程可以返回类、结构或模块属性的 值,或向它们赋值。
过程可以被其他过程调用,当一个过程调用另一 个过程时,控制权将会转移到后一个过程,当后 一个过程的代码执行完毕时,它将控制权返回给 调用它的过程。
4.1 Sub过程的创建与调用知识点1 Sub过程的创建1. 声明Sub过程的语法格式如下:访问修饰符 Sub 过程名 形参列表 语句块1 Exit Sub 语句块2 End Sub说明:见P81表4-1 知识点2 Sub过程的调用定义一个过程后,就可以在程序中调用该过程了。
调用Sub过程的语法格式如下所示: Call 过程名 实参列表 说明:⑴ 调用Sub 过程要使用独立的调用语句,不能在表 达式中调用Sub 过程。
⑵ 调用时必须提供所有非可选参数的值,并且必须 用括号将参数列表括起来。
如果未提供任何参 数,可以省略括号。
⑶ Call 关键字是可选项,但是建议使用。
知识点3 事件过程Windows应用程序采用事件驱动的编程机制,在图 形用户界面上,要实现用户和应用
程序之间的交 互就必须对事件进行响应,为此必须编写对象的 事件过程代码。
对象的事件过程也是Sub过程,其过程名称通常是对 象名_事件名称,如frmSub窗体的加载事件 frmSub_Load、单击事件frmSub_Click 等。
在事件过程中可以调用其他Sub过程。
√任务1 Sub过程的应用要求:编写一个Sub 过程,通知用户应用程序将要执行哪个任务,并且显示一个时间戳。
分别在窗体的Load事件和Click事件过程中调用该过程。
任务1 解析编写Sub过程tellOperator,其形参task表示任 务名称。
Sub tellOperatorByVal task As String Dim stamp As Date stamp TimeOfDay
系统时间 MsgBox执行 task 任务 at CStrstampEnd Sub编写窗体的Load事件过程,在调用Sub过程时使用的实参是窗体加载。
Private Sub frmSub_ClickByVal sender As Object ByVal e As System.EventArgs Handles Me.Click Call tellOperator单击窗体 End Sub编写窗体的Click事件过程,在调用Sub过程时使用的实参是单击窗体。
Private Sub frmSub_LoadByVal sender As Object ByVal e As System.EventArgs Handles Me.Load Call tellOperator窗体加载End Sub 4.2 Function过程的创建与调用Function过程又称为函数过程,它是过程 的另一种形式,当过程的执行仅需要返 回一个值时,用函数过程就比较简单。
知识点1 Function过程的创建Function过程和Sub过程类似,但Function过程可以向其调用过 程返回值。
创建Function过程的语法格式如下所示:访问修饰符 Function 函数名 形参
列表 As 数据类型 语句块1 函数名 表达式 Return 表达式 Exit Function 函数名 表达式 Return 表达式 语句块2 End Function 例如,下面是一个计算正整数n 阶乘的函数过程fact n Public Function Fact n As Integer As Long Dim t As Long i As Integer t1 For i 1 To n tti Next i Fact t ‘或者 Return tEnd Function 知识点2 Function过程的调用 调用 Function 过程的方法是将其名称和参数放在赋 值语句的右边或表达式中。
必须提供所有非可选参 数的值,并且必须用括号将参数列表括起来。
如果 未提供任何参数,则也可以选择省略括号。
调用 Function 过程的语法格式如下: 函数名 实参列表 例如,调用Fact函数过程计算5!,并将结果显示在 文本框TextBox1的语句如下: TextBox1.Text CstrFact5 √任务2 使用Function过程求最大公约数和最小公倍 数要求:编写一个求最大公约数的Function 过程, 调用这个过程求任意两个正整数的最大公约数 和最小公倍数。
任务2 解析思路分析:求两个数m和n的最大公约数可以使用“辗转相除法”, 步骤是: 以数m作为被除数,数n作为除数,相除后余数为 r。
m n n r 若r不为零,则 继续相除得到 新的r。
若r仍不为零,则重复此过程,直到r=0。
最后的n就是最大公约数。
nm 最小公倍数= 最大公约数编写一个Function 过程Gcd,用于求两个形参m和n的 最大公约数。
Dim num1 num2 As Integer Function GcdByVal m As Integer ByVal n As Integer As Integer Dim r As Integer r表示两数相除得到的余数 r m Mod n Do While r 0 当余数不为0时 mn nr r m Mod n Loop Gcd n End Function 编写按钮的Click事件过程,通过调用Gcd 过程计算得到任意两个数的最大公约数。
Private Sub btnGcd_ClickByVal sender As Object ByVal e As System.EventArgs Handles btnGcd.Click num1 ValtxtFir