教案(1)VB-For循环结构(1).ppt

《教案(1)VB-For循环结构(1).ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第七章控制结构7.2循环程序结构7.2.1For循环复习提问1．在VisualBasic中，UCASE("12ABcd34")的值是()A．abcdB．1234C．12ABCD34D．12abcd342．VisualBasic窗体模块文件的扩展名是()A．.FRMB．.WINC．.VBGD．.BAS3．执行VisualBasic语句PRINT"100"+"45"的显示结果是()A．145B．10045C．100+45D．语句有语法错误4．读下面VisualBasic程序，最后一行输出结果是（　　）a=12:b=5c=Len(a+b)PrintcA．4B．5C．6D．25.表达式Int(

2、-3.8)+Sgn(4.8)的值是（）.(A)3(B)-3(C)1(D)2本课学习目标：掌握for…next循环方法掌握for…next编程方法for…next循环过程程序分析学习重点：1、for…next循环方法。2、for…next循环编程应用学习难点：for…next循环用法。循环结构1.For循环语句(一般用于循环次数已知)形式For循环变量＝初值to终值[Step步长]语句块[ExitFor]语句块Next循环变量循环变量<=终值语句块ExitFor语句块循环变量加步长TF循环变量得初值循环体例5.7(补)计算1~100的奇数和，程序段如下：Dimi%,s%s=0Fori=1

3、To100step2s=s+iNexti>0初值<终值=1时,可省略<0初值>终值=0死循环循环次数要注意：出了循环，循环控制变量值的问题。例程序段：Fori=2To13Step3循环执行次数Printi,输出i的值分别为:Nexti25811Print:Print“I=“,i出了循环输出为:I=14在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。步长例:改变循环控制变量对循环的影响PrivateSubCommand1_Click()j=0Fori=1To20Step2i=i+3j=j+1Print"第";j;"次循环i=";iNextiPrint"

4、退出循环后i=";iEndSub正常情况：i=1,3,5,7,9,11,13,15,17,19现在：i=4,9,14,19例:输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。PrivateSubCommand1_Click()DimScoreAsSingle,PassNAsInteger,nAsIntegerDimiAsInteger,SumAsSingleSum=0:PassN=0:n=0Fori=1To50'统计人数大于50时停止循环Score=Val(InputBox("请输入学生成绩:"))IfScor

5、e<0Then'输入负数时停止循环ExitForElseIfScore>=60ThenPassN=PassN+1'统计及格人数n=n+1'统计总人数Sum=Sum+Score'统计总分EndIfNextiText1.Text=Str$(n)Text2.Text=Str$(PassN)Text3.Text=Str$(Sum/n)EndSub求1+2+3+……n的值代码：Dimiasinteger,sasintegers=0N=inputbox(“”)Fori=1tons=s+iNextPrints典型题目（一）累加典型题目（二）累乘1.求1*2*3*……n的值代码：Dimiasinteg

6、er,sasintegers=1N=inputbox(“”)Fori=1tons=s*iNextIPrints上机练习1、例题上机设计运行调试2、计算1分钱每天翻一倍，3月份31天后，月底会有多少钱，编程计算上机运行。