vb选择结构select

选择结构

一、单分支的if语句

1、格式

[1] If 表达式 Then

语句块

End if

文案大全

[2] If 表达式 Then语句块

2、功能：

3、说明：

（1）“表达式”一般为关系或逻辑表达式。

文案大全

（2）“语句块”可以是任意多个语句，只不过“格式[2]”中的多个语句之间必须用：隔开，书写在同一行。此时，“End if”可以省略。

4、举例：

文案大全

例1：任意读入两个整数，从小到大输出这两个数。

Private Sub Command1_Click()

Dim a As Integer, b%

a =InputBox("请输入一个整数：")

b = InputBox("请输入一个整数：") 文案大全

If a > b Then Print b; a End If

If b >= a Then Print a; b End If

文案大全

End Sub

5、InputBox函数

（1）简单格式

InputBox("提示信息") （2）使用格式（赋值语句）

文案大全

变量= InputBox("提示信息") （3）功能：从键盘上接受一个数据，然后赋值给某个变量（即读入一个任意值，保存到某变量中。

（4）用InputBox函数输入的数据默认为字符型，但由于赋值语句的特点“右

文案大全

边服从左边”，通常会自动转换成相应类型值之后再赋值给变量。

例如：

Private Sub Command1_Click() 'a,b不定义就使用，被认为是变体型

文案大全

a = InputBox("请输入一个整数：")

b = InputBox(请输入一个整数：") If a > b Then Print b, a

If b >= a Then Print a, b

End Sub

输入的是“9”和“12”

文案大全

则会被当成字符串"9"和字符串"12"，赋值给a和b，而字符串按其ASCII码值比较大小（字典序）。

因此，“变量最好先定义再使用”二、双分支if语句

文案大全

1、格式

[1] If 表达式 Then

语句块1

Else

语句块2

End if

文案大全

[2]

If 表达式 Then 语句块1 Else 语句块2

2、功能

3、说明

文案大全

格式[1]中Else独立占一行！

4、举例

改写上例：

Option Explicit

Private Sub Command1_Click() 文案大全

Dim a%, b%

a = InputBox("请输入一个整数：")

b = InputBox("请输入一个整数：") If a > b Then

Print b, a

Else

文案大全

Print a, b

End If

End Sub

[法二]让a中存放较小数，b中存放较大数。

Option Explicit

文案大全

Private Sub Command1_Click()

Dim a%, b%, t As Integer

a = InputBox("请输入一个整数：")

b = InputBox("请输入一个整数：") If a > b Then '交换二者的值t = a

文案大全

a = b

b = t

End If

Print a, b

End Sub

*重要基本算法：两数交换借助第三数。文案大全

类似于两水杯交换其中的内容，借助第三个空杯子，最终空杯子依然是空的。但是，中间变量t却保存了a或b的值。只是没用。

例2：任意读入3个整数，从小到大输文案大全

出这3个数。

[算法提示：让a中放最小数，c中放最大数]

Option Explicit

Private Sub Command1_Click()

Dim a%,b%,c%,t%

文案大全

A=inputbox(“:”) b=inputbox(“:”) c=inputbox(“:”) if a>b then

t=a:a=b:b=t

end if

文案大全