程序的設(shè)計(jì)基礎(chǔ)—VB6.0下的計(jì)算器設(shè)計(jì)說明

1、VB計(jì)算器設(shè)計(jì)圖文教程界面設(shè)計(jì)代碼設(shè)計(jì)測(cè)試運(yùn)行保存文件界面設(shè)計(jì)：一、啟動(dòng) VB，新建一個(gè)“ 標(biāo)準(zhǔn) EXE”工程，將“ Form1”的“ Caption 屬性 ”改為“我的計(jì)算器” ，“ Height 屬性 ”改為 6100，“ Width 屬性 ”改為 7100。二、添加一個(gè)“Frame”，“ Caption 屬性 ”改為“數(shù)字區(qū)” ， Height為 3615， Width 為 2655 。添加一個(gè)“ Frame”，“ Caption 屬性 ”改為“功能區(qū)” ， Height為 1815， Width 為 3135 。.三、添加一個(gè)“TextBox ”，“名稱”改為t4 ，“ Text 屬性

2、 ”改為空白，Height 為 6255， Width 為 615。用同樣的方法，添加一個(gè)“ TextBox ”，“名稱”改為t1 ，“ Text 屬性 ”改為空白，Height 為 975， Width 為 495。添加一個(gè)“ TextBox ”，“名稱”改為t2 ，“ Text 屬性 ”改為空白，Height 為 495， Width 為 495。添加一個(gè)“ TextBox ”，“名稱”改為t3 ，“ Text 屬性 ”改為空白，Height 為 975， Width 為 495。擺放位置如圖所示：.t4t1t2t3四、添加一個(gè)“CommandButton”，“名稱”改為cmd0，“ Ca

3、ption屬性 ”改為 0，Height和 Width 都為 495。擺放位置如圖所示：按照同樣的方法， 在數(shù)字區(qū)添加其他的 CommandButton，并根據(jù)下表更改 CommandButton 的名稱、 Caption 屬性 ， Height 和 Width 。.類型名稱Caption 屬性Height 高度Width 寬度CommandButtonCmd00495495CommandButtonCmd小數(shù)點(diǎn).495495CommandButton正負(fù)+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButton

4、Cmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用復(fù)制 - 粘貼的方法，但是在詢問“是否創(chuàng)建一個(gè)控件數(shù)組？”時(shí)，請(qǐng)選擇“否”！最后，數(shù)字區(qū)的效果如下圖所示：五、添加一個(gè)“CommandButton”，“名稱”改為 加，“ Caption 屬性 ”改為 +， Height和 Width 都為 495。擺放位置如圖所示：.按照同樣

5、的方法， 在功能區(qū)添加其他的CommandButton，并根據(jù)下表更改CommandButton 的名稱、 Caption屬性 ， Height 和 Width 。類型名稱Caption 屬性Height 高度Width 寬度CommandButton加+495495CommandButton減-495495CommandButton乘*495495CommandButton除/495495CommandButton計(jì)算計(jì)算4951215CommandButton清空清空4951215注意：可以用復(fù)制 - 粘貼的方法，但是在詢問“是否創(chuàng)建一個(gè)控件數(shù)組？”時(shí)，請(qǐng)選擇“否”！最后，功能區(qū)的效果如下

6、圖所示：.六、最后，添加一個(gè)“ CommandButton”，“名稱”改為 退出，“ Caption 屬性 ”改為 退出 ， Height 為 495， Width 都為 ,1215 。擺放位置如圖所示：.代碼設(shè)計(jì)：.一、為數(shù)字區(qū)的命令按鈕添加代碼：雙擊按鈕 0，添加紅色部分代碼Private Sub Cmd0_Click()' 按鈕 0 的代碼If t2.Text = "" Then' 如果 t2 的輸入為空t1.Text = t1.Text + "0"' 在 t1 添加 0Else' 否則，如果 t2 的輸入不為空t3

7、.Text = t3.Text + "0"' 在 t3 添加 0End IfEnd Sub雙擊按鈕 1，添加紅色部分代碼Private Sub Cmd1_Click() '按鈕 1 的代碼If t2.Text = "" Thent1.Text = t1.Text + "1"Elset3.Text = t3.Text + "1"End IfEnd Sub雙擊按鈕 2，添加紅色部分代碼Private Sub Cmd2_Click() '按鈕 1 的代碼If t2.Text = "&qu

8、ot; Thent1.Text = t1.Text + "2"Elset3.Text = t3.Text + "2"End IfEnd Sub' 請(qǐng)仿照按鈕 0、按鈕 1、按鈕 2 的代碼，自己編寫輸入按鈕3- 按鈕 9 的代碼：雙擊小數(shù)點(diǎn)按鈕，添加紅色部分代碼.Private Sub Cmd小數(shù)點(diǎn) _Click() '按鈕小數(shù)點(diǎn)的代碼If t2.Text = "" Thent1.Text = t1.Text + "."Elset3.Text = t3.Text + "."End

9、 IfEnd Sub雙擊正負(fù)按鈕，添加紅色部分代碼Private Sub正負(fù) _Click() '按鈕正負(fù)的代碼If t2.Text = "" ThenIf t1.Text <> 0 Thent1.Text = "-" + t1.TextEnd IfElseIf t3.Text <> 0 Thent3.Text = "-" + t3.TextEnd IfEnd IfEnd Sub二、為功能區(qū)的命令按鈕添加代碼：分別雙擊按鈕 +、按鈕 - 、按鈕 * 、按鈕 / ，添加紅色部分代碼 Private Sub

10、 加 _Click() ' 按鈕加的代碼t2.Text = "+"End SubPrivate Sub減 _Click() '按鈕減的代碼t2.Text = "-"End SubPrivate Sub減 _Click() '按鈕減的代碼t2.Text = "*"End SubPrivate Sub減 _Click() '按鈕減的代碼t2.Text = "/"End Sub雙擊計(jì)算按鈕，添加紅色部分代碼：Private Sub計(jì)算 _Click() '按鈕計(jì)算的代碼Select

11、 Caset2Case "+"result = Val(t1.Text) + Val(t3.Text) '計(jì)算加法的代碼Case "-"result = Val(t1.Text) - Val(t3.Text) '計(jì)算減法的代碼Case "*".result = Val(t1.Text) * Val(t3.Text) '計(jì)算乘法的代碼Case "/"result = Val(t1.Text) /Val(t3.Text) '計(jì)算除法的代碼End Selectt4.Text = resultEnd Sub雙擊清空按鈕，添加紅色部分代碼：Private Sub清空 _Click() '按鈕清除的代碼t1.Text = ""t2.Text = ""t3.Text = ""t4.Text = ""End Sub三、最后，雙擊退出按鈕，添加紅色部分代碼Private Sub