预览加载中，请您耐心等待几秒...

VBA程序流程控制语句ppt课件.ppt

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共33页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

本节内容及要求： 1.熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构； 2.熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。执行语句分为3种结构：分支语句条件测试语句 条件测试语句 条件测试语句 条件测试语句 条件测试语句 条件测试语句 条件测试语句 条件测试语句 条件测试语句 【例】求阶乘n！ 编写程序代码。 PrivateSubCommand1_Click() DimnAsInteger,iAsInteger DimresultAsLong result=1 n=CInt(text1.text) Ifn<=0Then Label2.Caption="请输入正整数！" ExitSub'结束过程 Endif Fori=1Ton result=result*i Nexti Label2.Caption=Str(n)+"!="+Str(result) EndSub 【例】用Do…Loop循环结构实现求和sum=1+2+3+…+100。 解法一：采用当型循环DoWhile…Loop PrivateSubCommand1_Click() DimiAsInteger,sumAsInteger i=1'计数器初值置为1 sum=0'累加器初值置为0 DoWhilei<=100'当型循环 sum=sum+i i=i+1'每次循环变量加1 Loop Label2.Caption=Str(sum) EndSub 解法二：采用直到型循环Do…Until…Loop PrivateSubCommand1_Click() DimiAsInteger,sumAsInteger i=1'计数器初值置为1 sum=0'累加器初值置为0 DoUntili>100 sum=sum+i i=i+1 Loop Label2.Caption=Str(sum) EndSub循环结构（续3）循环语句循环语句循环语句【例】求1∽30间的全部素数。 此课件下载可自行编辑修改，供参考！ 感谢您的支持，我们努力做得更好！