程序基本结构.ppt

2.3程序基本结构执行语句a一、顺序结构★使用对话框二、选择结构条件多分支选择结构0-59不及格
60-69及格
70-79中等
80-89良好
90-100优秀

Selectcase表达式
case表达式列表1
语句组1
case表达式列表2
语句组2
…………..
caseelse
语句组n
EndSelect

PrivateSubForm_Click()
DimxAsSingle
x=Val(InputBox("请输入成绩"))
Ifx>=90Then
Print"优秀"
ElseIfx>=80Then
Print"良好"
ElseIfx>=70Then
Print"中等"
ElseIfx>=60Then
Print"及格"
Else
Print"不及格"
EndIf
EndSubPrivateSubForm_Click()
DimiAsInteger,sAsInteger
s=0
Fori=1To100
s=s+i
Nexti
Print"1-100之间所有数的和是";s
EndSub小猴在某天摘桃子若干个，当天吃掉一半多一个；第2天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘了多少个桃子？For循环变量=初始值To终止值（Step步长）
循环体
Next循环变量PrivateSubForm_Click()
DimiAsInteger
Fori=1To10
Printi
Nexti
EndSubPrivateSubForm_Click()
DimiAsInteger
dimsAsInteger
i=1
s=0
DoWhilei<=100
s=s+i
i=i+1
Loop
Print"和是：";s
EndSub注：For…Next语句和Dowhile…Loop语句在许多情况下是可以通用的，但是For…Next语句更适合用于循环次数容易确定的情况，而Dowhile…Loop语句的使用则更灵活些。PrivateSubForm_Click()
DimpAsSingle,rAsSingle,iAsInteger
p=12
r=0.015
i=0
DoWhilep<20
p=p*(1+r)
i=i+1
Loop
PrintI;“年后，我国人口将达到”;p;"亿"
EndSub三、循环结构-双重循环提出问题，思考PrivateSubForm_Click()
DimiAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Print"*";
Nextj
Print
Nexti
EndSub
例3:补充知识点：PrivateSubForm_Click()
Fori=1To7
PrintTab(10-i);
Forj=1To2*i-1
Print"*";
Nextj
Nexti
EndSub思考：