5．3 赋值语句及 InputBox、MsgBox 函数

1 赋值语句：P59

一般格式： var=< 表达式 >

其中：var 可以是变量名或属性名。

功能：将表达式的值赋给“=”左边的变量（或为某个对象设置某属性值）。

使用说明：■ “=”左边的变量和右边的表达式的值的类型要一致。 程序举例：已知半径，求圆面积 已知三边长，求三角形面积P65

2 不同数据类型数据的赋值：P59

3 InputBox 函数：P60

InputBox 函数：用来接受用户通过键盘输入的数据。 InputBox 的使用形式：(P60)

v=InputBox(prompt[,title][,default][,x,y][,helpfile,context]) 其中： v ：可为 变体变量、字符串变量、数值变量。

功能：执行本语句，调用InputBox 函数时，将在屏幕上出现一个带有提示信息的对话框，当用户从对话框的用户编辑框中输入数据并按回车键（或单击确定按钮））后，系统则把输入的数据赋给变量v 。或按[Esc]键或取消按钮，则把0 或空串赋给变量 v 。

用户可通过设置InputBox 函数的参数来定制提示信息对话框的形式。具体内容见P61

例：P61

2、MsgBox 函数：向用户发布提示信息，并要求用户作出必要的响应。 函数格式：（P61） 例： P63

5．4

分支结构与分支结构语句

1 if –then 结构：(可实现单分支)

一般格式：

格式一： if e then 语句

格式二： if e then

语句组 end if

其中：e 为条件，其形式可为：逻辑变量、关系表达式或逻辑表达式。

功能：执行本语句时，判断 e 的值，若为 true ,则执行then 后的语句（语句（对此功能的理解可看 P64图4-7 ）

组），若为 false ，则执行本 if 语句（或end if ）下面的语句。

程序举例： 用InputBox 输入一个数，若此数大小0，则在窗体上将它显示出来。 Private Sub Form_click() Dim x As Integer

x = InputBox(\请输入一个数\

If x > 0 Then Print x End Sub

2 if-then-else-end if 结构：（可实现两分支）

一般格式：if e then

A 语句组 Else

B 语句组 End if

功能：执行本语句时，先判断 e 的值：

e为 true : 执行A语句组后转end if 下一条语句继续执行。 e 为 false: 执行B语句组后转end if 下一条语句继续执行。

(对此功能的理解可参考P58 图4-3 （b）) 程序举例： 教材P65、实验指导书P43 实验5-3

3 if-then-else if 结构：（可实现多分支）

一般格式：if e1 then A1语句组

Else if e2 then A2语句组 Else if e3 then

A3语句组

……

Else if en then An语句组 else End if

A(n+1)语句组

功能：执行本语句时依次判断各条件的值，

若有 ei 的值为 true ,则执行相应的 Ai 语句组后转end if 的下一条语句去继续执行。

若所有ei 的值均为 false ,则执行 else 后的 A(n+1) 语句组后转end if 的下一条语句去继续执行。

（对此功能的理解参考教材P66 图4-8）

一般来说，ei中最多只有一个值为 true 。 程序举例：教材 P66 例 4-2

4 Select-Case-End Select 结构语句：（可以实现多分支结构）P66

一般格式：Select Case e Case c1

A1 语句组

Case c2

A2 语句组 ……

Case cn An 语句组 Case Else

A(n+1)语句组 End Select

其中： e ： 测试表达式，形式可为：算术表达式 或 字符表达式。 c1,c2,…：测试项。形式可为以下三种： ◆ 具体取值：常量1，常量2，…..

◆ 连续的数据范围： 下界值 to 上界值 例如：8 to 12 B to H 等等。

◆ 满足某个判决条件： Is <关系表达式> 常量

例如： Is>20 Is<=‖p‖ 其中Is 代表e (测试表达式)的值。 程序举例：教材P67 例4-2