2023学年完整公开课版VB循环结构For

1用输入框输入10个数字，并用Print方法输出A=Val(InputBox("输入第1个数"))B=Val(InputBox("输入第2个数"))C=Val(InputBox("输入第3个数"))D=Val(InputBox("输入第4个数"))E=Val(InputBox("输入第5个数"))……PrintAPrintBPrintCPrintDPrintE……ForI=1To5A=Val(InputBox("输入10个数"))PrintANextI2判断1个数n的奇偶性5.3循环结构判断10个数n的奇偶性n=Val(InputBox("输入数据"))SelectCase

n

Case

1,3,5,7,9Printn;"是奇数。"

Case

0,2,4,6,8Printn;"是偶数。"

CaseElsePrintn;"超出范围！"EndSelectn=Val(InputBox("输入数据"))SelectCase

n

Case

1,3,5,7,9Printn;"是奇数。"

Case

0,2,4,6,8Printn;"是偶数。"

CaseElsePrintn;"超出范围！"EndSelectFork=1TO10Nextk3一般循环结构流程图(1)进入循环条件是什么？(2)循环体的算法是什么？(3)结束循环条件是什么？本章讨论VB的两种循环语句：计数循环语句

For-Next条件循环语句

While-WendDo-Loop45.3.1For-Next循环控制格式：

For<循环变量>=<初值>

To<终值>

[Step<步长>]

[循环体]

[ExitFor]

Next[循环变量](一般用于循环次数已知)功能：按确定的次数执行循环体。5t=0For

I=2To10Step2t=t+IPrinttNext

II:循环变量2:初值10:终值2:步长循环体I=I+2TFI>10?结束循环变量I的取值分别为:2,4,6,8,10完成t=2,6,12,20,30的计算6讨论For-Next循环变量必须为数值型。循环次数步长ExitFor:强制退出循环>0初值<终值(Step1可省略)<0初值>终值=0死循环ForI=1to100

S=S+INextIForI=100to1Step-1

S=S+INextIP50例题PrivateSubForm_click()DimsAsSingle,iAsIntegern=Val(InputBox("请输入n","提示"))s=0Fori=1TonStep1s=s+INextiPrint"1到";n;"之和为：";sEndSub78For-Next的流程图—阅读Nx=初值x>终值?循环体x=x+步长Y开始结束Nx=初值x<终值?循环体x=x+步长Y开始结束当步长＞0时当步长<0时ForX=1

To10

Step2

…NextXForX=10

To2

Step-2

…NextX9For-Next:必须成对出现，缺一不可。

(配对原则)

可以嵌套使用，但内、外循环的变量不能同名，不能交叉'正确的循环嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextJ

NextI'错误的循环嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextI

NextJ循环的嵌套10Mcs=5ForI=1ToMcsMcs=Mcs+1printI，McsNextI当循环终值是一个变量时，在循环第一次运行时取走变量中的值后，此变量中的值就不再影响循环。在循环体内,循环变量可多次引用；但建议不要对其赋值，否则将会导致死循环。表示:I=1To5表示:I=1To5若增:I=I-1,则出现死循环11例:

编程序计算：sum=1+2+3+4+…+100PrivatesubForm_Click()

sum=0For… …Next…EndSub思考题1.s=1+1/2+1/3+1/4+…+1/1002.s=2+4+6+8+…+1003.p=1*2*3*4…100sum:累加的初始值为0应用112例:求N!（N为自然数）如:3!=3*2*1,而2!=2*1,则3!=3*2!=3*2*1PrivateSubForm_Click()

N=Val(InputBox("输入N="))S=1Fork=?To?Step?

?=?Next?EndSubS:连乘的初始值为1应用213思路：1.输入一个分数，判断是否有效并进行处理；2.判断是否合格，计算合格的人数；3.计算总人数、总分数和平均分。例:输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。应用3PrivateSubCommand1_Click()'定义变量:Score,PassN,n,I,Sum'初始化:Sum,PassN,n均为0

ForI=1To50

'输入一个成绩:Score,判断Score是否有效?IfScore>0ThenIfScore>=60ThenPassN=PassN+1'统计及格人数

n=n+1'统计总人数

Sum=Sum+Score'统计总分

ElseExitForEndIf

NextI'输出:及格人数、总人数、平均分EndSub14例:改变循环控制变量对循环的影响讨论：PrivateSubCommand1_click()J=0ForI=1To20Step2I=I+3J=J+1Print"第";J;"次循环I=";INextIPrint"退出循环后I=";IEndSub正常情况：I=1,3,5,7,9,11,13,15,17,19现在：I=4,9,14,19PrivateSubCommand1_Click()s=0Fork=1To3Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=3Elsex=4EndIf

Printxs=s+xNextkPrintsEndSub15阅读程序，写出运行结果n=1s=116PrivateSubForm_Click()DimnAsIntegerDimsumAsIntegersum=0Forn=1to5Step1sum=sum+nNextn

Print“sum=”;sumEndSub思考：n的取值分别=循环体sum=sum+n共执行了多少次?退出循环后，n=?①n=2s=3n=3s=6n=4s=10n=5s=15n=6②③④⑤⑥①n=317PrivateSubForm_Click()DimnAsIntegerDimpAsIntegerp=1Forn=3to7Step1Ifnmod2=0then

Print“*”;n;p=p*nendifNextn

Print“=”;pEndSub思考：(1)n的取值分别=(2)循环体p=p*n共执行了多少次?(3)退出循环后，n=?②n=4p=4③n=5④n=6p=24⑤n=7⑥n=8nnnnnnnnnnnn123456789101112letternumberOthern4431218PrivateSubForm_Click()Dimstr1AsStringDimletterAsIntegerDimnumberAsIntegerDimotherAsIntegerDimnAsIntegerLetter=0:number=0:other=0Str1=InputBox(“输入字符串=”,”输入框”,”ab32-c,4d_5”)Forn=1toLen(str1)SelectCaseMid(Str1,n,1)Case“A”to“Z”,“a”to“z”Letter=letter+1Case1to9Num