第四章VB程序設(shè)計初步-第三節(jié)循環(huán)語句-高中信息技術(shù)選修一

循環(huán)結(jié)構(gòu)程序設(shè)計講解人：郭郭21901/For…Next循環(huán)語句02/Do…Loop循環(huán)語句03/提前退出循環(huán)語句(Exitdo/Exitfor)05/課堂小結(jié)與課后作業(yè)目錄CONTENTS04/綜合應(yīng)用（循環(huán)的嵌套、求素數(shù)）問題的引出：3）求解1+2+3+…+100=?解決辦法：1)引入新的程序結(jié)構(gòu)——循環(huán)結(jié)構(gòu)

2)使用循環(huán)結(jié)構(gòu)語句：For-Next,Do-Loop1）在窗體上顯示三個“OK”

對于上述或類似問題,需要進行重復(fù)計算,重復(fù)次數(shù)各不相同，怎樣進行程序設(shè)計？4）小猴有桃若干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少？循環(huán)結(jié)構(gòu)程序設(shè)計2）求解1*2*3*4*5=？For…Next循環(huán)語句1PARTONEFor語句的一般格式：For循環(huán)變量=初值To終值Step步長

語句塊Next循環(huán)變量For…Next循環(huán)語句For語句主要用于循環(huán)次數(shù)已知的情況，因此也被稱為計數(shù)循環(huán)。For語句的一般格式：For循環(huán)變量=初值To終值Step步長

語句塊Next循環(huán)變量For…Next循環(huán)語句注意：1）格式中的關(guān)鍵字（for/next/to/step）不可做標識符使用。

2）步長是循環(huán)變量的增值，可正可負，省略表示步長為1。3)循環(huán)變量：控制循環(huán)的變量,for和Next的循環(huán)變量必須一致，后者可省。4）初值、終值、循環(huán)變量都必須是數(shù)值表達式。5）循環(huán)體：需要重復(fù)執(zhí)行的程序代碼.PrivateSubCommand1_Click()Text1.Text=""

'清除文本，防止多次單擊多次呈現(xiàn)同樣的結(jié)果

DimiAsInteger'循環(huán)變量必須是數(shù)值型，此處設(shè)為整形，可不定義變量類型

t=0'累加初值為0Fori=3To10Step2

t=t+1'累計循環(huán)次數(shù)

Text1.Text=Text1.Text&vbCrLf&"第"&t&"次循環(huán)中i的值為"&i

'VB的換行符為“vbcrlf”Nexti

'此處i可省略EndSubFor…Next循環(huán)語句代碼演示理解FOR循環(huán)的邏輯Dimi%,s%

Me.Print“s=”;s

例：求s=1+2+3+…+100編程思路：假設(shè)變量s存放累加和,i存放累加數(shù)累加公式：s=s+is初值為0，i依次為1,2,…100編寫代碼Me.Print“i=”;i

s=0

‘賦初始值

Fori=1To100

step1

‘循環(huán)100次

s=s+i‘

實現(xiàn)累加

NextiFor…Next循環(huán)示例Do…Loop循環(huán)語句2PARTONE2.Do…Loop循環(huán)語句【例】猜數(shù)游戲

隨機產(chǎn)生一個1~100之間的整數(shù)，由用戶去猜，猜中即勝。猜不中，顯示提示信息，繼續(xù)猜，直至猜中，顯示相關(guān)信息和次數(shù)。

前測型（當型循環(huán)）

DoWhile/Until條件

循環(huán)體

Loop

先判斷條件值，如果為真，執(zhí)行循環(huán)體，否則退出先判斷條件值，如果為假，執(zhí)行循環(huán)體，直到為真退出

后測型（直到型循環(huán)）

Do

循環(huán)體

LoopWhile/Until條件先執(zhí)行循環(huán)體后判斷條件值，為真繼續(xù)循環(huán)，否則退出先執(zhí)行循環(huán)體后判斷條件值，為假繼續(xù)，直到為真退出2.Do…Loop循環(huán)語句WhileWhilePrivateSubCommand2_Click()Text1.Text=""'清除文本

DimsumAsInteger,iAsIntegersum=0i=1DoWhilei<=10‘DoUntil>10sum=sum+ii=i+1LoopText1.Text=vbCrLf&"1+2+3+....+10="&Str(sum)EndSubDo…Loop循環(huán)語句代碼演繹Do…Loop循環(huán)示例Dims&,i%s=0Fori=1to100

Step1

_______NextiPrint“12+22+…+1002=”;s例：求s=12+22+…+1002思路：采用累加算法使用For循環(huán)語句使用Do循環(huán)語句舉一反三：

s=1*2+2*3+…+20*21

s=1!+2!+…+10!s=s+i*iDims&,i%s=0___DoWhile______s=s+i*i

_____LoopPrint“12+22+…+1002=”;s

i=1i<=100i=i+1循環(huán)結(jié)束語句3PARTONE形式:ExitForExitDo

功能：直接從For循環(huán)或Do循環(huán)中退出。說明：只能放在循環(huán)體中3.循環(huán)結(jié)束語句

Rems=1+2+…+100Dims&,i%s=0Fori=1To100Step1

s=s+i

Ifi=10ThenExitForNextiMe.Print“s=”;sExitDo跳出循環(huán)示例Dimsum!,x!sum=0DoWhileTruex=val(InputBox(“請輸入要加入的數(shù)”,”輸入數(shù)據(jù)”))

ifx=-1thenExitDo

sum=sum+x

Text1.Text=sumLoopMsgBox“累加運算結(jié)束”

例：設(shè)計一個“加法器”程序，把每次輸入的數(shù)累加。當輸入-1時結(jié)束程序的運行。

程序代碼如下：思考：1）Text1.Text=sum為什么要放在循環(huán)體中？

2）如何輸出其中最大的一筆數(shù)據(jù)？綜合應(yīng)用（常用算法）4PARTONE循環(huán)的嵌套——多重循環(huán)結(jié)構(gòu)如果在一個循環(huán)內(nèi)完整地包含另一個循環(huán)結(jié)構(gòu)，則稱為多重循環(huán)，或循環(huán)嵌套幾種常見的二重嵌套形式1）ForI=….…..

ForJ=….….

NextJ…..

NextI2）ForI=….…..DoWhile….….Loop…..NextI3）DoWhile….…..ForJ=….….NextJ…..Loop4）DoWhile….…..DoUntil….….Loop…..Loop注意以下事項：內(nèi)循環(huán)變量與外循環(huán)變量不能同名外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉Dimi%,j%Fori=1To3

Forj=5To7Printi;jNextj Nexti綜合應(yīng)用-求質(zhì)數(shù)例：判斷某整數(shù)n是否為質(zhì)數(shù)（即素數(shù)）。分析：增加一重循環(huán)分析：n/(2~n-1),只要有一個被整除,就不是素數(shù)，否則是素數(shù)。判斷數(shù)n能否被數(shù)j整除的條件：_________Dimn%,j%,m%n=Inputbox(“Inputn=”)

Forj=2ton-1

Ifnmodj=0ThenExitForNextj

Ifj>n-1Then

Printn&“是質(zhì)數(shù)”EndifnModj=0課程小結(jié)與課后作業(yè)5PARTONE幾個問題兩個循環(huán)語句的異同是什么？答案：循環(huán)次數(shù)是否已知DO語句中While/until放在前面和后面的區(qū)別是什么？答案：判斷循環(huán)條件的先后順序不同，前測型可能一次都不循環(huán)，后測型至少運行一次如何將For語句轉(zhuǎn)為Do語句？（舉例說明）答：改變構(gòu)架，賦初值，更改循環(huán)條件，增加循環(huán)變量變化的語句無限循環(huán)的可能原因？答：步長設(shè)置不合理,或未設(shè)置，條件恒成立。DO語句中使用While/until的區(qū)別是什么？答案：兩者條件相反，until不成立才運行課后作業(yè)1.【單選題】下列四個選項循環(huán)語句正確的是（）A.s=0B.

s=0Fori=1to50Fori=1to100 s=s+is=s+iNextjNext

C.s=0D.s=0:i=1Fori=1to50step-1Dowhilei<100 s=s+is=s+i