VB资料之家 计算机二级考试一扫空 (36) 下载本文

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