资源描述：
《《VB程序设计》之循环结构讲解.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、《VB程序设计》主题讲座主题：循环结构程序设计的三种基本结构顺序结构选择结构循环结构循环结构计数型循环For…Next知道循环次数条件型循环Do…Loop只知道循环条件，不知道循环次数知己知彼，才能百战百胜设置断点选择【调试】→【窗口】→【自动窗口】选择【调试】→【逐语句】或按F8观察每一次自动窗口中的变化1．下列程序段的循环结构执行过程中共循环了几次。Dimi%,y%Fori=1To10Step2y=y+iNexti2.写出Dimi,cAsIntegerc=0Fori=-12To-33Step-4c=c+1Nexti所进行的循环后，i的值是。3．下
2、段程序执行的输出结果是。Dimt,u,i,jAsIntegert=0:u=0Fori=1To3Forj=1Toit=t+1Nextju=u+1NextiMsgBox(Str(t)&""&Str(u))4．下段程序执行的输出结果是。Dimk,n,mAsIntegern=10m=1k=1DoWhilek<=nm=m+2k=k+1LoopMsgBox(m)5.猴子摘了一堆桃子，第一天吃了一半，还嫌不过瘾，又吃了一个。第二天又将剩下的桃子中吃了一半零一个。以后每天如此。到第十天清早，只剩下一只了。问最初有多少只桃子。循环初始条件桃子数s=1如何构成循环？Fo
3、ri=9To1Step-1……Nexti循环中反复做的是什么？s=(s+1)*2Dimi,sAsIntegers=1Fori=9To1Step-1s=(s+1)*2NextMsgBox(s)6.小英家的门牌号码是一个三位数，其特点是，末位数字比首位数字大，而首位数字又比中间数字大，且各位数字相加之和等于各位数字相乘之积。请编程找出这个门牌号码。主要解决的问题：哪些数是三位数？100~999Fornum=100To999……Nextnum已知num是一个三位数，请写出它的三位数字相应的表达式百位a=num100十位b=num10–a*10个位c=n
4、ummod106.小英家的门牌号码是一个三位数，其特点是，末位数字比首位数字大，而首位数字又比中间数字大，且各位数字相加之和等于各位数字相乘之积。请编程找出这个门牌号码。Dimnum,a,b,cAsIntegerFornum=100To999a=num100b=num10-a*10c=numMod10Ifc>aAnda>bAnda+b+c=a*b*cThenLabel1.Text="小英家的门牌号是："&numEndIfNextnum7.求出所有水仙花数的程序（如果一个三位整数等于其各位数字的立方和，则该数为水仙花数。例如，371是水仙花数，因为
5、371＝33+73+13）。主要解决的问题：哪些数是三位数？已知num是一个三位数，请写出它的三位数字相应的表达式程序代码？？？Dimnum,a,b,cAsIntegerFornum=100To999a=num100b=num10-a*10c=numMod10Ifnum=a^3+b^3+c^3ThenTextBox1.Text&=num&vbTabEndIfNextnum8.输入一个数，判断它是否是素数定义：所谓素数是指只能被1和本身整除的正整数。如何判断某一个数n是否为素数：只需用2~n-1之间的数去除就可以了。为了提高效率可以将2~n-1改为
6、2～n/2，或2~Int(Sqrt(n))如何判断n不能被2~n-1之间的数整除：对于某一个数n，设置变量flag的初值为True；（循环）用2~n-1之间的数去除，如果n能被其中任何一个整数整除，则将flag设为False。在循环之后判别flag的值是否是True，若是，说明没有被2~n-1中任何一个整数整除，就是素数。Dimn,iAsInteger,flagAsBooleanN=inputbox(“n:”)flag=TrueFori=2Ton–1IfnModi=0Thenflag=FalseNextiIfflagThenLabel1.Text=n
7、&“是素数“ElseLabel1.Text=n&“不是素数“EndIf输出3～300之间所有素数Forn=3To300‘判断n是否是素数，若是则输出NextnForn=3To300flag=TrueFori=2Ton–1IfnModi=0Thenflag=FalseNextiIfflagThenLabel1.Text=n&“是素数“ElseLabel1.Text=n&“不是素数“EndIfNextnDimn,iAsInteger,flagAsBooleanForn=3To300flag=TrueFori=2Ton–1IfnModi=0Thenflag
8、=FalseNextiIfflagThenTextBox1.Text&=n&vbTabEndIfNextn9
