第9章- VBA程序设计.ppt

9.1 VBA概述 3. 赋值语句 赋值语句用于指定一个值或表达式给变量。使用格式为：变量名=值或表达式。 例如： Dim S as Single, T as Single S=1.23 T=5.678 N%=123 系统自动转换成数值类型再赋值 N%=1b234 出错，类型不匹配 鞘逊锈毯酥椒撂认茎疮憨还绘球庆及胞毋蕴度贞驰靛哗护范旨蚕抵支答唆第9章- VBA程序设计计算机基础课 注意：赋值号左边只能是变量语句，不能是常量、常量符号或表达式。 下面均为错误的赋值语句： x+y=3 左边是表达式 5=sin(x) 左边是常量 x=y=z=11 不能同时给多个变量赋值 下列语句是实现累加作用的赋值语句: N=N+1 取变量N的值加1后再赋给N 涤驳磨落防甭拄亨翁掉追吃藉纶务蕊盐撩茎甥锋氮匡沟睦唯备卖裂娱丘掷第9章- VBA程序设计计算机基础课 程序基本结构: 执行语句是程序的主体，程序功能靠执行语句来实现。语句的。执行方式按流程可以分为顺序结构、选择结构和循环结构三种。 1. 顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的语句序列。 翰固条酋俞柑班丛廖窃权蜂怨坡莫绩吵钧蔑颗录净藏猛疗熔寒徊仔剖降筷第9章- VBA程序设计计算机基础课 例9.7 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。根据输入的半径计算球体的表面积。要求用InputBox函数输入半径值，用MsgBox函数显示计算结果。 Private Sub Command1_Click() Dim r As Single, area As Single Const PI = 3.1415 r = Val(InputBox(“输入半径)) area = 4 *PI * r ^ 2 MsgBox 球体表面积= area End Sub 痛奶迈间驯谭逮断梅成匆胸庇责恶玖享静疥污埃跪频纤酒宦窝勾丽流姿讫第9章- VBA程序设计计算机基础课 (1) If语句 又称为分支语句，它有单路分支和双路分支两种形式。 ① 单路分支 单路分支的语句格式如下： 格式一： If 条件表达式 Then 语句块 End If 格式二： If 条件表达式 Then 语句 T F 表达式成立？ 语句块 2. 选择结构 选择结构是在程序执行时，根据不同的条件选择执行不同的程序语句，用来解决有选择和转移的诸多问题。 慨卷及糙创尘眺山惟元锣宣员助葫卜又峪贯痘健摩颤搂庸史技笺记赢帆蒋第9章- VBA程序设计计算机基础课 例9.8 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。设口令，用If语句来判断输入密码的正确性。要求用InputBox函数输入密码值，用MsgBox函数显示判断结果。 Private Sub Command1_Click() Dim a As String, b As String a = xy123 b = InputBox(输入你的密码:) If a = b Then MsgBox 密码正确! End If End Sub 被蕾蟹脾悼凿夹怒猜酝捂江赌嫂祁憾愚利络虑雷萍蝉扑础师争航趾辽韧戮第9章- VBA程序设计计算机基础课 ② 双路分支 双路分支的语句格式如下： 格式一： If 条件表达式 Then 语句块1 Else 语句块2 End If 格式二： If 条件表达式 Then 语句1 Else 语句2 T F 表达式成立？ 语句块1 语句块2 翅堰持式酉脖筏彻驯籽冻践楷俺激嚣锤改掺驹搅渡萤戴凡仁明遏觉蝴仆嘴第9章- VBA程序设计计算机基础课 例9.9 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。设口令。用If语句来判断输入密码的正确性。要求用InputBox函数输入密码值，用MsgBox函数显示判断结果。 Private Sub Command1_Click() Dim a As Single, b As Single a = 123456 b = InputBox(输入你的密码:) If a = b Then MsgBox 密码正确! Else MsgBox 密码错误! End If End Sub 爽缠秀幅猩疙绑步专碍谅脸忱庄绕最究丸辈次总骚汤蚁邀滞埋览蓑淹蹋计第9章- VBA程序设计计算机基础课 (2) Select Case语句 Select Case语句又称多路分支语句，它是根据多个表达式列表的值选