第8章模块和VBA程序设计.pptVIP

第8章 模块和VBA程序设计 第8章 模块和VBA程序设计 第8章 模块和VBA程序设计 8.1 模块的概念 8.1 模块的概念 8.1 模块的概念 例：简单的计算 例8-1：下面是一个简单的验证密码的Sub过程。 Sub CheckPwd( ) Dim Pwd As String Pwd=InputBox(“请输入密码！”) If Pwd=”123456” Then MsgBox ”密码正确，欢迎进入系统！” Else MsgBox ”密码错误！” End if End Sub 例8-2：下面是编写求圆面积的函数过程。 Function area(r As Single) As Single If r = 0 Then MsgBox 圆半径必须是正数！ End If area = 3.14159 * r * r End Function 例8-3：定义一个学生信息数据类型。 Type NewStudent StuNo As String*8 StuName As String StuSex As String*1 StuAge As Integer EndType 例8-4：定义一个学生信息类型变量NewStud。 Dim NewStud As NewStudent NewStud.StuNo= NewStud.StuName=“柳志杰” NewStud.StuSex=“女” NewStud.StuAge=20 可以用关键字With简化程序中重复的部分。例如，为上面NewStud变量的赋值语句可以修改为如下形式： With NewStud StuNo= .StuName=“柳志杰” .StuSex=“女” .StuAge=20 EndWith 例8-20：常用数学函数举例如下： Abs(-7)=7 Exp(2)=7.389 056 098 930 65 Log(6)=1.791 759 469 228 05 Sqr(25)=5 Int(6.28)=6，Fix(6.28)=6 Int(-6.28)=-7，Fix(-6.28)=-6 Sin(90*3.14159/180) Cos(45*3.14159/180) Tan(30*3.14159/l80) Int(100*Rnd) Int(101*Rnd) 例：完善鸡兔同笼，当算出的数据为小数时，不输出 例：完善鸡兔同笼，当算出的数据正确时输出，错误时提醒 Dim x As Integer x=MsgBox(“真的要退出系统吗？”,1+64+0, “信息提示”) If x=VbOk Then MsgBox “你单击了确定按钮！”,0+64+0, “信息提示” Else MsgBox “你单击了取消按钮！”,0+64+0, “信息提示” End If 方法二： Dim x! X=inputbox(“x=”) If x0 Then y=Sqr(x) ElseIf x=0 Then y=0 Else y=Abs(x) End If Msgbox y 例：根据用户从键盘输入的数据，判断输入字符的类型。 例：将百分制成绩按要求转换成相应的等次输出。 例8-45：用Do While…Loop语句计算1～100之间数的和。 Dim i As Integer Dim Sum As Integer i=1 Do While i=100 Sum=Sum+i i=i+1 Loop 对比： 对比： 对比： 例8-53：对“学生信息表”窗体上的“姓名”字段控件进行判断，如果控件值为Null，则使用Nz函数将Null值转换为空字符串。 Dim fm As Form,ctl As Control Dim strResult Set fm=Forms!学生信息表 ‘返回指向test窗体的Form对象变量 Set ctl=fm!姓名 ‘返回指向tValue的控件对象变量根据控件的值选择结果 strResult=IIf(Nz(ctl.Value)= “”，“学号字段值不存在!”, “学号字段值为” cfl.Value