PAGE1PAGE學生已經掌握VB基本操作和賦值語句、選擇語句的用法，通過信息技術基礎模塊第三章第四節和本模塊第一章的學習，已經了解了循環結構的算法流程，但學生并沒有學習或掌握怎么樣用程序設計語言中的循環語句來實現循環結構算法，而這也是這一節課學習的重點。這節課學生可能會遇到的最大問題有兩個：一是用For語句和Do語句來實現循環結構算法的區別;二是循環語句中由于受傳統數學思維的影響，學生較難理解在循環體中變量值怎么會不斷發生變化。鑒于此，在教學中要積極引導學生采取分解動作、實踐認知、比較遷移等學習策略。在教學中要注意引導學生形成自主學習、合作探究的方法和意識，發揮同伴互助作用，共同提高課堂效率。本節課在教師的引導幫助下，對循環結構以及控制語句都會有比較深刻的認識，全體學生的潛力得到很大限度的挖掘，智力好的學生吃得飽，中等水平的學生吸收得好，差的學生消化得了，學生人人學有所得。課堂教學中充分體現師生平等、教學民主的思想，師生信息交流暢通，情感交流融洽，合作和諧，配合默契，教與學的氣氛濃厚，課堂教學效果較好。教師教得輕松，學生學得愉快。教學內容選自廣東版信息技術（選修1）《算法與程序設計》教材第二章“程序設計基礎”第四節“程序的循環結構”第二部分內容“Do循環語句”。通過本內容的學習，讓學生掌握VB語言中的Do循環語句，使學生學會使用Do循環語句實現循環控制結構，解決比較復雜的實際問題，并初步掌握程序調試、運行的方法。通過本內容的學習，學生學習本模塊的興趣會得到進一步的提高，能夠激發他們運用計算機程序來解決問題的學習熱情。從《課程標準》和《學科教學指導意見》對本課教學內容的要求來看，要求學生能從問題出發，用循環語句實現簡單的算法。對學生來說，理解循環語句用法的難度系數比賦值和選擇語句要高得多，而本課從教材體系和學生認知結構來看，又起到了一個承上起下的作用，是學生程序設計學習一定要突破的一個瓶頸，所以為了使學生在這節課里獲得明確的解題規則和方法，加強實踐環節的訓練應該作為一個教學重點。Do循環練習1.寫下列程序運行結果。(1) s=0 I=1 Whilei<=5 S=s+i Prints; I=i+1 Wend(2) i=10 While7-i PrintI; I=i-1 Wend(3) s=0:n=1 Whilen<s S=s+n N=n+2 Ifn=5thenn=n-1 Wend Prints;n2.程序填空(1)計算：s=20! S=1K=1While_________S=_________K=k+1WendPrint“20!=”;s(2)任意輸出20個數，求最大值 N=1 Inputx Max=x Whilen<=20 Ifmax<xthen________ N=n+1 _________ Wend Printmax(3)s=,N為何值時S大于104 S=0:n=0 Whiles<1E4 ________ S=s+___________ Wend Printx3.下列循環語句能正常結束的是________。A)i=5

B)i=1

Do

Do

i=i+1

i=i+2

LoopUntili<0

LoopUntili=10

C)i=10

D)i=6

Do

Do

i=i-1

i=i-2

LoopUntili<0

LoopUntili=1

4.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a-1

LoopWhilea<=0

Prints;a

EndSub程序運行后，單擊命令按鈕，則窗體上顯示的內容是______。A)7

9

B)340

C)9

7

D)死循環3.下面程序段的執行結果為______。I=4A=5Do

I=I+1

A=A+3LoopUntilI>=9Print"I=";IPrint"A=";AA)I=9

B)I=10

C)I=10

D)I=9A=20

A=20

A=23

A=235.以下能夠正確計算n!的程序是______。A)PrivateSubCommand1_Click()

N=5:X=1

Do

x=x*i

i=i+1

LoopWhilei<n

PrintxEndSubB)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei<n

PrintxEndSubC)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei<=n

PrintxEndSubD)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei>n

PrintxEndSub6.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序運行后，單擊命令按鈕，則窗體上顯示的內容是______。A)1

3.4

5.8

B)1

3

5

C)1

4

7

D)無數據輸出7.執行以下程序段時，______。x=1DoWhile

x<>0

x=x*x

printx;LoopA)循環體將執行1次

B)循環體將執行0次C)循環體將執行無限次

D)系統將提示語法錯誤8.設窗體中包含1個命令按鈕Command1,1個標簽Label1;并有以下的事件過程。程序運行后，單擊Command1按鈕，標簽中顯示的內容是_______。

PrivateSubCommand1_Click()

DimIAsInteger,nAsInteger

I=1:n=0

Do

While

I<10

n=n+I

I=I*(I+1)

Loop

Label1=I&”-”&n

EndSubA)6-3

B)24-9

C)42-9

D)6-99.有如下程序：Do

循環體LoopWhile<條件>則以下敘述中錯誤的是_______。A)若“條件”是一個為0的常數，則一次也不執行循環體B)“條件”可以是關系表達式、邏輯表達式或常數C)循環體中可以使用ExitDo語句D)如果“條件”總是為True，則不停地執行循環體10.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()M1=1

M2=2

DoWhileM2<>5

M1=M1*M2

M2=M2+1

LoopPrint"M1=";M1,"M2=";M2EndSub程序運行后，如果單擊命令按鈕，輸出結果是______。A)M1=24

M2=5

B)M1=1

M2=2C)M1=24

M2=5

D)M1=1

M2=2

11.在窗體上畫兩個文本框(其Name屬性分別為Text1和Text2)和一個命令按鈕(其Name屬性為Commandl)，然后編寫如下事件過程：PrivateSubCommandl_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為______。A)1和0

B)2和72

C)3和50

D)416812.在窗體上畫兩個名稱分別為Text1、Text2的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是______。A)15和1

B)27和3

C)195和3

D)600和413.下列語句組中,不能循環100次的有______。A)N=0DON=N+1LOOPUNTILN>=100B)N=0DON=N+1LOOPWHILEN<100C)N=0DON=N+1LOOPUNTILN<100D)N=0DO

WHILEN<100N=N+1LOOP14.假定有如下事件過程：

PrivateSubForm_Click()

DimxAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub程序運行后，單擊窗體，輸出結果是______。A)81

4

B)56

3

C)28

1

D)243

515.設有如下程序PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

c=4

d=InputBox("請輸入一個整數")

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox("請輸入一個整數")

Loop

Printc+dEndSub程序運行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結果是______。A)12

B)11

C)10

D)916.在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("請輸入a的值")a=Val(A)b=InputBox("請輸入b的值")b=Val(B)

x=InputBox("請輸入x的值")x=Val(x)

a=a+b+xLOOPPrintaEndSub程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，輸出結果為______。A)2

B)3

C)14

D)1517.關于Do…Loop循環結構執行循環體次數的描述正確的是_______。A)DoWhile…Loop循環和Do…LoopUntil循環至少都執行一次

B)DoWhile…Loop循環和Do…LoopUntil循環可能都不執行C)DoWhile…Loop循環至少執行一次，Do…LoopUntil循環可能不執行D)DoWhile…Loop循環可能不執行，Do…LoopUntil循環至少執行一次18.以下程序的功能是：從鍵盤上輸入若干個學生的考試分數，當輸入負數時結束輸入，然后輸出其中的最高分數和最低分數。請在橫線處填入適當的內容，將程序補充完整。PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(“Enterascore”)amax=xamin=xDoWhile_________Ifx>amaxThenAmax=xEndIfIf__________ThenAmin=xEndIfx=InputBox(“Enterascore”)LoopPrint”Max=”;amax,”Min=”;aminEndSub由于錄像的需要，本次課安排在了錄播室，錄播室里沒有足夠的學生機，學生沒法上機，權作“紙上談兵”吧，算作一堂編程理論課，本節課我主要想讓學生能和以前所學結合著來理解循環結構，循序漸進，滲透式學習，為吸引學生，激發學生興趣，我以大富翁游戲，折紙游戲，猜密碼等常見貼近學生生活實際的例子引入，通過編程解決高斯數學求和問題，折紙超過珠穆朗瑪峰，追趕比爾