VB编程序的基本结构

算术表达式 If 5+3 Then j=j+2 If num1+num2*10 Then sum=sum-num3
单分支结构举例
例：将保存在变量a和 b中的整 数按升序排列。（即a的值一定 不大于b的值）
分析：a<b时，两者值不变 a>b时，两者的值交换
2
a
1
If b > a Then t=a a=b b=t End If
本书目录
8
例 创建一个输入对话框。如下图所示：
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click
Dim myvalue As Object myvalue = InputBox("请输入数值，数值在1~3之间！", "输入提示", "1")
思考：该处续行符 能否去掉？
Dim x As Single x = Val(InputBox("输入实数x", "计算分段函数的值")) If x <= 4 Then MsgBox("f(x)=" + Str(1 - x * x)) Else _ MsgBox("f(x)=" + Str((x - 4) ^ 0.25))
b
3
t
也可改写成行IF语句，如下所示，
If b > a Then t = a ： a = b： b = t
双分支结构
多行形式 If 表达式 Else Then
T Then 语句块1
If
表达式
语句块1
语句块2
F Else 语句块2
End If
单行形式
If 表达式 Then 语句块1 Else 语句块2 当表达式的值为True时，执行Then后面的语句块1，否则执行 Else后面的语句块2
表达式列表 i是下面三种形式之一：
例:“a”to”z”
较小的数值要出现在 To 之前
例：Is < 60 例：is >=30
表达式（配合关系运算符）
4. 以上三种形式的以逗号分隔的 任意组合－－枚举值 例：2,4 to 8,is>50,is<-7
Select语句举例
将前面的例子改用 Select Case 语句实现：
System.EventArgs) Handles _ Button1.Click Dim x, y As Single x = Val(TextBox1.Text) Select Case x Case Is < 0 y=x Case Is <= 10 y=x*x Case Is <= 20 y = 10 Case Else y = 0.5 * x + 20 End Select MsgBox("y=" & y) End Sub
MsgBox(ch + "是字母字符")
ElseIf Else MsgBox(ch + "是其他字符") End If ch >= "0" And ch <= "9" Then MsgBox(ch + "是数字字符")
下列程序执行后，变量X的值为( Private Sub Form1_Click()
第3章 程序的基本结构
1 2 3 4
• 顺序结构 • 分支结构
• 循环结构
• 综合应用
程序开发的两步
界面 设计
程序
代码
设计
程序基本控制结构（三种）
顺序结构
循环结构
选择结构
3.1 顺序结构
顺序结构的程序设计是最简单的，只要按照解决 问题的顺序写出相应的语句就行。
顺序结构就是各语句按出现的先后次序执行
1
2 3
“确定”
“取消” “中止”
vbRetry
vbIgnore vbYes vbNo
4
5 6 7
本书目录
“重试”
“忽略” “是”” “否”
11
例 在Form1_Click（）事件过程中定义一个消息框，代码如下： Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim s As Integer s = MsgBox("用户名必须包含数字和字母", 5 + 48, "警告") If s = vbCancel Then End ' 若用户单击"取消"，则程序退出 End Sub
多分支结构举例
语法格式： If 表达式1 Then
… ElseIf 表达式n Then
语句块1 ElseIf 表达式2 Then 语句块2 语句块n
[Else End If
语句块n+1]
注: ElseIf 不能写成 Else If
多分支结构举例
例 已知变量ch中存放了一个字符，判断该字符是字母 字符、数字字符还是其他字符。 If UCase(ch) >= "A" And UCase(ch) <= "Z" Then
本书目录
7
1. InputBox （输入对话框函数）
输入对话框一般由标题、提示信息、“确定” 按钮、“取消”按钮和一个供用户输入的文本框组 成。当用户将输入信息输入到文本框，并单击“确 定”按钮后，函数返回用户输入的字符串数据。当 单击“取消”按钮时，返回一个空字符串。 语法格式：InputBox(Prompt[，Title][，Default])
End Sub
If语句的嵌套
If语句的嵌套是指If或Else后面的语句块中又包含If语句. If 表达式1 Then If 表达式2 Then … End If … End If
本章目录
Select case语句
Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select
End Sub
本书目录
9
2. MsgBox（消息框）
MsgBox函数用于在屏幕上的消息框中显示简短消 息，并等待用户单击按钮，然后返回一个整数型的数值， 让应用程序了解用户单击的是哪一个按钮。
语法格式： MsgBox(Prompt[，Buttons] [，Title])
功能：在屏幕上显示一个消息框，根据选择确定其后的 操作。
如以下语句， n=n+1 '计数累加 Label1.Text ＝ "欢迎使用VB "
以下语句形式很常用： • dim sum% , x% sum=100 : x=5 sum = sum + x ‘执行后，sum的值为多少？
•
dim
n% ‘执行后，n的值为多少？
n=7 n = n + 1
本书目录
6
3.1.2 用户交互函数
正确答案：C
多分支结构
不管有几个分支，依次判断，当某条件满足，执行相应 的语句，其余分支不再执行；若条件都不满足，且有Else子 句，则执行该语句块，否则什么也不执行。
If
表达式 1
Elseif F
表达式 2
T Then
Elseif F
表达式 n
T
else F
T
语句块1
语句块2
语句块n
语句块n+1
Dim Number%
Number = Val(InputBox("输入整数")) Select Case Number Case 1 To 5 ' 范围为[1,5] Msgbox( "Between 1 and 5“)
Case 6, 7, 8
Msgbox ("Between 6 and 8“) Case 9, 10
双分支结构举例
例 通过InputBox输入实数x，求下列分段函数f(x)值，最后通过MsgBox输出f(x)， 其中：
编制事件过程Form1_Click如下： Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click
Msgbox ("Greater than 8“)
Case Else Msgbox ("Not between 1 and 10“) End Select
Private Sub Button1_Click(ByVal _ 例：编写程序,当输入X的值后用 Selct Case语句 计算输出Y的值。 sender As System.Object, ByVal e As _
输入圆的半径r
顺序结构可以独立使用构成一 个简单的完整程序，常见的输入、 计算，输出三部曲的程序就是顺序 结构，例如计算圆的面积。
计算s = 3.14*r*r
输出圆的面积s
3.1.1 赋值语句
语法格式：变量名 = 表达式 功能: 计算赋值号“=”右边表达式的值，然后赋给
赋值号“=”左边的变量。
给变量赋值和设定属性是VB编程中常见的两个任务
单击窗体，将弹出消息框，如图3-5所示。
本书目录
ห้องสมุดไป่ตู้
12
3.2 选择结构
对于要先做判断再选择的问题就要使用分支结构，如下面 例子，
分支结构的执行是依据一定的条件选择执行路径， 而不是严格按照语句出现的物理顺序。
单分支结构
多行形式 If 表达式
Then
表达 式 T 语句块 F
语句块
End If
单行形式 If 表达式
)
x=100
Dim a, b, c, d As Single Dim x As Single a = 100 b = 20 c = 1000
变量a,b,c 的数据类型？
If b > a Then c = a: a = b: b = c End If If b > c Then x=b ElseIf a > c Then x=c Else x=a End If Msgbox( "x=“ & x)
End Sub
双分支结构练习
例: 计算当 0<x<10时，y=x，否则 y=100 ,正确的语句 是_____。 A. If 0<x<10 then y=x else y=100 B. If 0<x and x<10 then y=x
else y=100
C. If 0<x and x<10 then y=x else y=100 D. If 0<x or x<10 then y=x else y=100
Select Case ch Case "a" To "z", MsgBox (ch + Case "0" To "9" MsgBox (ch & Case Else MsgBox (ch + End Select
"A" To "Z" "是字母字符") "是数字字符") "是其他字符")
Select语句举例
为了便于应用程序与用户之间进行信息交互， 完成信息的输入和输出，用户可采用文本框、标签 等控件来实现，也可用VB.NET提供的InputBox、 MsgBox来实现。 InputBox的功能是等待并提示用户为程序运行 输入指定的数据，简称“输入对话框”。 MsgBox的功能是进行提示，用以确认某种程 序的操作，简称“消息框”。
本书目录
10
当用户单击消息框上的某按钮时，MsgBox函数将返回一个常 量来确认该按钮被按动了，下表是按钮和常量之间的对应关系。通 过对返回值的判断，就可以确定消息框中到底是哪个按钮被按动， 从而确定程序下一步的运行方式。
表 Msgbox函数的可能返回值 符号常量 值 用户单击的按钮
vbOK
vbCancel vbAbort
注意： • 变量的类型或表达式的结果 必须为数值或字符串。 • 对于多个变量进行条件判断 时，不能使用select case语句， 只能使用IF 语句
表达式列表 i 必须与 “变量或表达式”的类型相同 1.表达式 例: “A“ 2.表达式1 To 例：60 To 100 3. Is 例： 5 表达式2
Then
语句块
当表达式的值为True，执行Then后面的语句块， 否则不做任何操作。
单分支结构
表达式：关系表达式、逻辑表达式，
算术表达式（值按非零为True，零为False）。
关系表达式： If x> y Then num1=50 : Msgbox（“你好！”） If (x+30)*100 <= (y^20) then num2=num5 逻辑表达式 If a And b Then num2=num3： k＝k+1 If not x Then sum=sum+mark: i=i+1 If (x>y) or (num1<=num2) Then i=i+1
28
IIF函数
格式： IIf(表达式，TruePart，FalsePart) IIf函数是If „ Then „Else 结构的简洁表示 例如，将x，y中大的数，放入Tmax变量中：