visual basic教案：7 多行结构条件语句

课时教 案5.2.2 多行结构条件语课题 if…Then…Else…Endif

课 授课时1时 间标

If完成老师布置的任务点点课型

多行结构条件语句单行If语句和多行If语句的使用场合复习课 教法 讲授、课件演示教学过程一、回顾复习1、单行If语句的语法格式2、执行过程二、新课IfThenElseVBIf语句，语法格式为：If〈条件〉Then〈语句组1〉[Else〈语句组2〉]EndIf相关知识：IfEndIf语句结束。必须配对使用。<1>和<2>可以分别包括一个或多个If和“then”必须在一行上Else独占一行（Else可以和写在一行上，但必须以冒号隔开）

学生活动同学们回答老师提出的两个问题注意观察多行If语句的格式，跟单行有什么样的区别，有什么相同之处？同学们看着多行If语句的语法格式，说出语法中注意的问题分析作业：输入3个数，将它们按从小到大的顺序输出显示。分析讨论：有两个数a和b，请交换a和b的值。先输入三个数a,b,c，再进行从小到大的顺序排序，排序完后：a是最小值，b是中间值，c是最大值。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimtAsSinglea=Val(InputBox("请输入一个实数"))b=请输入一个实数")) 分析上一节课作c=请输入一个实数")) 业，改格式写出Print"排序前：";a,b,c 代码Ifa>bThent=a:a=b:b=tEndIfIfa>cThent=a:a=c:c=tEndIfIfb>cThent=b:b=c:c=tEndIfPrint"排序后：";a,b,cEndSub任务5.6PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text) 完成任务例题y=Val(Text2.Text)Ifx<yThenLabel3.Caption="较大数为"&Str(y)ElseLabel3.Caption="较大数为"&EndIfEndSub练习：1、PrivateSubCommand1_Click()DimxAsSingle,yAsSingle 跟老师一起练习x=Val(Text1.Text) 题y=Val(Text2.Text)Ifx<yThent=x : x=y : y=EndIfLabel3.Caption="较大数为"&Str(x)EndSub2、x=int(Rnd(1)-10)ifx<=-5Theny=x^2+10else

先分析题再写出或者说出答案y=x*x-10Endifprintx;y3、x=42ifx/3=int(x/3)Andx/7=int(x/7)thenprint xElseEndif

printx+x课后作课后作业题作业：写周末作业If语句的练习课时1间思课时教 案教学目标

通过做多行If语句的练习巩固所学理论知识。点点课型

写多行If语句的程序代码分析程序部分做题课 教法 讲授、演示教学过程 学生活动一、回顾复习多行If语句的语法格式 同学们写出If二、练习题有： 式1 、 求 解

bxc0 程（假a0 ）分析：当b^2-4ac>=0条件成立时，方程有两个实根 先分析题，然后再思考写代码步x1,2=b b24ac 骤2a条件不成立时，方程无实根。2、由键盘输入三角形三边的长，放入变量a,b,c中，用下面的公式编程求三角形的面积。面积公式:s p(pa)(pb)(pc)其中：p=(a+b+c