第0809章模块和VBA.pptVIP

* 信息工程学院 * VBA程序设计基础5 VBA程序流程与控制语句 VB程序中的一行代码称为一条程序语句，是执行具体操作的指令。 书写规定 用续行符（一个空格后面跟一个下划线）将长语句分成多行。 注释语句 在代码中添加注释( Rem和’ ） 赋值语句 赋值语句用于指定一个值或表达式给变量或常数。 它通常包含一个等号（=）。例如： Sub Command1-Click() Dim strName As String Dim xinteger As integer Xinteger = 20 StrName=InputBox(What is your name?) MsgBox Your name is strName End Sub * 信息工程学院 * VBA程序设计基础6 VBA程序流程与控制语句 VB虽然采用事件驱动调用相对划分得比较小的子过程，但是对于具体的过程本身，仍然要用到结构化程序的方法，用控制结构控制程序执行的流程。 条件语句 If…Then…EndIf If...Then...Else…EndIf Select Case…End Select IIf函数 IIf函数是If语句的一种特殊格式，它的使用语法如下： IIf(条件，表达式1，表达式2) 作用是，先判断条件，如果条件为真，返回表达式l的值；否则返回表达式2的值。 * 信息工程学院 * VBA程序设计基础7 实例“登录窗体”创建（见08_2学生课程管理.mdb） 在“学生课程管理”系统中，设计一登录窗体，窗体界面如图。要求： 输入用户名和密码，如果用户名或密码为空，则给出提示重新输入 如果用户名或密码不正确，则给出错误提示，结束程序运行； 如果用户名和密码正确，则进入教学管理系统的“启动界面”窗体。 单击取消按钮，弹出确认对话框，根据用户操作决定是退出还是继续。 * 信息工程学院 * VBA程序设计基础8 实例“登录窗体”创建 确定按钮代码 Private Sub Command5_Click() ‘确定按钮代码 If Len(Nz(Me!txt1)) = 0 And Len(Nz(Me!txt2)) = 0 Then MsgBox 用户名和密码不能为空 Me.txt1.SetFocus ElseIf Len(Nz(Me!txt1)) = 0 Then MsgBox 用户名不能为空,请输入! Me.txt1.SetFocus ElseIf Len(Nz(Me!txt2)) = 0 Then MsgBox 密码不能为空,请输入! Me!txt2.SetFocus * 信息工程学院 * VBA程序设计基础9 Else If Me.txt1 = abc Then If UCase(Me.txt2) = XYZ Then MsgBox 欢迎使用学生课程管理系统, vbInformation, 成功 Else MsgBox 密码有误!非正常退出, vbCritical, Error DoCmd.Close End If Else MsgBox 密码有误!非正常退出, vbCritical, Error DoCmd.Close End If End If End Sub * 信息工程学院 * VBA程序设计基础10 取消按钮代码 Private Sub Command6_Click() If (MsgBox(是否要退出, vbOKCancel) = 1) Then DoCmd.Close End If End Sub * 信息工程学院 * VBA程序设计基础11 相关函数介绍 Nz（表达式）： 当表达式为Null时，返回0或者0长度的字符。 该函数数对可能包含 Null 值的表达式是很有用的。要使表达式即使在包含 Null 值时也能计算得到一个非Null 值，可使用 Nz 函数来返回 0、零长度字符串或一个自定义的返回值。 UCase(string) 小写转成大写，如果string包含Null，将返回Null。 只有小写的字母会转成大写；原本大写或非字母之字符保持不变。 * 信息工程学院 * VBA程序设计基础12 MsgBox函数和MsgBox语句 MsgBox的作用 是打开一个信息框，等待用户单击按钮，并返回一个整数告诉用户单击哪一个按钮。 MsgBox语句形式 MsgBox 提示[,按钮][