Visual Basic程序设计案例教程第3章.pptVIP

例3-6 已知一个数x，如果其值大于等于0，则在窗体上输出“x≥0”字符串。 编写代码为： Dim x% x=inputbox(“请输入x的值”) if x0 then print “x≥0” End if 例3-7已知两个数x和y，比较它们的大小。若x小于y，互换两者的值，使得x大于y。 分析： 交换两个变量的值常借助第三个变量间接交换的方法来实现。 编写代码为： Dim x%,y%,t% x=inputbox(“请输入x的值”) y=inputbox(“请输入y的值”) If xy then t=x x=y y=t End if Print x,y 2．双分支结构If…then…else语句 （1）语句形式。 ①If 表达式 Then 语句块1 Else 语句块2 End If ②If 表达式 Then 语句1 Else 语句2 （2）执行流程。 首先计算表达式的值，如果表达式的值为True时，执行Then后面的语句块1（或语句1），否则，执行语句块2（或语句2），执行完语句块1（或语句1）或语句块2（或语句2）后执行If语句后的下一条语句。执行流程如图3-11所示。 表达式 语句块1 语句块2 下一个语句 True False 图3-11 双分支结构流程图 例3-8求一个数的绝对值。 分析：如果一个数大于等于0，则绝对值是原数，否则绝对值是原数的相反数。这是一个双分支选择问题。 编写代码为： Dim x%,y% x=inputbox(“请输入x的值”) If x=0 then y=x Else y= -x End if Print y 3．多分支结构If…then…elseif语句 （1）语句形式。 If 表达式1 Then 语句块1 Elseif 表达式2 Then 语句块2 … Elseif 表达式n Then 语句块n [Else 语句块n+1] End If （2）执行流程。 首先计算表达式1的值，如果表达式1的值为True时，执行Then后面的语句块1，否则计算表达式2的值，如果表达式2的值为True时，执行Then后面的语句块2，否则 计算表达式3的值……按照这样的规律依次进行，如果前面n个表达式的值都为False，则执行语句块n+1。如果某个语句块被执行后，则结束if语句，执行下一条语句。执行流程如图3-12所示。 True 表达式1 表达式2 表达式n … 语句块1 语句块2 语句块n 语句块n+1 下一个语句 True True False False False 图3-12 多分支结构流程图 例3-10求解如下问题。  分析：根据x的三种情况，y分别有相应的计算方法，所以属于多分支选择结构。 编写代码为： Dim x%,y% x=inputbox(“请输入x的值”) If x0 then y=x+3 else if x3 then y=x-3 Else y=0 End if Print y y=x+3 x0 y=x-3 x0 y=0 x=0 例3-11用if语句的嵌套实现例6-10。 编写代码为： Dim x%,y% x=inputbox(“请输入x的值”) if x=0 then if x0 then y=x+3 else y=0 end if else y=x-3 end if print y 4．Select Case语句 Select Case语句又叫情况选择语句，也可以实现多分支选择，根据表达式的不同取值来决定执行该语句中的哪一个分支。 （1）语句形式。 Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … Case 表达式列表n 语句块n [Case Else 语句块n+1] End Select （2）语句说明。 ①测试表达式：可以是数值表达式或字符串表达式。 ②表达式列表：与测试表达式的类型应该相同，其形式如表3-6所示。 ③End Select为语句的结束标志，与Select Case成对出现，不可缺少。 （3）执行过程。 首先计算测试表达式的值，然后将测试表达式的值按顺序与case语句中的表达式列表逐一进行比较，如果与其中的一个值相匹配，则执行该语句中的语句块。如果case语句中的表达式列表中的值不止一个与测试表达式相匹配，则只对第一个匹配的Case值执行与之相关联的语句块。如果表达式列表中没有一个值与测试表达式相匹配，则执行Case Else子句中的语句。 例6-12实现两个数的加减乘除简单计算。 （1）设计界面。 界面中的控件有5个标签、4个文本框、2个命令按钮。 （2）编写代码。 Pr