第10课do语句、多重循环Do-While循环.ppt

Do-While循环分别用for和do语句求N！For语句do语句For语句和Do语句循环结构（For语句和Do语句）For循环与do循环比较1.有如下VisualBasic程序：PrivateSubCommand1_Click()DimsAsInteger,iAsIntegers=1Fori=1To10s=s+1NextiText1.Text=Str(s)EndSub问：（1）程序运行后，变量s的值为____________。（2）循环刚退出时，变量i的值为____________。以下VisualBasic程序的功能是：计算表达式1×3＋2×3＋3×3＋…＋100×3的值，并在文本框Text1中输出计算结果。DimiAsInteger,sAsIntegers=0:i=1DoWhilei<=100s=i*3i=i+1LoopText1.Text=Str(s)（1）刚退出循环时，变量i的值是▲①。（2）程序中划线处的表达式应更正为▲②。（1）因为范围i<=100，故退出循环时i=101（2）因为题目是计算所有N×3的累积和，故使用累积S=S+i*3多重循环是指循环体内含有循环语句的循环多重循环程序示例程序运行结果PrivateSubForm_Load()15Show16Fori=1To3‘外循环17Forj=5To7’内循环25Printi,j26Nextj27Nexti35EndSub3637注意内、外循环层次要分清，不能交叉本例可采用两重循环来实现。外循环控制输出7行，内循环控制每行输出要求的字符数。在进入内循环之前，使用PrintTab()来对起始输出位置定位，退出内循环后，使用Print来控制换行。采用Print直接在窗体上输出结果，程序代码如下：PrivateSubForm_Load()ShowFori=1To7PrintTab(10-i);’输出每行前面空格Forj=1To2*i-1PrintChr(i+48);’分号表示不换行NextjPrint‘每行换行NextiEndSubPrintChr(i+48)与Printi有所不同(1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币为c枚，可列出方程a+b+c=10a+2b+5c=25采用两重循环，外循环变量a从0～10，内循环变量b从0～10(2)创建应用程序的用户界面(3)编写程序代码程序通过Print方法把处理结果输出在标签的下方。PrivateSubForm_Load()ShowCurrentX=0:CurrentY=1500'确定开始显示的坐标Print,"五元","二元","一元"n=0'记录解的组数Fora=0To10Forb=0To10c=10-b-aIfa+2*b+5*c=25Andc>=0Thenn=n+1Print"(";n;")",c,b,aEndIfNextb,aEndSub执行下列程序段后，变量t的值是______。t=0Forx=2To3n=1DoWhilen<=xt=t+nn=n+1LoopNextxA.8B.9C.10D.11