大学程序设计导论,程序设计导论5

9)
End Function Dim celsiustemperature as single Celsiustemperature=Ftoc(80)
建立函数
语法 [accessibility] Function _ functionName([arguments]) As returnType …………….
程序设计导论
第一章：计算机程序介绍 第二章：脚本简介 第三章：数据和变量 第四章：使用程序逻辑 第五章：使用过程和函数 第六章：开发用户界面 第七章：数据处理简介 第八章：编程方法 第九章：软件开发过程简介 第十章：进阶学习目标
第五章 使用过程和函数
使用过程
使用函数
过程和函数形成程序的整体部分。它们代表程序的 一个逻辑单元. 过程：在程序中可执行代码的语句。这段代码吧相 关的语句组合起来以实现一个任务。 包括声明语句和END语句。 类型：Sub和Function 过程调用：从代码中其他某处调用过程
Sub Main()
Dim fileName As String 'Dim length As Integer
fileName = InputBox("输入完整文件名是")
fileName = Left(fileName, Len(fileName) - 4) MsgBox("去除后缀的文件名是" & fileName)
随堂练习 2
在 中，编译并执行下列代码，结果如何？ Function FuncA(ByRef i as Integer,ByVal j as Integer) As Integer i = i*j return i End Function sub main() dim i as Integer dim j as Integer i=3 j=4 i = FuncA(i,j) MessageBox.Show(“i=”& i) End Sub A．编译失败 B．编译成功，运行时输出内容为“i=3”的对话框 C．编译成功，运行时输出内容为“i=4”的对话框 D．编译成功，运行时输出内容为“i=12”的对话框
End Sub
End Module
向过程传递数据
5.1.4 向过程传递数据
调用过程将变量、常数和表达式传递给过程 传递给过程的值称为参数 语法
i=i*j i=funcA(I,j)
[ByVal|ByRef] [ParamArray] argumentname As datatype
示例 使用过程
代码
Module Module1
一个消息框中显示“Control Sub Main() '示范一个子程序调用另一些子程序 passed to procedureB”然后在另外 一个消息框中显示消息“Control procedureA() passed to procedureA”
End Sub
Sub procedureA() Call procedur 为一个String 类型变量， 值为”CustomerName”。调用如下语句后， 字符串MyStr 的值是什么？(注：””代表零 长度的字符串) dim MyStr as String MyStr = Left(s,5) A．”” B．”custo” C．”Custo” D．”CustomerName”
调用语法
调用Function 过程时，不一定要使用其返回值，如 果不使用返回值，则执行函数的所有操作，但忽略 返回值。常常使用这种方法调用Msgbox MsgBox("Control passed to procedureB")
Module Module1 思考：如果把 Sub Main() 黑色部分换成 Dim x As Integer 红色代码，结 Dim y As Integer 果会是怎样的 Dim Testaddition As Integer x = InputBox("第一个数字是") /inputbox("第一个数字是“&x) y = InputBox(“第二个数字是”) / inputbox(“第二个数字是“&y) Testaddition = Sum(x, y) MsgBox("两数和是 " & Testaddition) 第一个数字是0 第二个数字是0 End Sub 两数和是 Public Function Sum(ByVal nNum1 As Integer, ByVal nNum2 As Integer) As Integer Return (nNum1 + nNum2) 初始化了inputbox但没对其赋值 则默认为0 End Function End Module
customername = InputBox("what is your name?")
length = Len(customername) MsgBox(length)
End Sub
End Module
用Len和Left函数一起用于文件的扩展名（最后4个 字符）
fileName = Left(fileName,Len(fileName)-4)
随堂练习 5
程序中，s 为一个String 类型变量， 值为”CustomerName”。调用如下语句后， 变量MyLength 的值是什么？(注：””代表 零长度的字符串) dim MyLength as Integer MyLength = Len(Left(s,20)) A．0 B．8 C．12 D．20
End Sub
回顾
经过本章的学习，我们了解了下列的知识和内容。 解释如何使用过程 解释如何使用函数
实验 识别函数并向过程传递参数
练习 1 识别函数 练习 2 向过程传递参数
随堂练习 1
在 中，有以下代码： Sub SubA() call SubB() MessageBox.Show(“Message In SubA”) End Sub Sub SubB() MessageBox.Show(“Message In SubB”) End Sub 那么执行call SubA()后，系统输出为： A．只显示“Message In SubA”对话框 B．只显示“Message In SubB”对话框 C．显示“Message In SubA”对话框，然后显示 “Message In SubB”对话框 D．显示“Message In SubB”对话框，然后显示 “Message In SubA”对话框
ProcedureA先将控制 传递给 ProcedureB
MsgBox("Control passed back procedureA")
End Sub
Sub ProcedureB() MsgBox("Control passed to procedureB")
End Sub
End Module
使用过程
End Sub
Sub procedureA() Call procedureB()
ProcedureA先将控制 传递给 ProcedureB
MsgBox("Control passed back procedureA")
End Sub
Sub ProcedureB() MsgBox("Control passed to procedureB")
MsgBox(mystring)
newstring = Trim(mystring) MsgBox(newstring)
End Sub
End Module
Len函数的调用
Module Module1
Sub Main()
Dim customername As String Dim length As Integer
使用过程
使用函数
使用函数
函数的定义 什么是预定义函数
5.2 使用函数
建立函数
函数的使用 课堂练习 使用函数
函数的定义
Function 过程向调用过程返回值
示例
5.2.1 函数的定义
Function FtoC(ByVal temperature As Single)_ As Single 'Convert Fahrenheit to Celsius Return (temperature - 32.0) * (5 /
5.2.3 建立函数
Return expression 示例 End Function
Public Function Sum(ByVal nNum1 As Integer, _ ByVal nNum2 As Integer) as Integer Return (nNum1 + nNum2)
End Function
Function FuncA(ByRef i as Integer,ByVal j as Integer) As Integer i = i*j
return i
End Function sub main()
dim i as Integer
dim j as Integer i=3 j=4 i = FuncA(i,j) MessageBox.Show(“i=”& i) End Sub
5.1.5 示例 使用过程
Public Sub Button_Click() ……….. Bonus(nSal) End Sub Private Sub Bonus(ByVal salary as Integer) ……….. MessageBox.Show(……) End Sub
输出
第五章 使用过程和函数
Private Sub AboutHelp( )
MessageBox.Show("MyProgram V1.0", _ "MyProgram Help")