碰壁的小球(張振永)

1、中等職業(yè)學(xué)校- Visual Basic程序設(shè)計昌黎職業(yè)技術(shù)教育中心 張振永中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計提問： 1、程序中出現(xiàn)了哪些控件和屬性? 形狀控件 定時器 按鈕 （left屬性） （Timer事件） （Click事件) 2、我們用的什么樣的結(jié)構(gòu)來實現(xiàn)的順序結(jié)構(gòu) 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計程序中有沒有出現(xiàn)我們不想得到的結(jié)果？ 小球到達窗體邊緣時消失不見了我們有沒有什么方法可以實現(xiàn)讓小球不消失，而在窗體間來回運動呢？ 判斷小球到窗體邊緣改變運動方向 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計 輕松一輕松一下下想一想：我在這個游戲中都作了什么？

2、中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計條件判斷結(jié)構(gòu)IfThenElse中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計IfThenElse語句：語句：一、格式：一、格式： 單行式：單行式： If 條件條件 Then 語句語句A Else 語句語句B 例例1： If a=b Then s=1 Else s=-1 區(qū)塊式：區(qū)塊式： If 條件條件 Then 語句塊語句塊A Else 語句塊語句塊B End if 例例2： If d=10 and d=100 Then count=count+1 Else count=count1 End If中等職業(yè)學(xué)校-Visual Basic 程序設(shè)

3、計你看出單行式和區(qū)塊式語句的區(qū)別了嗎？你看出單行式和區(qū)塊式語句的區(qū)別了嗎？單行式IF語句必須在一行內(nèi)寫完單行沒有End If，而區(qū)塊必須用End If結(jié)束中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計 練練 一一 練練1、如果a+b值大于20，則輸出a+b的值，否則輸出ab的值。（單行式） 2、如果a和b的同時大于10，則輸出a+b的值，否則輸出ab的值。（區(qū)塊式） 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計如圖：如何使小球不消失，在窗體中來回運動。 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計判斷小球的Left屬性與窗體的ScaleWith屬性的關(guān)系，能夠得出小球是否碰壁。這里面

4、是否還需要其他的屬性？怎么才能使小球到達窗體邊緣時，往回運動，我們判斷的依據(jù)是什么？定時器有開關(guān)，小球運動時需要開關(guān)嗎？如果需要怎么設(shè)置？中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計 讓我們以熱烈的掌聲歡迎讓我們以熱烈的掌聲歡迎 一位同學(xué)輸入自己的程序代碼。一位同學(xué)輸入自己的程序代碼。中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計1、IfThenElse為關(guān)鍵字，中文含義為：為關(guān)鍵字，中文含義為：如果如果那么那么否則。否則。2、條件為結(jié)果為邏輯型數(shù)據(jù)的關(guān)系表達式或、條件為結(jié)果為邏輯型數(shù)據(jù)的關(guān)系表達式或邏輯表達式。邏輯表達式。3、關(guān)鍵字、關(guān)鍵字Else后的內(nèi)容可有可無。后的內(nèi)容可有可無。

5、4、行、行If語句格式就比較簡單，語句格式就比較簡單，Then后寫語句后寫語句或表達式，但必須在一行內(nèi)寫完，省去了或表達式，但必須在一行內(nèi)寫完，省去了End If語句；當然，執(zhí)行完畢后，程序轉(zhuǎn)向語句；當然，執(zhí)行完畢后，程序轉(zhuǎn)向行行If語句的后繼（或后面）語句；語句的后繼（或后面）語句； 5、塊、塊If語句的語句的Then后不能有任何語句或表達后不能有任何語句或表達式，且最后必須有式，且最后必須有EndIf結(jié)尾。結(jié)尾。小結(jié)小結(jié)中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計 將小球碰壁程序進行修改，實現(xiàn)小球在兩條將小球碰壁程序進行修改，實現(xiàn)小球在兩條線之間運動。線之間運動。（提示：線的位置屬性）（提示：線的位置屬性）小