第8章模块和VBA编程.pptVIP

例8.2 利用随机函数，设计一个“猜数字”游戏，如图8.13所示，用户从键盘输入1～6之间的任意数字，看是否和电脑随机出现的数字相同。 8.3.7 输入输出函数和过程 VBA与用户之间的直接交互是通过InputBox()函数、MsgBox()函数和MsgBox过程进行的。 1. InputBox(prompt［,title］［,default］［,xpos］［,ypos］) 函数 InputBox()产生一个作为输入数据界面的对话框，等待用户输入数据或按下按钮，并返回所输入的内容，返回值是String类型的。 注意：每执行一次InputBox()只能输入一个数据 2.MsgBox(msg［,type］［,title］) 函数 MsgBox()函数可以向用户传送信息，并可通过用户在对话框上的选择，接收用户所作的响应，返回一个整型值，以决定其后的操作。 MsgBox Msg［,type］［,title］过程 MsgBox语句没有返回值，因此常被用于简单的信息显示 . 8.4 VBA的流程控制 VBA程序是由大量语句构成，一个语句是能够完成某项操作的一条命令。 VBA程序语句按其功能不同分为2类： 一是声明语句，用于变量、常量、过程定义 二是执行语句，用于执行赋值操作、调用过程、实现各种流程控制 执行语句又分为3种： 顺序结构、分支结构、循环结构 8.4.1 顺序控制 1. VBA语句书写规则 VBA源代码不区分字母的大小写 语句书写自由 同一行上可以写多个语句，语句间用冒号“：”分隔； 一个语句可分为若干行书写，但须在行后加续行标志(空格加下划线“_”)。 2. VBA的基本语句 赋值语句 格式：目标操作符=源操作符 注释语句 以关键字Rem开头引导的注释内容，可添加到程序任意位置。 以 ‘ 引导的注释内容，可直接出现在语句后面。 结束语句 格式：End 当在程序中执行End语句时，将终止当前程序，重置所有变量，并关闭所有数据文件 Private Sub Area() Rem 定义长、宽两个变量 Dim length As Single 长方形的长 Dim height As Single 长方形的宽 Rem 通过输入框输入长与宽，并将值变成数值型 length = Val(InputBox(请输入长方形的长)) height = Val(InputBox(请输入长方形的宽)) a = length * height 计算面积 MsgBox Str(a), vbDefaultButton1, 面积 End Sub 8.4.2 条件语句 1. 单行结构条件 格式： If 条件 Then语句1[else 语句2] 解释： 如果条件成立，则执行语句1，否则执行语句2 若没有否则，则else 语句2可省略。 2. 块结构条件 格式： If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句块2] [ElseIf 条件3 Then 语句块3] …… [Else 语句块n] End If 比如：判断考试成绩（score） 如果0score60,则显示“不及格” 如果60=score70,则显示“及格” 如果70=score80,则显示“中等” 如果80=score90,则显示“良好” 如果90=score=100,则显示“优秀” 3. 多分支结构 格式：Select Case 测试表达式 Case表达式列1 [语句块1] [Case表达式列1 [语句块1]] …… [Case Else [语句块n]] End Select 通常是变量或常量，可以是数值或字符串表达式 可称为“测试表达式”的值域 4. IIf函数和Choose函数 IIf( 条件,True部分 ,False部分) 当条件为真时，返回True部分的值；当条 件为假时，返回False部分的值。 条件是逻辑表达式或关系表达式。 如： y=IIf( x=0,0,1/x) Choose( 变量,值为1的返回值,值为2的返回值,…,值为n的返回值) 程序设计： 例8.3 给出a,b,c的值，问它们能否构成三角形的3边。如能构成三角形，计算出此三角形的面积。 8.4.3 循环结构 1. for …next格式： For 循环变量=初值to 终值 [step 步长] [循环体] [Exit For] Next [循环变量] 循环变量必须为数值类型 循环次数= Int((终值-初值)/步长)+1 例:求自然数n的阶乘. 2. While… Wend 格式 While 条