第一節(jié)程序設(shè)計(jì)簡(jiǎn)介-縱冉

第一節(jié)程序設(shè)計(jì)簡(jiǎn)介第2課時(shí)學(xué)習(xí)目標(biāo)認(rèn)識(shí)VisualBasic操作界面、了解VB工具箱里常用的控件及功能了解用VB編寫程序的步驟根據(jù)“求圓面積”程序了解面向?qū)ο蟪绦蛟O(shè)計(jì)中對(duì)象的“三要素”編寫“涂鴉”程序，鞏固對(duì)對(duì)象“三要素”的認(rèn)識(shí)認(rèn)識(shí)VB操作界面雙擊打開VisualBasic啟動(dòng)后彈出該對(duì)話框，選擇標(biāo)準(zhǔn)EXE單擊“打開”按鈕。認(rèn)識(shí)VB操作界面標(biāo)題欄菜單欄常用工具欄工具箱窗體工程資源管理器屬性窗口窗體布局工具箱常用控件選擇工具標(biāo)簽工具圖像工具文本框工具按鈕工具一起來做個(gè)小程序吧使用VB編寫程序的基本步驟：建立程序界面、設(shè)置對(duì)象屬性、編寫程序、保存程序、運(yùn)行與調(diào)試程序建立程序界面標(biāo)簽使用按鈕添加文本框使用按鈕添加按鈕使用按鈕添加先在窗體上建立程序界面設(shè)置各個(gè)對(duì)象的屬性選中的對(duì)象不同，屬性窗口中的屬性也不一樣。當(dāng)前選中的是窗體對(duì)照課本P86上的表格，設(shè)置程序界面各對(duì)象的屬性。編寫程序代碼PrivateSubCommand1_Click()Letr=Text1.TextLets=3.1416*r*rLetl=2*3.1416*rText2.Text=sText3.Text=lEndSub在窗體中雙擊“計(jì)算”按鈕，進(jìn)入代碼窗口，編寫程序如下：該行程序自動(dòng)生成該行程序自動(dòng)生成該部分為我們編寫的程序。注意：一行一條語句縮進(jìn)是編寫程序時(shí)要養(yǎng)成的好習(xí)慣，使代碼更清晰易讀。按鈕1的click事件編寫程序代碼PrivateSubCommand2_Click()EndEndSub在窗體中雙擊“退出”按鈕，進(jìn)入代碼窗口，編寫程序如下：該行程序自動(dòng)生成該行程序自動(dòng)生成該部分為我們編寫的程序程序編寫完成后，單擊保存工程文件。按鈕2的click事件測(cè)試程序按鍵盤上的F5鍵或單擊常用工具欄上的圖標(biāo)運(yùn)行程序。填入數(shù)值，計(jì)算出結(jié)果按退出鍵退出程序常見錯(cuò)誤拼寫錯(cuò)誤，一般會(huì)用紅色表示出來。將程序代碼寫到其他事件中去，程序無法按照設(shè)定運(yùn)行。面向?qū)ο蟪绦蛟O(shè)計(jì)通過上面一個(gè)例子，我們可以發(fā)現(xiàn)該程序是由窗體、按鈕、文本框、標(biāo)簽等對(duì)象構(gòu)成。面向?qū)ο蟪绦蛟O(shè)計(jì)思想是將對(duì)象作為程序的基本單位，編程就是用對(duì)象組裝程序。VB中的對(duì)象有各自的屬性、事件和方法，我們稱之為對(duì)象的三要素。

屬性：決定了對(duì)象的具體特征。如大小、位置、顏色等。

事件：在求圓面積程序中輸入半徑之后，必須單擊“計(jì)算”按鈕才會(huì)執(zhí)行存放在按鈕對(duì)象中的程序。這種單擊動(dòng)作稱為對(duì)象的事件。一個(gè)對(duì)象可以響應(yīng)多種事件。如：?jiǎn)螕簦╟lick）、雙擊（dblclick）、按鍵（keypress）、載入窗體（load）等。

方法：在VB中，請(qǐng)多對(duì)象內(nèi)部封裝了現(xiàn)成的、可以直接調(diào)用的程序，這些程序稱為方法。不同的對(duì)象包含不同的方法。例如窗體對(duì)象包含print、circle、line、cls等。探究學(xué)習(xí)—“涂鴉”程序課本第88頁，全部是由窗體的不同事件來激發(fā)相應(yīng)的程序，程序共分三段：第一段PrivateSubForm_DblClick()Form1.ClsEndSub窗體的dblclick(雙擊)事件在此處選擇dblclick事件選擇窗體對(duì)象窗體cls(清屏)方法第二段PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Form1.CurrentX=XForm1.CurrentY=YEndSub窗體對(duì)象選擇mousedown事件窗體的mousedown(鼠標(biāo)左鍵按下)事件將當(dāng)前鼠標(biāo)X坐標(biāo)賦值給X，鼠標(biāo)Y坐標(biāo)賦值給Y。第三段PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenForm1.Line-(X,Y)EndSub窗體對(duì)象選擇mousemove