PowerPoint 多媒体交互课件制作（VBA编程初步）

Else A=C+2 Edn if

?A>B And C

?表达式1 或 表达式2 是指一系列的VBA语句 ，可以是一句，也可以是多个语句。

3.语句格式三：（多条件判断） If 条件1 Then 表达式1

ElseIF 条件2 Then 表达式2 ... Else

表达式n End If

例子4：判断学生成绩

Private Sub CommandButton3_Click()

Dim score As Integer '定义变量score

score = InputBox(\输入学生成绩(注意不要输入非数字。\'输入成绩对话框 If score >= 90 Then '以下是判断语句，如果score >= 90 MsgBox (\该生成绩评为：优秀\'则显示“优秀”对话框 ElseIf score >= 80 Then '如果score >= 80 MsgBox (\该生成绩评为：良好\'则显示“良好”对话框 ElseIf score >= 60 Then '如果score >= 60 MsgBox (\该生成绩评为：及格\'则显示“及格”对话框 Else '其它条件

MsgBox (\该生成绩评为：不及格\'则显示“不及格”对话框 End If '判断结束 End Sub

4. Select Case ...End Select 语句 格式：

Select Case 变量 Case 值1 语句段1

Case 值2 语句段2

.

.

.

Case Else 语句段n End Select

这个结构语句，是对“变量”分别判断其值，当为“值1”时，即执行“语句段1”；当为“值2”时，即执行“语句段2”；当所有的值都不符合时，则执行“语句段n”，需要判断多少个值，就编写多少个Case 。

第三章 第三节 过程与函数

过程是构成程序的一个模块。简单地说，过程就是为完成一定任务而编的一段程序，用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程：Sub 过程、Function函数、Property属性过程和Event事件过程。 在做课件过程中，一般情况下，我们可能用到的是Sub过程及Function函数。

一．Sub过程

Sub过程又称子过程。 语句结构： Sub 过程名() ... End Sub

下面举例一个简单的过程，完成一个基本的功能。

实例3_5a:利用输入、输出函数，输入你的姓名，然后再输出你的名字信息。 Sub yourname() '过程名称是yourname，过程开始 Dim name1 As String '定义一个变量name1

name1 = InputBox(\请输入你的姓名：\'显示输入对话框，当用户输入姓名后的值赋给变量name1

MsgBox \你的姓名是:\& name1 '再用输出对话框，输出你的姓名 End Sub '过程结束

程序代码见文件：3-5过程函数调用.rar 。播放课件看看效果如何。

过程的执行（调用）过程：打开文件可以见到，在VBA代码中，有一个过程Sub yourname() ,那如何调用（执行）它的功能呢？在课件中还须设置一个控件“按钮”，这个控件代码（Call yourname），就是调用了这个过程的。所以，在课件播放时，点击“按钮”就可以调用这个过程了。

Sub 过程可以带参数。在过程名后面的（）里加上参数。在后面通过实例说明如何使用吧。

实例3-5b:求n个数的求和及阶乘。程序运行时，要求输入一个最大的整数，然后分别计算1至n的和及阶乘，把结果输出信息框(见下面介绍）。

二．Function函数

VBA中包含很多内部函数，例如常用的数学函数（下面会讲解）。这里指的Function函数实际上是 用户自己定义的一段代码，来完成特定的运算并返回结果。参数传递也两种：按值传递(ByVal)和按地址传递(ByRef)。 语句结构：

function 函数名（参数 As 参数类型） ...... End Function

例子：建立一个函数用于计算阶乘，参数和返回值都是Double值。

Function factorial(num As Double) As Double '建立阶乘函数，函数名是factorial

Dim i As Double '定义变量 Dim temp As Double '定义变量

temp = 1

For i = 1 To num '循环开始

temp = i * temp '每循环一次，将数与乘积相乘,temp=1*2*3*...*num Next i '循环结束

factorial = temp '将循环阶乘结束的值赋给factorial End Function '函数结束

第三章 第四节 VBA内置函数

VBA应用程序中可以使用以下几种内置函数：数学函数、字符串函数、日期和时间函数、类型转换函数、逻辑测试函数和输入输出函数。使用这些函数可以充分发挥VBA语言功能，可以帮助程序代码设计和减少代码的编写工作，在实际应用中起到事半功倍的效果。尤其在制作数学课件过程中，运用数学函数会令课件增强科学函数计算机功能。

一．测试函数

IsNumeric(x) ?是否为数字, 返回Boolean结果，True or False IsDate(x) ?是否是日期, 返回Boolean结果，True or False

IsEmpty（x） ?是否为Empty, 返回Boolean结果，True or False IsArray(x) ?指出变量是否为一个数组。

IsError(expression) ?指出表达式是否为一个错误值

IsNull(expression) ?指出表达式是否不包含任何有效数据 (Null)。 IsObject(identifier) ?指出标识符是否表示对象变量

二．数学函数

Sin(X)、Cos(X)、Tan(X)、Atan(x) 三角函数，单位为弧度 Log(x) 返回x的自然对数 Exp(x)返回 ex Abs(x) 返回绝对值

Int(number)、Fix(number) 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8

Sgn(number) 返回一个 Variant (Integer)，指出参数的正负号 Sqr(number) 返回一个 Double，指定参数的平方根

VarType(varname) 返回一个 Integer，指出变量的子类型 Rnd（x）返回0-1之间的单精度数据，x为随机种子

三．字符串函数

Trim(string) 去掉string左右两端空白 Ltrim(string) 去掉string左端空白 Rtrim(string) 去掉string右端空白