第章VisualBasic编程基础第二部分.ppt

第2章VisualBasic6.0编程基础 （第二部分）2.7基本流程结构2.7.1顺序结构【案例2-6】二次函数计算器按钮单击事件中的代码为
PrivateSubCommand1_Click()
Dimx,yAsDouble
Consta=3
Constb=-5
x=Val(Text1.Text)
y=a*x^2+b*x+1
y=y/Abs(a+b)
Text2.Text=Str$(y)
EndSub2.7.2条件结构（1）用If…Then结构有条件地执行一个或多个语句，单行语法和多行块语法都可以使用。
If条件Then语句
If条件Then
[语句块]
EndIf
“条件”通常是比较式，但它可以是任何计算数值的表达式。VisualBasic6.0将这个值解释为True或False。一个为零的数值为False，而任何非零数值都被看做True。若“条件”为True，则VisualBasic6.0执行“Then”关键字后面的所有“语句块”。（2）用If…Then…Else块定义几个语句块，执行其中一个语句：
If条件1Then
[语句块1]
[ElseIf条件2Then
[语句块2]]
...
[Else
[语句块n]]
EndIf
VisualBasic6.0首先测试“条件1”。如果它为False，VisualBasic6.0就测试“条件2”，依此类推，直到找到一个为True的条件。当它找到一个为True的条件时，VisualBasic6.0就会执行相应的语句块，然后执行EndIf后面的代码。作为一个选择，可以包含Else语句块，如果前n-1个条件都是False，则VisualBasic6.0执行Else语句块。（3）IIf函数用于实现一些简单的条件判断分支结构，其格式如下：
IIf(条件，条件为真时的值，条件为假时的值)
其作用是对条件进行测试，若条件成立（为真值），则取第一个值（即“条件为真时的值”），否则取第二个值（即“条件为假时的值”）。（4）VisualBasic6.0提供SelectCase结构替代If…Then…Else，从而可在多个语句块中有选择地执行其中一个。SelectCase语句的能力与If…Then…Else语句类似，但对多重选择的情况，SelectCase语句使代码更加易读。SelectCase在结构的开始便处理一个测试表达式并只计算一次。然后，VisualBasic6.0将表达式的值与结构中每个Case的值进行比较。如果相等，就执行与该Case相关联的语句块。
SelectCasetest测试表达式
[Case表达式列表1
[语句块1]]
[Case表达式列表2
[语句块2]]
...
[CaseElse
[语句块n]]
EndSelect【案例2-7】求数据的绝对值按钮单击事件中的代码为
PrivateSubCommand1_Click()
DimaAsInteger '定义变量
a=Val(Text1.Text) '将文本框中输入的值赋给变量a
Ifa<0Then '当a为负数时取其相反数
a=-a
EndIf
Text2.Text=Str$(a)
EndSub

按钮单击事件中的代码为
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub【案例2-8】闰年“确定”按钮单击事件中的代码为
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(Text1.Text)
If(xMod100)Then '如果X不能被100整除
If(xMod4=0)Then '如果x能被4整除但不能被100整除
Text2.Text="yes"
Else '如果x不能被4和100整除
Text2.Text="no"
EndIf
ElseIf(xMod400=0)Then '如果x能被100整除，又能被400整除
Text2.Text="yes"
Else
Text2.Text="no"
EndIf
EndSub“清除”按钮单击事件中的代码为
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub
【案例2-9】查询十二生肖Case6
Text2.Text="虎"
Case7
Text2.Text="兔"
Case8
Text2.Text="龙"
Case9
Text2.Text="蛇"
Case10
Text2.Text="马"
Case11
Text2.Text="羊"
Case0
Text2.Text="猴"
EndSelect
EndSubElseIfa=6Then
Text2.Text="虎"
ElseIfa=7Then
T