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

第2章VisualBasic6.0编程基础（第二部分）2.7基本流程结构2.7.1顺序结构【案例2-6】二次函数计算器按钮单击事件中的代码为PrivateSubCommand1_Click()Dimx,yAsDoubleConsta=3Constb=-5x=Val(Text1.Text)y=a*x^2+b*x+1y=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]]EndIfVisualBasic6.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)'将文本框中输入的值赋给变量aIfa<0Then'当a为负数时取其相反数a=-aEndIfText2.Text=Str$(a)EndSub按钮单击事件中的代码为PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub【案例2-8】闰年“确定”按钮单击事件中的代码为PrivateSubCommand1_Click()DimxAsIntegerx=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"EndIfElseIf(xMod400=0)Then'如果x能被100整除，又能被400整除Text2.Text="yes"ElseText2.Text="no"EndIfEndSub“清除”按钮单击事件中的代码为PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub【案例2-9】查询十二生肖Case6Text2.Text="虎"Case7Text2.Text="兔"Case8Text2.Text="龙"Case9Text2.Text="蛇"Case10Text2.Text="马"Case11Text2.Text="羊"Case0Text2.Text="猴"EndSelectEndSubElseIfa=6ThenText2.Text="虎"ElseIfa=7ThenText2.Text="兔"ElseIfa=8ThenText2.Text="龙"ElseIfa=9ThenText2.Text="蛇"ElseIfa=10ThenText2.Text="马"Else