第8章-模块和VBA程序设计ppt.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-9：下面是对“学生信息”窗体中“学号”信息文本框的引用： Forms!学生信息!学号=“2006010105” Forms!学生信息![学 号]=“2006010105” 当需要多次引用对象时，可以使用Set关键字来建立控件对象的变量，这样处理很方便。 例8-10：要多次引用“学生信息”窗体中“姓名”控件的值时，可以使用以下方式： Dim StuName As Control Set StuName=Forms!学生信息!姓名 StuName=“刘磊” 例8-11：定义一个有11个数组元素的整型数组，数组元素为NewArray(0)至NewArray(10) Dim NewArray(10) As Integer 例8-12：定义一个有10个数组元素的整型数组，数组元素为NewArray(1)至NewArray(10) Dim NewArray(1 To 10) As Integer 例8-13：定义一个三维数组NewArray，共含有4×4×4（64）个数组元素。 Dim NewArray(3,3,3) As Integer 例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 例：根据用户从键盘输入的数据，判断输入字符的