VB过程与函数

这样表达式 的结果才能 作为函数的
返回值
（二）、调用(使用)函数
应用实例:判断一个数P是riv否at为e S偶ub数Text1_Change() Dim a As Integer a = Val(Text1.Text) Label2.Caption = ou(a) End Sub Function ou(a) As String If a Mod 2 = 0 Then ou = "该数为偶数！" Else ou = "该数为奇数！" End If End Function
End if End Founction
分析：自定义函数big用于求两个整数中的 较大数
private sub command1_click()
dim a1,a2 as integer
a1=val(text1.text)
• Private Sub Label1_Dblclick() • Picture1.Print "你双击我了，哈哈!" • Command1_Click • End Sub
• Private Sub Text1_Change() • Picture1.Print "你输入东西了，哈哈" • Command1_Click
符串函数：
Asc(x) asc(“A”)=65
Chr(x) chr(48)=“0”
Val(x) val(“170”)=170
Str(x) str(170)=“170”
Len(x) len(“asd”)=3
Mid(x,n,k)
如:mid(“abcde”,3,2)=“cd”
Fix(x)
fix(2.56)=2
演示“函数与过程调用工程中的函数调用(Form2)”
应用实例：在文本框text1和text2中输入两个整数，单击按钮 对象command1，在标签label1中显示这两个数的较大数。
Founction big(x,y) as integer if x>y then big=x else big=y
（A）0（B）2（C）3（D）4
4.4 过程与函数
一、概念： VB应用程序是按模块化的方式组成的，
每个模块完成一部分任务。
模块分成两种：1. 过程 2. 函数
过程：强调的是动作，比如显示一个对话框 MsgBox "你输入东西了，哈哈“
函数：强调的是值的计算，如求算术平方根，sqr(5)
二、过程的分类：
五、函数
函数也是一个程序模块，不同之处是函数执行完后会 返回一个函数值。函数的函数值是通过函数名返回的
五、函数
• （一）函数分为标准函数和自定义函数
1、标准函数：
（1）、常用数学函数：
Abs(x) Int(x) Sqr(x) Exp(x) Log(x) Sin(x) Cos(x) Tan(x)
（2）、类型转化函数和字
复习与回顾
1、For语句与Do语句的区别
（1）for语句：事先可知循环次数，通过次数控制 循环；循环体先执行后判断次数完否，至少执行一 次循环;控制循环次数的循环变量的值会按步长自动 变化，循环会自动结束。 （2）do 语句：事先可不知循环次数，通过条件控 制循环；条件先判断后执行循环体，循环次数可以 为0次；控制循环条件的主要变量的值必须在循环体 中改变，并要最终能终止循环。 2、For语句一定可以改成Do语句，反之不一定成立。
二、过程的分类：
（1）事件处理过程：当对象X上发生某个事件Y 时，需要执行一段程序来响应这个事件。
常用格式
sub 对象名_事件的标准名（参数表）
语句块 end sub
事件处理过程名
如：Private Sub Command1_Click() a = InputBox("请输入你的姓名:") MsgBox (a + "我读
• （1）、有以下程序段：
• For i = 1 To 3
• For j = 1 To 5
• s = i*j
• Next j
• Next i
• 则语句s = i*j 的执行次数 是
( A)
• （A）15（B）16（C）17（D）18
3、程序阅读
• （2）、有如下程序段： •x=1 •y=0 • Do While x<10 •x=x*2 • y = y +1 • Loop • 该程序段运行后，y的值为(D )
过程：将程序划分为一个个较小的逻辑单元， 每个逻辑单元构成一个过程。过程中的代码 被重复的调用。过程分为：事件处理过程和 通用过程。
$4.4 过程与函数
模块分成两种：1. 过程 2. 函数
• 过程：强调的是动作，比如显示一个对话框 MsgBox "你输入东西了，哈哈“
• 函数：强调的是值的计算，如求算术平方根，sqr(5)
2、自定义函数
自定义函数的格式：
Function 函数名（参数表）AS 类型名 语句块
（其中至少有一个语句是: 函数名=表达式） End Function
例: Function ou(a) As String If a Mod 2 = 0 Then
ou = "该数为偶数！" Else
ou = "该数为奇数！" End If End Function
End Sub
（2）通用过程（教材省略，不作要求）
三、事件处理过程
1、例：文本框1，内容改变事件 Private Sub Text1_Change() MsgBox "你输入东西了，哈哈“ End Sub
2、事件处理过程名=对象名_事件的标准名 对象名:文本框(Text)、命令按钮（Command）、
标签(label) 事件的标准名 单击(click)、双击(Dblclick)、
改变内容(change)、键盘按下（KeyPress) (参见教材P84表4.4.1) 4、事件处理过程以sub开始，并且以end sub结束
四、过程的调用
• Private Sub Command1_Click() • Dim a As String • Label2.Caption = ("请输入你的姓名:") • a = Text2.Text • If a <> "" Then • Picture1.Print (a + "我知道你了，哈哈!") • End If • End Sub