編寫第1個程序課件

第二章：

編寫第1個程序第二章：

編寫第1個程序本章學(xué)習(xí)目標(biāo)創(chuàng)建新程序的用戶界面為用戶界面中的各個對象設(shè)置屬性編寫程序代碼保存和運(yùn)行程序建立可執(zhí)行文件本章學(xué)習(xí)目標(biāo)2.1第一個VB程序：LuckySeven2.1第一個VB程序：LuckySeven2.2編程步驟VB中基本的編程步驟創(chuàng)建用戶界面設(shè)置屬性編寫程序代碼本程序需要創(chuàng)建7個對象設(shè)置13個屬性編寫2個對象的代碼2.2編程步驟VB中基本的編程步驟本程序需要2.3創(chuàng)建用戶界面創(chuàng)建新項(xiàng)目：啟動Visualstudio2005[文件]菜單下，選擇[新建項(xiàng)目]。在[項(xiàng)目類型]中，選擇[VisualBasic]下的[windows]在[模板]選項(xiàng)中，選擇[Windows應(yīng)用程序]。在[名稱]中，輸入MyLucky7單擊[確定]，創(chuàng)建新項(xiàng)目。2.3創(chuàng)建用戶界面創(chuàng)建新項(xiàng)目：第二章：編寫第1個程序課件創(chuàng)建用戶界面調(diào)整窗體大小，可用鼠標(biāo)調(diào)整大小，或在屬性中調(diào)整大小，為485像素*278像素。創(chuàng)建用戶界面單擊[工具箱]標(biāo)簽，或從[視圖]菜單下選擇[工具箱]，顯示工具箱雙擊Button控件。 （設(shè)計(jì)模式時，可以改變界面元素，程序運(yùn)行時無法移動界面元素，除非在程序中修改屬性）單擊[工具箱]標(biāo)簽，或從[視圖]菜單下選擇[工具箱]，顯示工添加第2個按鈕 單擊[Button]控件，把鼠標(biāo)移動到窗體上，拖動釋放后，生成新按鈕。調(diào)整大小，使其基本與第1個按鈕一樣，并對齊。添加第2個按鈕添加數(shù)字標(biāo)簽雙擊[Label]控件調(diào)整位置，并拖到兩個按鈕對象右邊同樣方法創(chuàng)建label2,label3,label4控件，并按圖所示放置。添加數(shù)字標(biāo)簽添加圖片單擊[PictureBox]控件，拖拉出一個大的矩形框，在標(biāo)簽下留一定空間，用于顯示數(shù)字。添加圖片2.4設(shè)置屬性設(shè)置按鈕屬性選中Button1按鈕在屬性窗口中，找到[Text]屬性，雙擊將Button1改為Spin,回車（enter鍵）2.4設(shè)置屬性設(shè)置按鈕屬性打開屬性窗口頂部的[對象]下拉框，單擊如圖所示的Button2…將其Text屬性改為End,回車打開屬性窗口頂部的[對象]下拉框，設(shè)置數(shù)字標(biāo)簽屬性單擊label1,按住[shift]鍵，再單擊label2,label3,釋放[shift]鍵。將[AutoSize]屬性改為False將[TextAlign]屬性改為MiddleCenter,就是圖形中中間部分。將[BorderStyle]屬性改為FixedSingle將[Font]屬性改為TimesNewRoman,字形為[粗體]，字號為24磅，并單擊[確定]。單擊窗體空白區(qū)域，取消對3個標(biāo)簽的選擇，再單擊Label1標(biāo)簽。將[Text]屬性改為0，同樣將label2,label3的Text屬性改為0.根據(jù)需要調(diào)整大小及位置設(shè)置數(shù)字標(biāo)簽屬性第二章：編寫第1個程序課件設(shè)置說明標(biāo)簽的屬性單擊Label4對象將[Text]屬性改為LuckySeven單擊[Font]屬性，將字體改為Arial,字形[粗體]，字號18，單擊[確定]按鈕單擊[foreColor]屬性，改為自定義選項(xiàng)卡上的紫色設(shè)置說明標(biāo)簽的屬性圖片框?qū)傩許izeMode屬性：如何匹配圖像的大小Image屬性：用于裝載到圖片框中的圖形文件名稱Visible屬性：圖片的可視狀態(tài)。圖片框?qū)傩栽O(shè)置圖片框?qū)傩詥螕魣D片框?qū)ο筮x擇[SizeMode]屬性，改為StrechImage.表示會對加載進(jìn)來的圖片大小進(jìn)行調(diào)整，以和圖片框的尺寸相符。選擇[Image]屬性，單擊省略號按鈕，出現(xiàn)[選擇資源]對話框在對話框中選擇[本地資源]，單擊[導(dǎo)入]按鈕，找到C:\vb05sbs\chap02文件夾，選擇PayCoins.jpg,單擊[打開]按鈕。單擊[確定]按鈕調(diào)整圖片框?qū)ο蟮拇笮∫员苊鈭D片變形?？烧{(diào)整為148像素*138像素。設(shè)置圖片框?qū)傩园裑visible]屬性改為false.使程序開始運(yùn)行時看不到圖像。把[visible]屬性改為false.使程序開始運(yùn)行時看不第二章：編寫第1個程序課件2.5編寫代碼寫代碼重要的是你的計(jì)算邏輯。將你的想法以程序代碼的形式表現(xiàn)出來。將用戶界面上的要素與程序代碼聯(lián)系在一起，實(shí)現(xiàn)各個功能。2.5編寫代碼寫代碼重要的是你的計(jì)算邏輯。將你的想法以程序使用代碼編輯器雙擊窗體上的End按鈕。 一起用于實(shí)現(xiàn)某個動作的程序語句一般被組合到一個編程結(jié)構(gòu)中，這個結(jié)構(gòu)被稱為過程，常用的過程類型是Sub過程，以sub關(guān)鍵字開始，以EndSub結(jié)束。 當(dāng)特定事件發(fā)生時，一般會執(zhí)行過程，當(dāng)過程與一個特定對象和事件聯(lián)系起來時，過程又被稱為事件處理程序或事件過程。

輸入End,回車(VB中End命令退出程序）使用代碼編輯器為Spin按鈕編寫代碼單擊[解決方案資源管理器]中的[查看設(shè)計(jì)器]，再次顯示窗體。雙擊Spin按鈕在Privatesub和EndSub之間輸入以下的代碼。

PictureBox1.Visible=False'隱藏圖片

Label1.Text=CStr(Int(Rnd()*10))'選擇數(shù)字

Label2.Text=CStr(Int(Rnd()*10))Label3.Text=CStr(Int(Rnd()*10))'如果任一個數(shù)字為則顯示圖片并發(fā)出響聲

If(Label1.Text="7")Or(Label2.Text="7")_Or(Label3.Text="7")ThenPictureBox1.Visible=TrueBeep()EndIf為Spin按鈕編寫代碼PictureBox1單擊[文件]菜單下的[全部保存]命令，將添加的代碼保存到程序中。選擇合適的保存位置。單擊[文件]菜單下的[全部保存]命令，將添加的代碼保存到程序Button1_click過程解釋這句由兩部分組成，一條程序語句和一條注釋。Picturebox1.Visible=False,把圖片框?qū)ο蟮腣isible屬性改為false.（利用這句代碼思考面向?qū)ο蟪绦蛑袑ο?、屬性這兩個概念）VB中用單引號進(jìn)行注釋，注釋在程序員中有著重要的作用，可以增強(qiáng)程序的可讀性。

PictureBox1.Visible=False'隱藏圖片Button1_click過程解釋PictuRnd():產(chǎn)生0到1之間的隨機(jī)數(shù)Int():將數(shù)值四舍五入得到整數(shù)CStr:將數(shù)值轉(zhuǎn)換為字符串的函數(shù)

Label1.Text=CStr(Int(Rnd()*10))'選擇數(shù)字

Label2.Text=CStr(Int(Rnd()*10))Label3.Text=CStr(Int(Rnd()*10))Label1.Text=CStr(Int判斷是否有某個label的數(shù)值等于7，有則宣布獲勝，將圖形顯示出來。并響鈴獲勝。Beep()：響鈴'如果任一個數(shù)字為則顯示圖片并發(fā)出響聲

If(Label1.Text="7")Or(Label2.Text="7")_Or(Label3.Text="7")ThenPictureBox1.Visible=TrueBeep()EndIf判斷是否有某個label的數(shù)值等于7，有則宣布獲勝，將圖形顯2.6運(yùn)行VB應(yīng)用程序單擊[啟動調(diào)試]按鈕，或單擊[調(diào)試]菜單下的[啟動調(diào)試]命令，或按F5鍵，運(yùn)行程序，看結(jié)果是否正確。2.6運(yùn)行VB應(yīng)用程序單擊[啟動調(diào)試]按鈕，或單擊[調(diào)試]2.7創(chuàng)建可執(zhí)行文件Visualstudio創(chuàng)建的windows應(yīng)用程序具有.exe的擴(kuò)展名，可在常用的系統(tǒng)上運(yùn)行。Visualstudio為項(xiàng)目創(chuàng)建兩種類型的可執(zhí)行文件，調(diào)試版本和發(fā)布版本調(diào)試版本，在用戶創(chuàng)建或測試程序時，會自動創(chuàng)建，放在項(xiàng)目文件夾下的bin\debug中，運(yùn)行速度較慢發(fā)布版本，