第4章 程序控制结构.ppt

第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,mAsInteger
y=Val(Text1)'输入年份
m=Val(Text2)'输入月份
SelectCasem
Case1,3,5,7,8,10,12
d=31
Case4,6,9,11
d=30
Case2
If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then'判断闰年
d=29
Else
d=28
EndIf
EndSelect
Text3=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,rAsInteger
DimgAsInteger,pAsInteger
m=Val(Text1) '输入m的值
n=Val(Text2) '输入n的值
p=m*n
Ifm<nThen
t=m:m=n:n=t
EndIf
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
g=n '此处，n为最大公约数
Text3=g '显示最大公约数
Text4=p/g '计算并显示最小公倍数
EndSub4.4应用举例【例4.22】编程利用公式计算ex的值，直到发现某一项的绝对值小于10-6为止，使用InputBox函数输入x的值，在窗体上显示计算结果。
PrivateSubForm_Click()
DimxAsInteger,iAsSingle,tAsDouble,exAsDouble
x=Val(InputBox("请输入x的值："))
i=1
ex=1
t=1
DoWhilex/t>=0.000001
ex=ex+x/t
i=i+1
t=t*i
x=x*x
Loop
Printex
EndSub本章小结