计算机二级VB教程 (4)

每个复选框的Click事件，都采用选择结构 在选择颜色时，也可使用：Text1.BackColor =Option1.BackColor等代码
Private Sub Check1_Click() '粗体 If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() '斜体 If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() '下划线 If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub
4．字符串比较 字符型数据，VB将按内码大小进行比较。 西文字符使用ASCII码比较 汉字使用汉字内码比较。 比较时，先比较第1个字符，如不同，则得出结果； 否则再比较第2个字符，依次逐一比较，直到比较 完毕或遇到一对不相同的为止。 注意：若把0<x<10作为VB表达式，失去数学含义。
13
Visual Basic程序设计教程
【例】在窗体中轮流以不同字体显示文字
Dim nflag As Integer Dim smystring As String Private Sub Form_Load() nflag = 1 smystring = "欢迎使用Visual Basic" Form1.FontSize = 18 End Sub Private Sub Form_Click() If nflag = 1 Then Form1.FontName = "黑体" Print smystring nflag = nflag + 1 Else If nflag = 2 Then Form1.FontName = "楷体_gb2312“ Print smystring nflag = nflag + 1 Else If nflag = 3 Then Form1.FontName = "隶书" Print smystring nflag = nflag + 1 Else nflag = 1 End If End Sub
24
Visual Basic程序设计教程
变量y存放比较结果。但可读性不好。 如果使用块If来编程，程序代码为：
If x >= 0 Then If x = 0 Then y=0 Else y=1 End If Else y = -1 End If
嵌套时，程序注意使用缩进格式，增加可读性。
25
Visual Basic程序设计教程
19
Visual Basic程序设计教程
【例4-2】三数排序 程序代码如下:
Option Explicit Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, X As Single A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text) If A > B Then X = A: A = B: B = X If A > C Then X = A: A = C: C = X If B > C Then X = B: B = C: C = X Text1.Text = A: Text2.Text = B: Text3.Text = C End Sub
6 Visual Basic程序设计教程
4.2 设置文本框字体字型
【例4-1】设计一个程序，界面如图。单选按钮和复 选框用于设置文本框文字的颜色、字体或字型。 设计时先创建框架，在选择框架的情况下，再创建其 内部其它控件。
7
Visual Basic程序设计教程
各控件：
1个文本框：显示文字。设置Text 3个框架：用于分组。设置Caption Option1~ 3：设置文本框背景。设置Caption BackColor Option4~ 6：设置文本框字体。设置Caption Check1~3：设置文本框字型。设置Caption
9
Visual Basic程序设计教程
比较大小的运算在程序设计中称为关系运算。 VB常用的关系运算符有6种： = (等于)、<> (不等于)、 > (大于)、>=(大于等 于)、 <(小于)、<= (小于等于)。 使用关系运算符的表达式称为关系表达式。
10
Visual Basic程序设计教程
1．格式： 表达式1 关系运算符 表达式2 2．数据类型： 表达式1和表达式2应具有相同的数据类型。
3．关于<语句块> 语句块可以是一条或多条语句，可写成一行或多行。
23 Visual Basic程序设计教程
4.4.3 编写嵌套的选择结构程序 If语句允许出现嵌套形式。 如判断x的符号，采用行If嵌套，程序代码为： If x >= 0 Then If x = 0 Then y = 0 Else y = 1 Else y = -1
3
Visual Basic程序设计教程
第1种算法：按工作通知单顺序，则他要走的路为：
(|53-98| +|98-183|+ (183-37) + | 37-122| +(122-14))×10 =469×10=4690米
第2种算法：最近位置服务优先法，将服务次序改为
37,14,98,122,183，则他要走的路为：
20
Visual Basic程序设计教程
块If语句采用多行代码的形式，其格式为：
If 条件1 Then 语句块1 [ElseIf 条件2 Then [ 语句块2 ]] …… [Else [ 语句块n+1 ]] End If
1．语句执行过程 执行过程如图
21 Visual Basic程序设计教程
4.4.2 使用块If语句 2．关于格式 （1）If与End If必须成对出现。 （2）块If语句必须在Then或Else后换行 （3）块If语句可以没有Else或ElseIf子句。 （4）行If语句也可以改写成块If语句。
22
Visual Basic程序设计教程
如变量Average存放成绩，进行等级转换的语句为： If Average >= 90 Then '其中标签Label5用于显示等 级
Label5.Caption = "等级：" & "优秀" ElseIf Average >= 60 Then Label5.Caption = "等级： " & "合格" Else Label5.Caption = "等级： " & "不合格" End If
15
Visual Basic程序设计教程
【例 】 编程，输入x，求下列分段函数f(x)值。用 InputBox输入x，计算结果f(x)输出到Text控件。
1 - x f(x) 1/4 (x - 5)
2
x5 x 5
16
Visual Basic程序设计教程
在窗体上建立文本框控件Text1和命令按钮控 件Command1。
(16+23+84+2Байду номын сангаас+61)×10=208×10=2080
第2种算法只需要走第1种算法的一半路不到。
4 Visual Basic程序设计教程
编写程序时，会有多种可选择的算法。 不仅要保证算法正确，还应考虑算法的质量。 算法表示：自然语言、流程图、结构图等。 算法决定了程序的结构。
5
Visual Basic程序设计教程
4.4.1 使用行If语句 行If语句的格式为： If 条件 Then 语句1 [Else 语句2 ] If 条件 Then 语句1
14
Visual Basic程序设计教程
它实现如图所示的选择结构流程。 行If要求代码写在一行内，语句过长可用续行符 如果语句1或语句2有多条语句，则用冒号“:”分隔。
运算结果为逻辑值，成立时为True，不成立
时为False。
11
Visual Basic程序设计教程
3．优先级 算术运算符或字符串运算符的优先级高于关 系运算符。 所有的关系运算符优先级相同，执行次序从 左到右。 如：3 >= 3+2，先执行3+2结果为5，再比 较3>=5，结果False。
12
Visual Basic程序设计教程
程序环境
26
Visual Basic程序设计教程
Select Case是实现多分支程序设计的条件语句 Select Case又称为“情况选择”语句。 常用于分段计算、根据离散值处理信息 Select Case语句的其格式是：
Select Case 测试表达式 [Case 表达式值1 [ 语句块1 ]] [Case 表达式值2 [ 语句块2 ]] …… [Case Else [ 语句块n+1]] End Select
选择结构是程序结构中的一种形式。
根据给定的条件来决定执行不同的程序代码段。 流程可以如图所示。
当条件满足时执行a块程序 段，条件不满足时执行b块 程序段。然后它们都继续执 行后面的程序段。 或：当条件满足时执行a块程序段， 条件不满足时跳过a块程序段而执行后面的程序。
VB中选择结构主要用IF和Select Case语句。
大学计算机基础教程
TaiYuan University of Technology
第4章
设计选择结构程序
Visual Basic 程序设计教程
本章主要介绍： 选择结构： 有关表达式 单分支语句 多分支语句 单选按钮 复选框
2 Visual Basic程序设计教程
程序就是数据加算法。 算法的优劣关系到程序质量的好坏。 如路径问题：假设某人在某大街53号工作， 现接到一份工作通知单，要求他去该大街的 门牌号分别为98, 183, 37, 122, 14的地方去 服务，假定两个间隔的门牌号之间相差10米， 则他该怎样完成任务，共走多少路？
对单选按钮和复选框编写了共9个简单的事件过程。
8
Visual Basic程序设计教程
Private Sub Option1_Click() '红色 Text1.BackColor = RGB(255, 0, 0) End Sub Private Sub Option2_Click() '绿色 Text1.BackColor = RGB(0, 255, 0) End Sub Private Sub Option3_Click() '蓝色 Text1.BackColor = RGB(0, 0, 255) End Sub Private Sub Option4_Click() '字体 Text1.FontName = "宋体" End Sub Private Sub Option5_Click() '字体 Text1.FontName = "楷体_GB2312" End Sub Private Sub Option6_Click() '字体 Text1.FontName = "仿宋_GB2312" End Sub
17
Visual Basic程序设计教程
【例4-2】在文本框内输入三个数，“排序”按钮 对它们从小到大排列。界面如图。
18
Visual Basic程序设计教程
首先确定A和B两个数的大小排序的算法： 若A >B，则交换A和B中的数据，否则A、B保持不变。 程序算法为： （1）先将三个数赋值给变量A、B、C。 （2）A与B比较，小的数放入A，大的数放入B； （3）A与C比较，小的数放入A，大的数放入C。 通过这样两次比较，A便是最小数了。 （4）B和C比较，小的数放入B，大的数放入C。 这样A、B、C已按从小到大排列。 （5）A、B、C分别放入三个文本框。 两数互换使用语句组：X = A : A = B : B = X
编制事件过程Command1_Click如下： Private Sub Command1_Click() Dim x as Single x=InputBox("输入x","计算分段函数的值") If x<=5 Then Text1.Text=Str(1-x*x) Else _ Text1.Text=Str((x-5)^0.25) End Sub