勇闯天涯

第5部分 VB控制结构

一、控制结构

顺序结构：按照书写顺序，先写先执行（不是指事件过程的执行先后）

选择结构：根据条件成立与否，决定语句是否执行

循环结构：根据条件，反复执行

二、顺序结构

Vb程序是由语句构成的

1、赋值语句

格式：变量名 = 表达式

      对象名.属性名 = 表达式

例子：a%=1000

         Form1.backcolor = vbred

请记住：算法1：交换算法

       Private Sub Command1_Click()

Dim x%, y%, t%

x = InputBox("请输入一个数字")

y = InputBox("请输入一个数字")

Print x, y

t = x

x = y

y = t

Print x, y

End Sub

请记住：赋值语句要求左右类型一致！

当类型不一致时，左有类型以左为主，左无类型类型（variant）以右为主

例子：（隐式转换）

       1）小数向整数：四舍六入

         Dim a%

         a = 4.5                             --------a中是4

       2）字符串和数字

      Dim a%

      a = “1234”           -------a中1234

         dim b$

         b = 456                            -------b中“456”

       3）逻辑和数值

      Dim a%，b%

      a = true                            -------a中-1

      b = false                          -------b中0

      dim x as boolean，y as boolean

      x = 100                            -------x中true

      y = 0                               -------y中false

     规律：true-----> -1  false ------->0  非0----->true  0----->false

例子：a = “abc”  ------左无类型以右为主

2、注释语句（语句绿色，机器不执行）

‘：单独成行或者放在语句后面

Rem：单独成行

记住：做程序改错题时，将？更改为正确代码后，删除注释符

3、结束语句：end   -------结束vb运行的程序

三、选择结构（单分支、双分支、多分支）

1、单分支

格式

       单行：if <表达式> then <语句>

       多行：if <表达式> then

<语句>

          End if

功能：当表达式的值为true，执行语句

说明：<表达式>的形式

1）  关系表达式：if x>y then

2）  逻辑表达式：if x>y and x>z then

3）  数值表达式：if 2*3 then

例题：交换x和y中的值，保证x中的值永远大于y中。

       Private Sub Command1_Click()

Dim x%, y%, t%

x = InputBox("请输入一个数字")

y = InputBox("请输入一个数字")

Print x, y

If x < y Then

    t = x

    x = y

    y = t

End If

Print x, y

End Sub

2、双分支

格式：

       单行：if <表达式> then <语句1> else <语句2>

       多行：if <表达式> then

<语句1>

else

<语句2>

               End if

功能：表达式的结果为true执行语句1，否则语句2

例题1：通过键盘输入2个数据，求最大值（算法2：求最值）

Private Sub Command1_Click()

x = Val(InputBox("请输入一个数据"))

y = Val(InputBox("请输入一个数据"))

If x > y Then

    Print x

Else

    Print y

End If

End Sub

Private Sub Command1_Click()

Dim x%, y%

x = InputBox("请输入一个数据")

y = InputBox("请输入一个数据")

If x > y Then

    Print x

Else

    Print y

End If

End Sub