校本課程-VB入門

校本課程綱領(lǐng)主講：李忠華一、校本課程：VB面向?qū)ο蟮某绦蛟O(shè)計授課資料：創(chuàng)編課程種類：講解型、實驗研究型、活動交流型。授課時間：一學年。授課對象：高一年級中程序設(shè)計的愛好者。二、校本課程的詳盡內(nèi)容：知識與技術(shù)：認識VB對象的屬性與方法，理解事件、事件過程和事件驅(qū)動的看法，認識VB的可視化編程。過程與方法：熟悉VB界面，制作簡單的程序界面，可以經(jīng)過屬性窗口更正對象屬性，認識事件和事件過程的看法并制作出一個小程序。感神態(tài)度與價值觀：經(jīng)過實踐演示并由學生自己著手操作編寫簡單合用小程序，惹起學生學習計算機程序的興趣，從而形成積極主動學習使用計算機解決問題的習慣。校本課程目錄：第一課：我的第一個VB程序第二課編寫程序代碼第三課：認識各國國旗第四課：做個簡單的文本編寫器第五課：“你猜對了嗎”----分支結(jié)構(gòu)的程序設(shè)計第六課：讓飛機飛起來----循環(huán)結(jié)構(gòu)的程序設(shè)計第七課：編譯軟件三、校本課程推行方法和形式：推行方法：授課設(shè)計講解，學生談?wù)摻馕鼍C合實踐。推行形式：教師設(shè)計、組織主持，學生設(shè)計、集體實踐四、校本課程授課談?wù)摚翰糠謱W生談?wù)摚篤B程序設(shè)計是一個比較抽象的看法，不易理解，但在老師的貫穿交融的例證和深入淺出的講解之下，能最大層度的激發(fā)我們的興趣，調(diào)動我們學習參加的積極性。在整個課程中，我們不僅能認識了VB的一些最基本的功能，也能簡單的編寫一些合用的小程序。我想，這也為我們今后進一步的學習打下優(yōu)異的基礎(chǔ)。教師授課自我談?wù)摚罕拘１菊n程是VB面向?qū)ο蟮某绦虿糠?，依照我校學生的自己特點，在教材自己的知識基礎(chǔ)上加入了一些老例對話框的制作，如自然數(shù)相加自然數(shù)的制作，文本框的設(shè)計等等，充分了教材的內(nèi)容，滿足了學生的求知欲隨和奇心，學生基本能全程參加，積極著手。經(jīng)過一學年的學習，學生基本能認識的程序設(shè)計的對象的看法，設(shè)計并制作一些簡單的合用的對象，如仿制操作系統(tǒng)中的文本框，制作文件的保留對話框等等，基本達到了開設(shè)這門課的目的。第一課：我的第一個VB程序用VB來編程序其實不是一件難事，不信請往下看。編寫一個程序，運行時顯示以下界面：圖簡單的VB程序操作步驟以下：一、新建一個工程步驟1：啟動VB5。單擊【開始】→【程序】→【MicrosoftVisualBasic】→【VisualBasic】。步驟2：在新建工程對話框(圖中選擇【標準EXE】。VisualBasic把設(shè)計程序比作興建工程。因此，啟動VB5時第一要新建一個工程或打開一個工程文件。創(chuàng)辦一個新的工程時，VisualBasic將自動創(chuàng)辦一個空窗體，并命名為“Form1”。窗體是程序運行的窗口。圖VB的工作窗口二、在窗體中新建對象控件和對象在VB的窗口中有一個工具箱(一般在左邊)，工具箱中有很多“工具”，稱為控件。單擊工具箱中的控件，爾后在窗體中拖放鼠標，就可以在窗體中繪制詳盡的控件，這些詳盡的控件就稱為對象。圖VB工具箱步驟3：單擊工具箱中的Label（標簽）控件，爾后在窗體中拖放鼠標，窗體中就生成了一個新的對象，對象名為Label1。如圖。三、更正對象的屬性步驟4：選中窗體中的一個對象，屬性窗口就會顯示出這個對象的全部屬性，以下列圖。屬性屬性就是對象的特點。每個對象都有很多屬性。屬性的設(shè)定有兩種方法：方法一：在屬性窗口中更正屬性值；操作方法以下列圖。方法二：經(jīng)過控制代碼來更正屬性值，它的格式為：[對象名].屬性名=屬性值。比方，將對象Label1的Caption屬性更正為“我的第一個VB程序”：=”我的第一個VB程序”Name(名稱)屬性Name屬性用于鑒別窗體、控件等對象。當在窗體中增加一個對象時，其Name屬性的默認值為該對象種類名加上一個數(shù)值。比方：剛剛增加的Label控件的Name屬性值為Label1，若是在窗體中再加一個Label，則被自動命名為Label2，依次類推。【試一試】在窗體中增加一個對象Label2，爾后選定改對象，按<Del>鍵把它刪除。Caption屬性窗體的Caption屬性可以指定標題欄中的文字內(nèi)容，對于控件則指定標題或顯示的文字。當選定了一個控件后，屬性窗口就會顯示該控件的屬性，若是沒有選中控件，那么屬性窗口中將顯示窗體的屬性。步驟5：選中Label1控件，爾后在屬性窗口中選擇Caption屬性，把“Label1”改為“我的第一個VB程序！”(如圖；選中窗體Form1，爾后選擇Caption屬性，將它改為“VB歡迎您”四、運行程序步驟6：點擊工具欄上的運行按鈕，運行程序。圖運行結(jié)果這就是我們制作的第一個VB程序。五、保留程序步驟7：單擊【文件】→【保留工程】保留程序。這時出現(xiàn)“文件另存為”對話框(圖。步驟8：保留窗體。選擇文件夾、輸入文件名，爾后單擊【保留】。此時保留的是Form(窗體)文檔，系統(tǒng)默認的擴展名為“.frm”。接下來出現(xiàn)“工程另存為”對話框(圖。步驟9：保留工程。選擇文件夾、輸入文件名，爾后單擊【保留】。此時保留的是工程文檔，系統(tǒng)默認的擴展名為“.vbp”。VB與前面所用的軟件不同樣，VB程序同時打開了兩個保留對話框，一個是用來保留Form文檔，一個是用來保留工程文檔(以下列圖)。同一個工程里可以有多個Form文檔?！驹囈辉嚒恳勒兆约旱膼酆?，利用Label控件做一個VB程序。六、美化程序界面更正控件的以部下性，可以使程序界面雅觀起來。BackColor、ForeColor屬性BackColor用來設(shè)定控件的背景顏色，F(xiàn)oreColor則用來設(shè)定控件中的文字或圖形的顏色。經(jīng)過這兩個屬性可以改變背景和文字的顏色。如圖，經(jīng)過調(diào)色板把字體的顏色改為紅色。圖調(diào)色板Font屬性Font屬性包括了字體、字形、大小等特點，與WORD的字體屬性對話框近似。圖字體對話框AutoSize屬性當文字變大時，經(jīng)常會發(fā)現(xiàn)Label1的寬度不夠。若是將AutoSize屬性設(shè)置為Ture，那么控件就會隨文字大小的變化而自動變化，向來可以顯示文字內(nèi)容。更正Label控件的Font、AutoSize、BackColor、ForeColor等屬性后，再一次運行程序，感覺就美麗些了(如圖。至此，第一個VB程序就基本做好了。閱讀資料一：Label控件及常用屬性表Label標簽控件，用于顯示文本。下表是它的常用屬性：屬性說明AutoSize控制對象自動調(diào)整大小以適應(yīng)所包括的內(nèi)容BackColor設(shè)置背景顏色BackStyle設(shè)置邊框種類Caption設(shè)置標題Enabled設(shè)置對象可否可用Font設(shè)置或返回字體名稱ForeColor設(shè)置遠景顏色Height設(shè)置對象的高Left設(shè)置對象到窗體左界線的距離Name對象名稱Top設(shè)置對象到窗體頂部界線的距離Width設(shè)置對象的寬度閱讀資料二：在VB工作窗口中，有很多懸浮式的窗口，若是把這些懸浮窗口關(guān)閉了，可以利用“視圖”菜單將它們重新打開，如下圖。圖視圖菜單第二課編寫程序代碼上一節(jié)課，我們經(jīng)過更正對象的屬性做出了一個簡單的程序。但是，要設(shè)計出復(fù)雜一點的程序，還得學習程序設(shè)計的語言。一、事件過程事件所謂事件，就是在程序的運行過程中發(fā)生的事情。比方鼠標單擊、雙擊、搬動，鍵盤按鍵等都是事件。當我們單擊某個按鈕對象時，就會激發(fā)該按鈕對象的鼠標單擊事件。VisualBasic應(yīng)用程序采用事件驅(qū)動的方式來運行。也就是說，只有在事件發(fā)生時，程序才會運行，沒有事情發(fā)生，程序就處于阻滯狀態(tài)。在程序運行過程中發(fā)生的事件，有些是人為操作激發(fā)的，有些是系統(tǒng)激發(fā)的。事件過程在程序的運行過程中，當發(fā)生某一事件時，相應(yīng)的對象就會對該事件產(chǎn)生響應(yīng)，去執(zhí)行一段程序代碼，這段程序代碼就稱為事件過程。VB程序可以監(jiān)測程序運行過程中所發(fā)生的事件。爾后依照所發(fā)生的事件執(zhí)行相應(yīng)的事件過程。用鼠標雙擊窗體或窗體中的某個對象，會打開該對象的事件過程窗口（即程序代碼窗口），以下列圖。圖程序代碼窗口常有的事件有：Click(單擊鼠標)、DblClick(雙擊鼠標)、KeyPress(鍵盤按鍵)、Change(內(nèi)容改變)下面來做一個響應(yīng)鼠標操作的程序。例一：以下列圖，單擊或雙擊圖中的第二行文字，那么第一、二行文字的內(nèi)容就會改變。圖程序界面操作步驟以下：步驟一：新建一個工程。VB會自動新建一個名為Form1的窗體。步驟二：在From1里新建一個Label對象，它默認的名稱為Label1。在屬性窗口中把它的Caption屬性改為“請單擊這個地方！”，并更正文字的顏色與字號。步驟三：在From1里再新建一個Label對象，它默認的名稱為

Label2。把它的

Caption

屬性改為“這是

Label1內(nèi)容改變前！”，更正文字的顏色與字號?，F(xiàn)在我們就可以編寫程序代碼了。步驟四：雙擊Label1控件，系統(tǒng)彈出程序代碼窗口，在事件過程選項中選擇“Click”事件，爾后在事件過程里輸入程序代碼，以下列圖。事件過程有一個固定的格式：PrivateSub控件_事件( )(我們可以在這中間寫程序代碼)EndSub步驟五：依次編寫以下兩個事件過程：對Label1對象的DblClick（鼠標雙擊）事件編寫程序代碼："這是雙擊鼠標左鍵！"對Label1對象的Change（內(nèi)容改變）事件編寫程序代碼：="Label1的內(nèi)容改變了！"這是完滿的代碼窗口內(nèi)容：圖完滿的代碼窗口步驟6：單擊運行按鈕，運行程序。步驟7：點擊“保留”，把程序保留下來。例二：給第一課中的程序做一個按鈕。操作步驟：一、翻動工程文檔步驟1：打開第一課中制作的程序，以下列圖。步驟2：工程資源管理器中，雙擊“窗體”中Form的名稱，打開第一課中制作的Form，以下列圖。圖工程資源管理器步驟3：在窗體中增加一個按鈕控件(CommandButton)，把按鈕的Caption屬性改為“結(jié)束”，字號改為“小四”。如圖。圖做個結(jié)束按鈕步驟4：雙擊按鈕控件，在代碼窗口中輸入“End”，如圖：圖按鈕的代碼窗口代碼“End”是結(jié)束程序運行的意思。步驟5：運行程序。單擊結(jié)束按鈕，程序結(jié)束運行。步驟6：保留程序。【小技巧】若是事件過程中引用了不存在的對象，當程序運行時會顯示錯誤信息。以下列圖。圖程序出錯信息練習1、做一個VB程序。要求：(1)程序界面如圖左圖所示。單擊按鈕時，程序運行畫面如圖右圖所示。點擊"退出"按鈕時退出程序。圖練習示例閱讀資料一：幾個常有的事件：事件名稱功能Change當改變文本框的Text屬性值時產(chǎn)生Change事件Click當用戶在某個對象上單擊鼠標左鍵時產(chǎn)生的事件DblClick當用戶在某個對象上雙擊鼠標左鍵時產(chǎn)生的事件KeyPress當用戶在鍵盤上敲擊某個鍵時產(chǎn)生的事件Resize窗口尺寸發(fā)生變化時自動觸發(fā)Resize事件Timer在計時器中用Interval屬性所規(guī)定的時間段到達時產(chǎn)生的事件閱讀資料二：CommandButton控件及常用屬性CommandButton命令按鈕控件，選擇按鈕即可執(zhí)行相應(yīng)的操作。其常用屬性以下表：屬性BackColorCaptionEnabledFontForeColorHeightLeftNameTopWidth

說明設(shè)置背景顏色設(shè)置標題設(shè)置對象可否可用設(shè)置或返回字體名稱設(shè)置遠景顏色設(shè)置對象的高設(shè)置對象到窗體左界線的距離對象名稱設(shè)置對象到窗體頂部界線的距離設(shè)置對象的寬度第三課：認識各國國旗這一課，我們要編寫一個簡單的程序，教人認識各國國旗。第一來學習VB中的幾個重要屬性：一、Left、Top屬性Left屬性值用來指定對象左邊到窗體左邊邊緣的距離；而Top屬性值指定控件上方到對象上方邊緣的距離。以下列圖。圖Left、Top屬性二、Height、Width屬性Height屬性值用來指定對象的高度，Width屬性值用來指定對象的寬度。這個兩屬性的值確定了一個對象的大小(如圖。圖Height、Width屬性三、Picture

屬性Picture

屬性用于設(shè)置要顯示的圖片文件。

Picture

屬性設(shè)置的三種方法：方法一：在屬性窗口中進行設(shè)置。點擊

Picture

屬性中的

，在“加載圖片”對話框中選綱要加載的圖片文件，以下列圖。圖加載圖片方法二：程序運行時經(jīng)過LoadPicture來設(shè)置，所用的語句是：Picture=LoadPicture("文件路徑與名稱")若是LoadPicture("")中不指明文件的路徑與名稱，將除掉窗體或控件中的圖片。方法三：經(jīng)過剪貼板進行粘貼。先把需要使用的圖片復(fù)制，爾后粘貼到控件或窗體中。【試一試】給窗體Form1增加一個背景。以下列圖。圖加了背景的窗體例一：設(shè)計一個界面以下列圖的程序，當單擊窗體左邊的國家名時，右邊就會顯示這個國家的國旗。操作步驟：步驟1：新建一個窗體，給窗體增加一個背景，以下列圖。步驟2：在窗體中增加一個PictureBox控件，用于顯示國旗。步驟3：在窗體中增加七個OptionButton控件，形成一組單項選擇按鈕，用于選擇國家。7個OptionButton的名稱分別為Option1、Option2Option7。OptionButton(選項按鈕)最常用的兩個屬性為：Caption和Value，其中Caption是用于顯示選項的提示內(nèi)容。Value是用于設(shè)置選項按鈕的狀態(tài)，即選中(True)與沒有選中(False)，而系統(tǒng)默認為False。當單擊某個OptionButton時，它的Value屬性值變成True，而其他OptionButton的Value屬性值變成False。步驟4：編寫代碼。對7個OptionButton控件的Click事件，分別編寫以下列圖代碼：圖認識國旗代碼步驟5：運行程序。步驟6：保留程序。例二：設(shè)計一個以下列圖的圖片閱讀器。圖圖片閱讀器例一設(shè)計的小程序只美麗到程序里固定的圖片，本例設(shè)計的圖片閱讀器可以看到磁盤上的隨妄圖片（Windows可以識其他）。操作步驟以下：步驟1：新建一個窗體；步驟2：在窗體上新建一個驅(qū)動器列表框(Drivelistbox)對象Driver1；步驟3：在窗體中新建一個目錄列表框(Dirlistbox)對象Dir1；步驟4：在窗體中新建一個文件列表框(Filelistbox)對象File1；步驟5：在窗體中新建一個圖像框(Image)對象Image1；步驟6：編寫程序代碼，以下列圖；圖圖片閱讀器代碼當程序運行時，我們可以經(jīng)過三個列表框找到圖片，爾后雙擊圖片文件名顯示圖像（請看圖中的File1_DblClick事件過程）。在VB的控件中除了Form擁有Picture屬性外，PictureBox和Image這兩個控件也有Picture屬性。Image控件供應(yīng)了一個Stretch（伸展）屬性，可以限制圖形顯示在固定的地域中，即圖片的大小會自動變成圖像框的固定大小的大小，這樣會使圖片可以完滿地顯示出來，但缺點是會使圖片產(chǎn)生變形。步驟7：保留程序。練習：做一個簡單的文件閱讀器，要求：在左邊窗口中選擇驅(qū)動器、目錄、文件，在右邊窗口中顯示選定的文件內(nèi)容。在左邊窗口選擇了驅(qū)動器和目錄后，在上方的地址欄處顯示當前的文件地址。如圖：圖閱讀資料：1、PictureBox、Image控件及其常用屬性：PictureBox圖片框控件，用于顯示和編寫圖形；Image圖像控件，用于顯示圖像。其常用屬性以下表：屬性說明AutoSize控制對象自動調(diào)整大小以自適應(yīng)所包括的內(nèi)容(PictureBox)BackColor設(shè)置背景顏色(PictureBox)BackStyle設(shè)置邊框種類Picture設(shè)置欲顯示的圖形文件2、OptionButton控件及其常用屬性：OptionButton選項按鈕，用戶在一組選項中只可選擇其中一個。其常用屬性以下表。屬性CaptionFontPicture

說明設(shè)置標題設(shè)置或返回字體名稱設(shè)置欲顯示的圖形文件Value返回或設(shè)置控件的狀態(tài)3、DriveListBox、DirListBox、FileListBox控件及其常用屬性：DriveListBox驅(qū)動器列表框控件，用于顯示驅(qū)動器盤符。DirListBox目錄列表框控件，用于顯示目錄或文件夾。FileListBox文件列表框控件，用于顯示當前目錄下的文件。其常用屬性以下表：屬性說明Hidden設(shè)置文件列表框中可否含有Hidden文件(隱含文件)Patten設(shè)置文件列表框中將要顯示的文件種類ReadOnly設(shè)置文件列表框中可否能被編寫System設(shè)置文件列表框中可否含有System文件(系統(tǒng)文件)4、LoadPicture函數(shù)將圖形載入到窗體的Picture屬性、PictureBox控件或Image控件。格式：LoadPicture([stringexpression])stringexpression是必要的，為被載入的圖形文件名。5、ChDir語句ChDir語句，改變當前的目錄或文件夾。格式：

ChDirpathpat它指明哪個目錄或文件夾將成為新的缺省目錄或文件夾。path可能會包括驅(qū)動器。若是沒有指定驅(qū)動器，則ChDir在當前的驅(qū)動器上改變?nèi)笔∧夸浕蛭募A。3、ChDrive語句ChDrive語句，改變當前的驅(qū)動器。格式：ChDrivedrivedrive指定一個存在的驅(qū)動器。若是使用零長度的字符串("")，則當前的驅(qū)動器將不會改變。若是drive參數(shù)中有多個字符，則ChDrive只會使用首字母。第四課：做個簡單的文本編寫器大家都用過Windows中的“記事本”程序，學了VB編程后有沒有想過自己著手做一個文本編寫器呢其實這其實不難。下面我們就來做一個以下列圖的簡單文本編寫器。圖文本編寫器操作步驟以下：步驟1：新建一個窗體。步驟2：在窗體中新建一個TextBox對象Text1。在這里，TextBox的作用是用于輸入文本。TextBox對象顯示出來的文字對應(yīng)的是它的Text屬性值，而不是Caption屬性值。將TextBox對象的MultiLine屬性設(shè)置為True，TextBox對象就可以接收多行文本了。步驟3：新建一個Frame(框架)控件，把Frame的Caption屬性改為“字型”。除了有一個TextBox用來給用戶輸入文字外，還可以設(shè)計一些簡單的文字修飾的選項給用戶使用。這里利用復(fù)選框控件CheckBox設(shè)置文本的字型,選項按鈕控件OptionButton設(shè)置文本的字號與顏色。由于在一個窗體中全部的OptionButton按鈕歸為一組，選擇時只能選擇一個。為了能單獨設(shè)置字號與顏色，需要增加Frame(框架)對象來把字號與顏色分開?？蚣艿淖饔檬菍ο蠓纸M。注意：使用Frame進行分組時，必然要先建Frame，爾后在Frame里增加其他的對象，這樣Frame才會起作用.步驟4：在字型Frame中新建三個CheckBox控件(以下列圖)，將它們的名稱分別改為：chkBold、chkItalic、chkUnderline，并將它們的Caption屬性更正為：粗體、斜體、下劃線。步驟5：再建兩個Frame架框，分別把Frame的Caption屬性改為“字號”和“顏色”。在兩個框架中分別建三個OptionButton控件，按圖所示更正其Caption屬性。步驟6：編寫程序代碼分別對有關(guān)對象的Click事件編寫程序代碼：更正字型更正字型的屬性有：FontBold(粗體)、FontItalic(斜體)、FontUnderline(下劃線)。比方將Text1控件的字型設(shè)置為黑體：=True本例中我們使用CheckBox對象來改變字型，當選中復(fù)選框chkBold時，的值為True，否則為False。代碼應(yīng)該這樣寫：=chkBold對象的Click事件過程以下：PrivateSubchkBold_Click( )=EndSub更正字號更正字號的屬性為FontSize，比方將Text1控件的字號設(shè)置為16：=16更正顏色字體的顏色屬性為ForeColor，比方將Text1中的字變成紅色，代碼可以這樣寫：=vbRed其中vbRed表示紅色。（依次類推：vbWhite表示白色、vbBlack表示黑色）程序運行時，就可以在Text框里輸入文本。點擊字體、字號、顏色就可以改變文本的各個屬性。下面來給文本編寫器做菜單。步驟7：單擊【工具】→【菜單編寫器】打開菜單編寫器(如圖。圖菜單編寫器步驟8：在“標題”中填寫菜單的選項名稱。步驟9：在“名稱”中填寫對應(yīng)的事件名稱。步驟10：經(jīng)過上、下、左、右鍵來調(diào)整菜單的地址。下一級的子菜單也可以經(jīng)過這個編寫器來達成。如圖：圖中的“文件”、“字型”、“字號”等頂頭的文字表示一級菜單，而“退出”是“文件”的子菜單；“粗體”、“斜體”、“下劃線”是“字型”的子菜單。也就是說當我們輸入完“文件”后，點【下一個】直接輸入下一級子菜單的名稱，爾后點按向右的按鈕，就可以把“退出”看作“文件”的子菜單了！步驟11：單擊【確定】達成菜單的編寫。步驟12：對菜單事件編程。在窗體上點擊需要編程的菜單項選擇項，就會彈出對應(yīng)的菜單的事件代碼窗口。爾后在代碼窗口里編寫需要的語句。比方：菜單【文件】→【退出】是退出程序，那么我們就可以在代碼窗口里寫上“End”語句：PrivateSubexit_Click( )EndEndSub若是在菜單項后邊加上(&)就可以定義熱鍵。比方：退出(&X)，在菜單上顯示出來的就是：退出(X)。程序運行時，我們可以按Alt鍵打開菜單，爾后按對應(yīng)的熱鍵來進行菜單的操作。步驟13：運行程序，利用菜單對文字進行修飾。步驟14：保留程序。練習：模擬Windows的記事本程序，設(shè)計一個與記事本界面、功能周邊的程序。閱讀資料：1、CheckBox控件及其常用屬性CheckBox復(fù)選框控件，用戶可以一次選擇多個復(fù)選框項。其常用屬性說明以下表：屬性說明Caption設(shè)置標題Value返回或設(shè)置控件的狀態(tài)2、Frame控件及其常用屬性Frame框架控件，可以將其他控件放在其中并按類對控件分組。其常用屬性說明以下表：屬性說明Caption設(shè)置標題3、TextBox控件及其常用屬性TextBox文本框控件，用于輸入和顯示文本。其常用屬性說明以下表：屬性說明BorderStyle設(shè)置對象的邊框樣式MultiLine設(shè)置可否可以接受多行文本PasswordChar設(shè)置一個值，決定可否在控件中顯示用戶鍵入字符或保留區(qū)字Text設(shè)置控件中包括的文本ToolTipText設(shè)置當鼠標在控件上暫停時顯示的文本1.

FontItalic(

斜體)、FontUnderline(

文字的四個屬性：FontBold(下劃線)、FontSize(字號)

粗體)、第五課：“你猜對了嗎”----分支結(jié)構(gòu)的程序設(shè)計用VB編寫的程序，依照程序運行的序次可以分為三種基本結(jié)構(gòu)：序次結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。序次結(jié)構(gòu)的程序，程序的運行的序次是從前面到后邊逐句執(zhí)行的，以下列圖：圖序次結(jié)構(gòu)程序流程圖分支結(jié)構(gòu)的程序，是依照條件的成立與否來決定程序執(zhí)行的序次，以下列圖，若是條件成立就會執(zhí)行語句塊1，不會執(zhí)行語句塊2，同樣，若是條件不成立就會執(zhí)行語句塊2，而不會執(zhí)行語句塊1.圖分支結(jié)構(gòu)程序流程圖分支結(jié)構(gòu)又稱為選擇結(jié)構(gòu)。循環(huán)結(jié)構(gòu)的程序，是依照條件成立與否，來決定可否重復(fù)執(zhí)行某一段程序，以下列圖：若是條件成立，則執(zhí)行“語句塊”，執(zhí)行完“語句塊”后，又重新檢查條件可否還成立，若成立則再一次執(zhí)行“語句塊”，否則程序?qū)⑥D(zhuǎn)去執(zhí)行循環(huán)結(jié)構(gòu)后邊的語句。圖循環(huán)結(jié)構(gòu)程序流程圖一般情況下，程序都是依照序次結(jié)構(gòu)的方式運行的，

除非碰上改變程序運行方向的語句。

這一節(jié)課我們就來學習編寫分支結(jié)構(gòu)的程序。例一：編寫一個判斷題程序，以下列圖。當單擊“確定”按鈕時顯示你的選擇是對還

是錯。操作步驟以下：步驟1：新建一個工程。步驟2：在Form中新建2個Label對象，用于顯示題目。步驟3：新建兩個OptionButton，用于顯示選擇題答案。步驟4：新建一個CommandButton對象Command1，用于提交答案。步驟5：編寫程序代碼。當單擊“確定”按鈕時，需要判斷你的選擇是對還是錯。其判斷過程以下：圖在VB里，平時使用“TFTHEN”語句來實現(xiàn)一個程序的轉(zhuǎn)向。簡單的“TFTHEN”語句的格式以下：If<條件>Then<語句1>[Else<語句2>]Endif上述語句稱為條件分支語句，中括號括住的語句可以省略?！癟FTHEN”語句的含義是：若是<條件>條件表達式成立，則執(zhí)行<語句1>，否則，執(zhí)行<語句2>。我們在“確定”按鈕的Click事件中編寫以下代碼：PrivateSubCommand1_Click( )If=TrueThenMsgBox“答對了”,vbOkOnly,“選擇結(jié)果”EndEndIfIf=TrueThenMsgBox“答錯了”,vbOkOnly,“選擇結(jié)果”EndIfEndSub程序中用了兩個IFTHEN語句，也可以簡化成一個：以上的事件過程也可以簡化以下：PrivateSubCommand1_Click( )If=TrueThenMsgBox“答對了”,vbOkOnly,“選擇結(jié)果”EndElseMsgBox“答錯了”,vbOkOnly,“選擇結(jié)果”EndIfEndSub一般情況下，一個IF的后邊都要跟一個ENDIF，但也有特其他，比方：IFa=1THENb=2也就是說，若是IF后邊只有一條語句，可以在ENDIF；但若是你需要換行，那么就必定要有一個

THEN后直接寫語句而不用換行，也不用寫ENDIF。在上述事件過程中使用了MsgBox語句，MsgBox的使用格式為：MsgBoxprompt[,buttons][,title]其中：Prompt是必要的，表示對話框里要顯示的提示內(nèi)容。Buttons是可選的，指定顯示按鈕的數(shù)目及形式；Title也是可選的，在對話框標題欄中顯示的標題內(nèi)容。比方，執(zhí)行代碼：MsgBox“答對了”,vbOkOnly,“選擇結(jié)果”屏幕將會顯示以下列圖對話框：圖例二：設(shè)計一個以下列圖的“口算比賽”程序操作步驟：步驟1：新建一個工程。步驟2：在窗體中新建八個Label，分別用于顯示標題、題目、正誤、成績。步驟3：新建一個TextBox對象Text1，用于接收答案。步驟4：新建一個CommandButton對象Command1，用于提交答案。步驟5：編寫程序代碼。1、隨機生成題目在窗體的Load事件中編寫以下代碼：PrivateSubForm_Load( )Randomize=Int(Rnd*99+1)=Int(Rnd*99+1)EndSub程序中用到了RND函數(shù)，RND函數(shù)稱為隨機函數(shù)，它隨機產(chǎn)生一個RND*99相當于一個介于0~99之間的小數(shù)。

0~1之間的小數(shù)。因此，RND函數(shù)有一個特點，每次運行程序都會返回同樣的數(shù)，為了防備這個現(xiàn)象的出現(xiàn)，需要在RND函數(shù)使用從前執(zhí)行Randomize語句。INT（X）函數(shù)稱為取整函數(shù)，它的作用就是對一個小于或等于100的自然數(shù)。

X取整。因此表達式

Int(Rnd*99+1)

產(chǎn)生2、接收學生輸入的答案Text1可以接收用戶輸入的數(shù)據(jù)，用它來接收學生輸入的答案。3、判斷答案的正誤當學生輸入答案并點擊了確定按鈕，程序就對學生輸入的答案進行判斷。因此對“確定”按鈕的Click事件編寫以下代碼：IfVal(Text1)=Val(Label1)+Val(Label3)Then"√"Else"×"EndIf由于輸入到TextBox中的全部是字符，但要計算的結(jié)果倒是數(shù)字，因此必定把數(shù)字字符轉(zhuǎn)變成為數(shù)值數(shù)字。這樣就需要用到一個變換函數(shù)：Val( )函數(shù)，它的作用是將一個數(shù)字字符變換成為相等的數(shù)值。4、記錄學生的成績在程序的執(zhí)行時期，可能有些中間結(jié)果需要保留起來，這時需要使用變量到臨時儲藏這些結(jié)果。將運算結(jié)果臨時儲藏到變量中可以使用賦值語句，其格式是：<變量>=<表達式>比方：X=3+5，就是將3+5的運算結(jié)果保留到變量X中。要特別說明的是，這里的“=”號叫做賦值號，其含義是把右邊表達式的值賦給左邊的變量，與數(shù)學上的“=”號含義不一樣。變量的名稱必定是以英文字母開頭，可以使用字母和數(shù)字來作為變量的名稱。當學生回答正確時，程序自動將學生的成績加10分，回答錯誤就減5分。為此，我們就得使用一個變量cj來記錄學生的成績。若是學生做對了，就把原來的成績cj加上10分，爾后再儲藏在變量cj中，用語句表示就是這樣的：cj=cj+10若是做錯了，則：cj=cj-5這樣一來，源代碼就變成：PrivateSubCommand1_Click( )IfVal(Text1)=Val(Label1)+Val(Label3)Then"√"cj=cj+10Else"×"cj=cj-5EndIfcjInt(Rnd*99+1)Int(Rnd*99+1)EndSub練習：1、設(shè)計一個一位數(shù)乘一位數(shù)的口算練習程序。2、設(shè)計一個人和計算機玩石頭、剪刀、布的游戲程序。提示：利用RND函數(shù)來確定電腦出拳，爾后用變量記錄自己的出拳，最后比較兩個出拳，得出勝敗。閱讀資料：1、變量聲明在VB中，要使用變量，一般要利用DIM語句對變量進行聲明。變量的聲明寫在程序的開始部分。其格式為：DIM變量名稱(As數(shù)據(jù)種類)如圖，將a聲明為整數(shù)型變量。圖變量的聲明2、數(shù)據(jù)種類表數(shù)據(jù)種類取值范圍Byte0-255整型Integer-32768-32767Long-數(shù)值型Single實型字符串String兩個字符一個字節(jié)布爾型BooleanTrue、False日期型Date100年1月1日至9999年12月31日注：若是沒有注明數(shù)據(jù)種類則被聲明為Variant種類。第六課：讓飛機飛起來----循環(huán)結(jié)構(gòu)的程序設(shè)計這一節(jié)課，我們要設(shè)計一個飛機翱翔的程序，以下列圖。設(shè)計的思路是，使飛機的顯示地址不斷地往前移，產(chǎn)生一種翱翔的收效。為了模擬飛機不斷地往前搬動的過程，需要使用一個新的語句:FoxNext，這就是一個循環(huán)結(jié)構(gòu)語句。FORNEXT語句FORNEXT的語句格式為：FOR<循環(huán)變量>=<初值>TO<終值>STEP<步長><循環(huán)體>NEXT<循環(huán)變量>ForNext語句運行的流程以下列圖。圖循環(huán)結(jié)構(gòu)程序流程圖比方，下面是一個求1+2+3++99+100的簡單程序：Dimcounter,nSumnSum=0Forcounter=1to100Step1nSum=nSum+counterNextcounter程序運行的結(jié)果是，變量nSum的值變成5050，變量counter的值變成101.FOR與NEXT是一對語句，必定成對出現(xiàn)，循環(huán)變量用于控制循環(huán)體的循環(huán)，循環(huán)的次數(shù)由初值、終值與步長