第三章簡(jiǎn)單程序設(shè)計(jì)3.2

VB環(huán)境下應(yīng)用程序開發(fā)步驟3.1VisualBasic語句

3.3應(yīng)用示例20142023/3/41創(chuàng)建程序的用戶界面設(shè)置界面上各個(gè)對(duì)象的屬性編寫對(duì)象響應(yīng)事件的程序代碼保存工程測(cè)試、調(diào)試應(yīng)用程序創(chuàng)建可執(zhí)行程序制作安裝程序3.2VB環(huán)境下應(yīng)用程序開發(fā)步驟

2023/3/42新建一個(gè)工程，實(shí)現(xiàn)如下功能，鼠標(biāo)單擊Form1窗體，標(biāo)簽上顯示“Youhaveclickedtheform1！”（運(yùn)行結(jié)果見下圖）開發(fā)步驟示例2023/3/43開發(fā)步驟——界面及屬性設(shè)置（1）設(shè)計(jì)放置一個(gè)標(biāo)簽控件的窗體；（2）設(shè)置標(biāo)簽控件屬性-字體、字號(hào)、顏色等2023/3/44設(shè)計(jì)步驟1.設(shè)計(jì)用戶界面。包括：一個(gè)窗體，一個(gè)標(biāo)簽，屬性設(shè)置如下表所示。對(duì)象屬性屬性值Form1Caption實(shí)驗(yàn)1_1NamefrmExe1_1Width5000Height4000Left300Top300BackColor藍(lán)色ForeColor黃色LabelCaption歡迎！NamelblDisplayFont2號(hào)、宋體Alignment水平居中BackColor白色ForeColor紅色2023/3/451.語句：執(zhí)行具體操作的命令，是VB程序的最基本成分。2.例如：

PrivateSubForm_Click()

Me.lblDisplay.Caption="Youhaveclickedtheform1!"

EndSub開發(fā)步驟——響應(yīng)事件的程序代碼2、選擇Click事件1、選擇Form窗體對(duì)象3、輸入響應(yīng)事件的程序代碼2023/3/463.1VisualBasic語句1.語句輸入長(zhǎng)語句分成多行輸入：在行的末尾用續(xù)行符“_”將長(zhǎng)語句分成多行。

DimSnoasstring,snameasstring_ sageasinteger,ssexasstring多個(gè)語句合并為同一行輸入：在一個(gè)代碼行上寫入多個(gè)語句，在語句中用冒號(hào)“：”分隔。

x=100:y=200:z=332.書寫規(guī)范語句輸入時(shí)，可不區(qū)分大小寫。續(xù)行符2023/3/47不推薦使用3.注釋語句注釋語句為非執(zhí)行語句，用“‘

”或Rem來標(biāo)識(shí)僅用來說明程序中某些語句的功能和作用，以增加程序的可讀性。VB程序中注釋過的語句會(huì)自動(dòng)變?yōu)榫G色。

PrivateSubForm_Click()

Me.lblDisplay.Caption="Youhaveclickedtheform1!“

Rem該語句給標(biāo)簽控件的Caption屬性賦值

EndSub4.結(jié)束語句：

結(jié)束程序的執(zhí)行。用戶單擊窗體時(shí)，程序退出執(zhí)行狀態(tài)。

PrivateSubForm_Click() End

EndSub3.2VisualBasic語句2023/3/483.3應(yīng)用實(shí)例【例3-1】設(shè)計(jì)程序?qū)崿F(xiàn)攝氏溫度和華氏溫度的轉(zhuǎn)換。在界面中輸入攝氏溫度以后，單擊“轉(zhuǎn)換”按鈕則將該攝氏溫度轉(zhuǎn)換為華氏溫度。將攝氏溫度轉(zhuǎn)成華氏溫度的轉(zhuǎn)換公式是，將攝氏溫度直接乘以9，除以5，再加上32即可。運(yùn)行界面如下圖。例題2023/3/49設(shè)計(jì)步驟1.設(shè)計(jì)用戶界面。包括：一個(gè)窗體，兩個(gè)命令按鈕，兩個(gè)標(biāo)簽，兩個(gè)文本框。屬性如下表所示。對(duì)象屬性屬性值窗體名稱（Name）Form1（缺省）Caption（標(biāo)題）溫度轉(zhuǎn)換標(biāo)簽1名稱（Name）Label1Caption（標(biāo)題）攝氏溫度:標(biāo)簽2名稱（Name）Label2Caption（標(biāo)題）華氏溫度:文本框1名稱（Name）TxtSHEText空文本框2名稱（Name）TxtHUAText空命令按鈕1名稱（Name）Command1Caption（標(biāo)題）轉(zhuǎn)換命令按鈕2名稱（Name）Command2Caption（標(biāo)題）退出2023/3/4102.進(jìn)入代碼設(shè)計(jì)窗口，選擇Command1的Click事件過程，編寫代碼如下：PrivateSubCommand1_Click() DimsheAsSingle,huaAsSingleshe=Val(TxtSHE.Text)hua=(she*9/5)+32TxtHUA.Text=h