vb程序设计教程vb4

If x >= 0 Then y = 2*Sqr(x+7)-6 缩格输入
Else y = 5*x+Exp(x)-2
End If Text2.Text=Str(y) 向文本框放数据
End Sub
8
cmdCalculate
Private Sub cmdExit_Click() End
End Sub
Private Sub cmdClear_Click()
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Score As Integer, Degree As String
If KeyAscii = 13 Then
Score = Val(Text1.Text)
Select Case Score
Case 90 To 100
If <条件> Then <语句块1>
逻辑框图
10
中国药科大学
计算机教研室
4.2.1 If-Then-Else-End If语句
Visual Basic 程序设计
2.嵌套的If结构: 在If语句的“语句块”中包含另一个 If语句，叫做嵌套的If结构。
If <条件1> Then
‘外层
…
If <条件2> Then
特点：
Text2.Text = Degree
End If
End Sub
18
结构清晰。
中国药科大学 计算机教研室
4.2.2 多分支Select-Case-End Select语句
[格式]：Select Case <测试表达式>
Visual Basic 程序设计
Case <测试1> <语句块1>
Case <测试2> <语句块2>
‘内层
…
Else
If <条件4> then … Else … ‘最内层
End If
Else
…
If < 条件3> Then
用于解决有多
… End If
种情况的问题
End If
ห้องสมุดไป่ตู้
11
中国药科大学
计算机教研室
例：输入三角形的三边a、b、c，求三角形的面积
Visual Basic 程序设计
开始
边长>0? 是
Degree = "A"
ElseIf Score >= 80 Then 80<=Score<90 ?
Degree = "B"
ElseIf Score >= 70 Then
Degree = "C"
ElseIf Score >= 60 Then
Degree = "D"
Else
Degree = "E" End If
4.2.1 If-Then-Else-End If语句
3、多分支If-Then-ElseIf语句
[格式]： If <条件1> Then < A1组语句> ElseIf <条件2> Then < A2组语句>
ElseIf <条件n> Then < An组语句>
[Else <An+1组语句>]
End If
[功能]：
计算测试表达式的值，自 上而下检查测试条件;
若表达式的值符合测试 i， 则执行相应的语句块 i；
Case <测试n> <语句块n>
若所有条件都不成立，则 执行语句块n+1。
[Case Else
<语句块n+1>]
19
End Select
中国药科大学 计算机教研室
例：将上例用Select Case语句改写。
Visual Basic 程序设计
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, temp As Integer a = InputBox("输入a", "顺序输出") b = InputBox("输入b", "顺序输出") c = InputBox("输入c", "顺序输出")
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
If a>0 And b>0 And c>0 Then
If a+b>c And b+c>a And c+a>b Then
是否能组 成三角形
是 计算
输出
结束
a>0 and b>0 and c>0
否
否
出错信息
a+b>c and b+c>a and a+c>b
12
中国药科大学
计算机教研室
计算公式： Sp(pa)p (b)p (c)
Visual Basic 程序设计
其中： p abc 2
Private Sub cmdCalculate_Click()
Degree = "C"
Else
If Score >= 60 Then
Degree = "D"
Else
Degree = "E"
End If
End If End If
缺点：
End If Text2.Text = Degree
嵌套层次过多，结构
End If End Sub
向文本框放数15 据
不清晰，容易出错。中国药科大学 计算机教研室
计算机教研室
教学内容
4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 循环嵌套 4.5 程序示例
3
Visual Basic 程序设计
中国药科大学 计算机教研室
4.1 顺序结构
Visual Basic 程序设计
顺序结构是程序设计中最基本、最简单的结构，在此结 构中，程序按照语句出现的先后顺序依次执行。顺序结构 是任何程序的基本结构，即使在选择结构和循环结构中也 包含有顺序结构。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Visual Basic 程序设计
Dim Score As Integer, Degree As String
If KeyAscii = 13 Then
Score = Val(Text1.Text)
If Score >= 90 And Score <= 100 Then
20
Visual Basic 程序设计
中国药科大学 计算机教研室
【例4.4】 将例4.3用Select Case语句实现。Vis程u序al设B计asic
语句1
语句n
4
中国药科大学 计算机教研室
4.1 顺序结构
Visual Basic 程序设计
【例4.1】 单击窗体，在窗体上输出两行不同格式的文字。 新建工程，在窗体的Click事件中添加以下代码：
Private Sub Form_Click() Form1.FontSize = 12 Form1.ForeColor = vbRed Form1.Print "您好" Form1.FontSize = 16 Form1.ForeColor = vbBlue Form1.Print "欢迎学习 Visual Basic"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus End Sub
中国药科大学 计算机教研室
[格式2]：单行If-Then-Else语句
Visual Basic 程序设计
If <条件> Then <语句1> Else <语句2>
[说明]：
（1）在A组语句和B组语句都只有一个语句时，可使用该格式；
If a < b Then
temp = a a=b
保证a为a,b两数中的大值
b = temp
End If
If a < c Then
Print c, a, b
Else
If b > c Then Print a, b, c Else Print a, c, b
End If
End Sub
14
中国药科大学 计算机教研室
（2）End If语句省略。
例：上例可改写为以下程序段。
Private Sub cmdCalculate_Click()
Dim y As Single,x As Single
x=Val(Text1.Text)
If x >= 0 Then y = 2*Sqr(x+7)-6 Else y = 5*x+Exp(x)-2
[说明]： （1）判断条件可以是逻辑变量、关系表达式、逻辑表达式
（2）If和End If语句成对出现；
7
中国药科大学
计算机教研室
例：计算分段函数y的值。
5xex2 x0 y2 x76 x0
Visual Basic 程序设计
Private Sub cmdCalculate_Click()
Dim x As Single,y As Single x=Val(Text1.Text) 从文本框取数据
p=(a+b+c)/2
s=Sqr(p*(p-a)*(p-b)*(p-c))
Text4.Text=Str(s)
Else Text4.Text=“不能构成三角形”
End If
Else Text4.Text=“边长不能小于0”
End If
End Sub
13
中国药科大学 计算机教研室
练习：键盘输入三个数，将它们从大到小依次排列输出
Text2.Text=Str(y)
End Sub
9
中国药科大学 计算机教研室
Visual Basic 程序设计
[格式3]：省略 ELSE 的 If 语句（单分支语句）
If <条件> Then <语句块1>
True 条件满足? False
End If
块1
[格式4]:省略 ELSE 的 单行 If 语句
（1）该语句结构可以解决多分支问题，只有一个End If语句， 避免If语句嵌套层数过多的情况；
（2）Else语句可以省略；
（3）该结构是一个单出口的结构，即只会执行一组语句。无 论执行了哪个语句块，都将执行End If的后继语句。
17
中国药科大学
计算机教研室
将上例用If-Then-ElseIf语句改写：
例：输入分数并判断等级分。计算规则如下：
分数 100-90 89-80 79-70 69-60 <60 等级分 A B C D E
Visual Basic 程序设计
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Score As Integer, Degree As String
Visual Basic 程序设计
第四章 Visual Basic的基本控制结构
授课教师：潘 蕾
E-Mail: olivelei2019163
中国药科大学 计算机教研室
教学要求
Visual Basic 程序设计
1、掌握VB 程序设计中的常用语句 2、掌握顺序、选择、和循环结构及相应的语句
2
中国药科大学
Degree = "A"
Case 80 To 89
Degree = "B"
Case 70 To 79
Degree = "C"
Case 60 To 69
Degree = "D"
Case Is<60
Degree = "E"
End Select
Text2.Text = Degree
End If
End Sub
If KeyAscii = 13 Then Score = Val(Text1.Text)
从文本框取数据
If Score >= 90 And Score <= 100 Then
Degree = "A"
Else
If Score >= 80 Then
Degree = "B"
Else
If Score >= 70 Then
条件1 真
语句块1
假 假
条件2 真
语句块2 …
Visual Basic 程序设计
… 条件 n 真 语句块n
假 语句块n+1
[功能]：
-对条件自上而下依次判断,若条件i成立,则执行相应的Ai组语句；
-若所有条件都不成立，则执行An16+1组语句。
中国药科大学 计算机教研室
说明
Visual Basic 程序设计
End Sub
5
中国药科大学
计算机教研室
4.2 选择结构（分支结构)
4.2.1 If-Then-Else- End If语句 4.2.2 Select- Case-End Select语句
Visual Basic 程序设计
选择结构是根据某个条件决定执行哪部分程序，可以用 If语句或Select Case语句实现。其中If语句根据分支的多 少分为单分支、双分支和多分支If语句。Select Case语句 使程序只能根据某一个条件的不同取值来决定执行哪部分 程序。大部分情况下两种语句间可以相互替换。
6
中国药科大学
计算机教研室
4.2.1 If-Then-Else-End If语句
Visual Basic 程序设计
1、 If-Then-Else语句(双分支结构)[逻辑框图]：
[格式1]：If <条件> Then
<A组语句> Else
成立 条件? 不成立
<B组语句> End If
A组语句
B组语句
[功能]： 如果条件成立，则执行A组语句，否则执行B组语句。