总结 定义格式: Public function函数名(形参列表)[As数据类型] 定义变量或常量 语句序列 函数名=表达式 End Function 2函数的调用:格式1:变量=过程名([实参表]) 注意: 在函数体内,函数名最少赋值一次 °形参列表没有值,只代表参数的个数、类型、位置 °函数过程无参数,括号不能省略
总结 Public Function 函数名（形参列表)[As 数据类型] 定义变量或常量 语句序列 函数名 = 表达式 End Function 注意： • 在函数体内，函数名最少赋值一次 • 形参列表没有值，只代表参数的个数、类型、位置 • 函数过程无参数，括号不能省略 格式1：变量 ＝ 过程名（[实参表]）
§8.2.2子过程的定义及其调用 1.定义方式 (1)进入代码窗口 按定义格式敲入Sub及子程序名 (2)在“工具”->选择“添加过程” 在对话框中选择“子过程”,并输入过程名 2定义格式 Public| Private]Sub过程名(形参列表) 语句序列 End sub (变量名[As类型】变量名[As类型]
§8.2.2 子过程的定义及其调用 ⑴ 进入代码窗口: • 按定义格式敲入Sub及子程序名. ⑵ 在“工具”-->选择“添加过程” -->在对话框中选择“子过程” ,并输入过程名 (变量名 [As 类型,] 变量名 [As 类型] . . .) [Public|Private] Sub 过程名（形参列表） 语句序列 End Sub
例:编写一个计算一个一元二次方程根的S山b子过程 Public sub result( a!, b! cl, x1l, x 2 Dim t As single t=b^2-4*ac x1=(-12b+sqr(t)/(2*a) X2=(-12b-sqr(t)(22a) End sub 总结: 形参应是变量 子过程名无值,不要在子过程中赋值 子过程的应用范围比函数过程范围广
Public Sub result( a!,b!,c!,x1!,x2!) Dim t As Single t = b^2-4*a*c x1=(-1*b+sqr(t))/(2*a) x2=(-1*b-sqr(t))/(2*a) End Sub 总结： • 形参应是变量 • 子过程名无值，不要在子过程中赋值 • 子过程的应用范围比函数过程范围广
§8.2.2子过程的定义及其调用 3.调用:两种格式 无实参时,括号省略 Ca11子过程名[(实参列表 子过程名[实参列表] Public Sub command1 click Dim t As Single al=result al, bl, cl, yl, y2 call result(al, b1, cl, y1, y2) End sub
：两种格式 • Call 子过程名 [（实参列表）] • 子过程名 [实参列表] 无实参时，括号省略 Public Sub command1_click() Dim t As Single a1=5:b1=4:c1=3 call result(a1,b1,c1,y1,y2) End Sub §8.2.2 子过程的定义及其调用