1.用计算机进行信息处理的基本方法.pptx

1、visual basic 控制结构,选择结构程序设计,龙 亢 农 场 中 学 陈 琼,Private Sub form_Click() Dim x As Single被除数 Dim y As Single除数 Dim q As Single商 x = Val(InputBox(请输入被除数:) y = Val(InputBox(请输入除数:) q = x / y Print q End Sub,y=0会怎样?,分析：当除数为0时，程序提示出错！,我们怎么能避免呢？,If y 0 Then q = x / y Print q Else Print 不能求值 End If,visual basic

2、的选择结构通过条件语句来实现。条件语句也称IF语句，它有两种格式： 1、单行结构 2、块结构,如果 y 不等于0 则 计算 x/y 否则 显示 不能求值,我们在求值前应该对Y进行判断：,在VB中，这样的问题可以通过选择结构程序来解决，可以用下面的语句来处理：,小结： 单行结构与块结构条件语句的主要区别，就是看then后面的语句（注释语句除外）是否和then在同一行上。如果在同一行上则为单行结构，否则为块结构。对于块结构，必须以End f 结束，单行结构没有End f。,拓展 中秋节前夕，商店月饼促销，购满3盒（含）即可享受八折优惠。根据输入的购买盒数，计算出应付金额。 Private Sub

3、form_Click() Dim qty As Integer 购买盒数 Dim price As Single Dim sum As Single应付金额 price = 80 qty = Val(InputBox(购买盒数:) 如果购买盒数低于3盒，不打折 购满3盒（含）享受八折优惠 _ Print 应付金额:; sum; 元 End Sub,IF 条件 then 部分 【else 部分】,选择结构,块,单行,IF 条件1 Then 语句块1 【else IF 条件 2 Then 语句块2】 【else IF 条件 2 Then 语句块2】 . 【else 语句块n】 End IF,思维导

4、图，复习巩固,单行结构条件语句： 格式：IF 条件 then 部分 【else 部分】 该语句的功能是：如果“条件”为TRUE，则执行“then部分”，否则执行“else部分”。,逻辑表达式，逻辑表达式的值（true或false),“else部分”是可选的,例： 输入两个数x和y，比较他们的大小，并输出最大值 Private Sub form_Click() Dim x As Single,y As Single x = Val(InputBox(输入x的值:) y = Val(InputBox(输入y的值:) If_Then print y else print x End Sub,Priv

5、ate Sub form_Click() Dim x As Single,y As Single x = Val(InputBox(输入x的值:) y = Val(InputBox(输入y的值:) If_Then print y Print x End Sub,xy,xy,返回,块结构条件语句: 格式：IF 条件1 Then 语句块1 【else IF 条件 2 Then 语句块2】 【else IF 条件 3 Then 语句块3】 . 【else 语句块n】 End IF,如果“条件1”成立，执行”语句块1“,否则,如果“条件2”成立，执行“语句块2”否则,。,否则执行”语句块n“,Priv

6、ate Sub from_Click() Dim x As Single,y As Single x = Val(InputBox(输入x的值:) If x0 then print “y=1” Else if x=0 then Print “y=0” Else Print”y=-1” End if End sub,要求：输入X，要求输出y的值,设有如下函数：,当嵌套多的时候，应注意嵌套的正确性。一般原则是：每一个“else部分”都与它前面的、且未被配对的IF-then”配对,”语句块“可以是一个语句，也可以是多个语句，如果是多个语句时，可以分别写在多行里，如果写在一行中，则各语句之间用冒号隔开。,If xy Then t = x x = y y = t Print x的值为