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

..VB計(jì)算器設(shè)計(jì)—圖文教程界面設(shè)計(jì)——代碼設(shè)計(jì)——測(cè)試運(yùn)行——保存文件界面設(shè)計(jì)：?jiǎn)?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","名稱(chēng)"改為t4,"Text屬性"改為空白,Height為6255,Width為615。用同樣的方法,添加一個(gè)"TextBox","名稱(chēng)"改為t1,"Text屬性"改為空白,Height為975,Width為495。添加一個(gè)"TextBox","名稱(chēng)"改為t2,"Text屬性"改為空白,Height為495,Width為495。添加一個(gè)"TextBox","名稱(chēng)"改為t3,"Text屬性"改為空白,Height為975,Width為495。擺放位置如圖所示：t4t2t3t1t4t2t3t1添加一個(gè)"CommandButton","名稱(chēng)"改為cmd0,"Caption屬性"改為0,Height和Width都為495。擺放位置如圖所示：按照同樣的方法,在數(shù)字區(qū)添加其他的CommandButton,并根據(jù)下表更改CommandButton的名稱(chēng)、Caption屬性,Height和Width。類(lèi)型名稱(chēng)Caption屬性Height高度Width寬度CommandButtonCmd00495495CommandButtonCmd小數(shù)點(diǎn).495495CommandButton正負(fù)+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用復(fù)制-粘貼的方法,但是在詢(xún)問(wèn)"是否創(chuàng)建一個(gè)控件數(shù)組？"時(shí),請(qǐng)選擇"否"！最后,數(shù)字區(qū)的效果如下圖所示：添加一個(gè)"CommandButton","名稱(chēng)"改為加,"Caption屬性"改為+,Height和Width都為495。擺放位置如圖所示：按照同樣的方法,在功能區(qū)添加其他的CommandButton,并根據(jù)下表更改CommandButton的名稱(chēng)、Caption屬性,Height和Width。類(lèi)型名稱(chēng)Caption屬性Height高度Width寬度CommandButton加+495495CommandButton減-495495CommandButton乘*495495CommandButton除/495495CommandButton計(jì)算計(jì)算4951215CommandButton清空清空4951215注意：可以用復(fù)制-粘貼的方法,但是在詢(xún)問(wèn)"是否創(chuàng)建一個(gè)控件數(shù)組？"時(shí),請(qǐng)選擇"否"！最后,功能區(qū)的效果如下圖所示：最后,添加一個(gè)"CommandButton","名稱(chēng)"改為退出,"Caption屬性"改為退出,Height為495,Width都為,1215。擺放位置如圖所示：代碼設(shè)計(jì)：一、為數(shù)字區(qū)的命令按鈕添加代碼：雙擊按鈕0,添加紅色部分代碼PrivateSubCmd0_Click<>'按鈕0的代碼Ift2.Text=""Then'如果t2的輸入為空t1.Text=t1.Text+"0"'在t1添加0Else'否則,如果t2的輸入不為空t3.Text=t3.Text+"0"'在t3添加0EndIfEndSub雙擊按鈕1,添加紅色部分代碼PrivateSubCmd1_Click<>'按鈕1的代碼Ift2.Text=""Thent1.Text=t1.Text+"1"Elset3.Text=t3.Text+"1"EndIfEndSub雙擊按鈕2,添加紅色部分代碼PrivateSubCmd2_Click<>'按鈕1的代碼Ift2.Text=""Thent1.Text=t1.Text+"2"Elset3.Text=t3.Text+"2"EndIfEndSub'請(qǐng)仿照按鈕0、按鈕1、按鈕2的代碼,自己編寫(xiě)輸入按鈕3-按鈕9的代碼：雙擊小數(shù)點(diǎn)按鈕,添加紅色部分代碼PrivateSubCmd小數(shù)點(diǎn)_Click<>'按鈕小數(shù)點(diǎn)的代碼Ift2.Text=""Thent1.Text=t1.Text+"."Elset3.Text=t3.Text+"."EndIfEndSub雙擊正負(fù)按鈕,添加紅色部分代碼PrivateSub正負(fù)_Click<>'按鈕正負(fù)的代碼Ift2.Text=""ThenIft1.Text<>0Thent1.Text="-"+t1.TextEndIfElseIft3.Text<>0Thent3.Text="-"+t3.TextEndIfEndIfEndSub二、為功能區(qū)的命令按鈕添加代碼：分別雙擊按鈕+、按鈕-、按鈕*、按鈕/,添加紅色部分代碼PrivateSub加_Click<>'按鈕加的代碼t2.Text="+"EndSubPrivateSub減_Click<>'按鈕減的代碼t2.Text="-"EndSubPrivateSub減_Click<>'按鈕減的代碼t2.Text="*"EndSubPrivateSub減_Click<>'按鈕減的代碼t2.Text="/"EndSub雙擊計(jì)算按鈕,添加紅色部分代碼：PrivateSub計(jì)算_Click<>'按鈕計(jì)算的代碼SelectCaset2Case"+"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ì)算除法的代碼EndSelectt4.Text=resultEndSub雙擊清空按鈕,添加紅色部分代碼：PrivateSub清空_Click<>'按鈕清除的代碼t1.Text=""t2.Text=""t3.Text=""t4.Text=""EndSub三、最后,雙擊退出按鈕,添加紅色部分代碼PrivateSub退