visualbasic控制结构选择结构程序设计龙亢农场中学陈琼•PrivateSubform_Click()•DimxAsSingle'被除数•DimyAsSingle'除数•DimqAsSingle'商•x=Val(InputBox("请输入被除数:"))•y=Val(InputBox("请输入除数:"))•q=x/y•Printq•EndSuby=0会怎样?分析：当除数为0时，程序提示出错！！我们怎么能避免呢？•Ify<>0Then•q=x/y•Printq•Else•Print"不能求值"•EndIfvisualbasic的选择结构通过条件语句来实现。条件语句也称IF语句，它有两种格式：1、单行结构2、块结构如果y不等于0则计算x/y否则显示不能求值我们在求值前应该对Y进行判断：在VB中，这样的问题可以通过选择结构程序来解决，可以用下面的语句来处理：•小结：•单行结构与块结构条件语句的主要区别，就是看then后面的语句（注释语句除外）是否和then在同一行上。如果在同一行上则为单行结构，否则为块结构。对于块结构，必须以EndＩf结束，单行结构没有EndＩf。•拓展中秋节前夕，商店月饼促销，购满3盒（含）即可享受八折优惠。根据输入的购买盒数，计算出应付金额。PrivateSubform_Click()DimqtyAsInteger'购买盒数DimpriceAsSingleDimsumAsSingle'应付金额price=80qty=Val(InputBox("购买盒数:"))'如果购买盒数低于3盒，不打折'购满3盒（含）享受八折优惠_______________Print"应付金额:";sum;"元"EndSubIF条件then部分【else部分】选择结构块单行IF条件1Then语句块1【elseIF条件2Then语句块2】【elseIF条件2Then语句块2】............【else语句块n】EndIF思维导图，复习巩固单行结构条件语句：•格式：IF条件then部分【else部分】•该语句的功能是：如果“条件”为TRUE，则执行“then部分”，否则执行“else部分”。逻辑表达式，逻辑表达式的值（true或false)“else部分”是可选的例：输入两个数x和y，比较他们的大小，并输出最大值PrivateSubform_Click()DimxAsSingle,yAsSinglex=Val(InputBox("输入x的值:"))y=Val(InputBox("输入y的值:"))If_________ThenprintyelseprintxEndSubPrivateSubform_Click()DimxAsSingle,yAsSinglex=Val(InputBox("输入x的值:"))y=Val(InputBox("输入y的值:"))If_________ThenprintyPrintxEndSubx0then•print“y=1”•Elseifx=0then•Print“y=0”•Else•Print”y=-1”•Endif•Endsub要求：输入X，要求输出y的值设有如下函数：当嵌套多的时候，应注意嵌套的正确性。一般原则是：每一个“else部分”都与它前面的、且未被配对的IF-then”配对•”语句块“可以是一个语句，也可以是多个语句，如果是多个语句时，可以分别写在多行里，如果写在一行中，则各语句之间用冒号隔开。Ifx>yThent=xx=yy=tPrint"x的值为:";xPrint"y的值为:";yEndIFIfx>yThent=x:x=y:y=tPrint"x的值为:";xPrint"y的值为:";yEndIF返回
