第4章程序控制结构4.1顺序结构程序设计4.1顺序结构程序设计4.1顺序结构程序设计4.2选择结构程序设计4.2选择结构程序设计4.2选择结构程序设计双分支结构If语句的语法形式有两种：（1）If行语句，其语法为：If<条件表达式>Then语句1Else语句2（2）If块语句，其语法为：If<条件表达式>Then<语句块1>Else<语句块2>EndIf4.2选择结构程序设计4.2选择结构程序设计4.2选择结构程序设计3．多分支If…Then…ElseIf语句3．多分支If…Then…ElseIf语句4．If语句嵌套4．If语句嵌套4．If语句嵌套4.2.2SelectCase语句4.2.2SelectCase语句4.2.2SelectCase语句【例4.9】利用多分支选择语句实现：输入年份和月份，求该月的天数。PrivateSubCommand1_Click()DimdAsInteger,yAsInteger,mAsIntegery=Val(Text1)'输入年份m=Val(Text2)'输入月份SelectCasemCase1,3,5,7,8,10,12d=31Case4,6,9,11d=30Case2If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then'判断闰年d=29Elsed=28EndIfEndSelectText3=d'输出天数EndSub4.2.3条件函数4.2.3条件函数4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.3循环结构程序设计4.4应用举例【例4.20】在两个文本框中输入两个正整数m和n，求它们的最大公约数和最小公倍PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerDimgAsInteger,pAsIntegerm=Val(Text1)'输入m的值n=Val(Text2)'输入n的值p=m*nIfm<nThent=m:m=n:n=tEndIfr=mModnDoWhiler<>0m=nn=rr=mModnLoopg=n'此处，n为最大公约数Text3=g'显示最大公约数Text4=p/g'计算并显示最小公倍数EndSub4.4应用举例【例4.22】编程利用公式计算ex的值，直到发现某一项的绝对值小于10-6为止，使用InputBox函数输入x的值，在窗体上显示计算结果。PrivateSubForm_Click()DimxAsInteger,iAsSingle,tAsDouble,exAsDoublex=Val(InputBox("请输入x的值："))i=1ex=1t=1DoWhilex/t>=0.000001ex=ex+x/ti=i+1t=t*ix=x*xLoopPrintexEndSub本章小结