第8节 vba编程基础.ppt

第8章 VBA程序设计 8.1 VBA概述 8.2 VBA编程基础 8.3 程序流程控制 3、输入输出语句 Inputbox函数 dim strinput as string strinput=inputbox(“请输入学生姓名”) Msgbox函数 Msgbox（“欢迎你”strinput） Debug窗口 视图-立即窗口 print方法是用“；”或“$”连接若干个输出项 程序流程控制结构 顺序结构 例：请输入圆的半径，计算圆的面积 分支结构 读程序： Sub grade() Dim cj As Integer cj = InputBox(“请输入成绩:) If cj 90 Then msgbox(“优秀”) Else If cj 80 Then msgbox(“良好”) Else If cj 70 Then msgbox(“中等”) Else If cj 60 Then msgbox(“及格”) Else msgbox(“不及格”) End if End if End if End if End Sub 读程序： 循环结构 读程序： 在Visual Basic中引用空间和属性 有时，用户需要在表达式中引用某个控件或属性值，则可以直接使用它们的名字进行调用。例如，要引用“学生”窗体上的“学生ID”文本控件，则可以在表达式中输入“Forms！学生！[学生ID]”。如果数据库对象或空间的名字中有空格，则必须用方括号将名字括起来。如果“学生”窗体是当前活动窗体，可以用Me代替标识符引用该控件（Me！Name）。 惊叹号（！）操作符标志随后的项目是用户自定义的内容，如果后面的项目是Access定义的内容，则用点符号（.）分隔。比如，要引用“学生”窗体中“学生ID”文本控件的“Enabled”属性，则输入“Forms！学生！[学生ID].Enabled”。 * 例：输入一个数，如果该数大于等于0，则求出其平方根并显示在立即窗口中，否则显示消息“这个数无平方根!” 。 Public Sub ex2() Dim a As Integer a = InputBox(“请输入一个数:”) If a=0 Then Debug.Print sqr(a) Else msgbox(“这个数无平方根!”) End If End Sub * （3）If…Then…ElseIf语句 语句格式为： If 表达式1 Then 语句序列1 ElseIf 表达式2 Then 语句序列2 … [ElseIf 表达式n Then 语句序列n Else 语句序列n+1 ] End If 说明： 运行时，从表达式1开始逐个测试条件，当找到第一个为True的条件时，即执行该条件后所对应的语句块。 * 例：编程根据输入的学生成绩，评定其等级。标准是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以下“不合格”。 Public Sub ex3() Dim x As Integer x = InputBox(请输入成绩:) If x = 90 Then Debug.Print 优秀 ElseIf x = 80 Then Debug.Print 良好 ElseIf x = 70 Then Debug.Print 中等 ElseIf x = 60 Then Debug.Print 及格 Else Debug.Print 不及格 End If End Sub Private Sub Command1_Click() Dim a, k As Integer a = InputBox(请输入a的值:) If a 60 Then k = 1 ElseIf a 70 Then k = 2 ElseIf a 80 Then k = 3 ElseIf a 90 Then k = 4 End If