碰壁的小球(張振永)

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

2、中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計(jì)條件判斷結(jié)構(gòu)IfThenElse中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計(jì)IfThenElse語(yǔ)句：語(yǔ)句：一、格式：一、格式： 單行式：?jiǎn)涡惺剑?If 條件條件 Then 語(yǔ)句語(yǔ)句A Else 語(yǔ)句語(yǔ)句B 例例1： If a=b Then s=1 Else s=-1 區(qū)塊式：區(qū)塊式： If 條件條件 Then 語(yǔ)句塊語(yǔ)句塊A Else 語(yǔ)句塊語(yǔ)句塊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、計(jì)你看出單行式和區(qū)塊式語(yǔ)句的區(qū)別了嗎？你看出單行式和區(qū)塊式語(yǔ)句的區(qū)別了嗎？單行式IF語(yǔ)句必須在一行內(nèi)寫完單行沒有End If，而區(qū)塊必須用End If結(jié)束中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計(jì) 練練 一一 練練1、如果a+b值大于20，則輸出a+b的值，否則輸出ab的值。（單行式） 2、如果a和b的同時(shí)大于10，則輸出a+b的值，否則輸出ab的值。（區(qū)塊式） 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計(jì)如圖：如何使小球不消失，在窗體中來(lái)回運(yùn)動(dòng)。 中等職業(yè)學(xué)校-Visual Basic 程序設(shè)計(jì)判斷小球的Left屬性與窗體的ScaleWith屬性的關(guān)系，能夠得出小球是否碰壁。這里面

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

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