程序的设计基础-VB6.0下的计算器设计说明

..VB计算器设计—图文教程界面设计——代码设计——测试运行——保存文件界面设计：启动VB,新建一个"标准EXE"工程,将"Form1"的"Caption属性"改为"我的计算器","Height属性"改为6100,"Width属性"改为7100。添加一个"Frame","Caption属性"改为"数字区",Height为3615,Width为2655。添加一个"Frame","Caption属性"改为"功能区",Height为1815,Width为3135。添加一个"TextBox","名称"改为t4,"Text属性"改为空白,Height为6255,Width为615。用同样的方法,添加一个"TextBox","名称"改为t1,"Text属性"改为空白,Height为975,Width为495。添加一个"TextBox","名称"改为t2,"Text属性"改为空白,Height为495,Width为495。添加一个"TextBox","名称"改为t3,"Text属性"改为空白,Height为975,Width为495。摆放位置如图所示：t4t2t3t1t4t2t3t1添加一个"CommandButton","名称"改为cmd0,"Caption属性"改为0,Height和Width都为495。摆放位置如图所示：按照同样的方法,在数字区添加其他的CommandButton,并根据下表更改CommandButton的名称、Caption属性,Height和Width。类型名称Caption属性Height高度Width宽度CommandButtonCmd00495495CommandButtonCmd小数点.495495CommandButton正负+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法,但是在询问"是否创建一个控件数组？"时,请选择"否"！最后,数字区的效果如下图所示：添加一个"CommandButton","名称"改为加,"Caption属性"改为+,Height和Width都为495。摆放位置如图所示：按照同样的方法,在功能区添加其他的CommandButton,并根据下表更改CommandButton的名称、Caption属性,Height和Width。类型名称Caption属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空4951215注意：可以用复制-粘贴的方法,但是在询问"是否创建一个控件数组？"时,请选择"否"！最后,功能区的效果如下图所示：最后,添加一个"CommandButton","名称"改为退出,"Caption属性"改为退出,Height为495,Width都为,1215。摆放位置如图所示：代码设计：一、为数字区的命令按钮添加代码：双击按钮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'请仿照按钮0、按钮1、按钮2的代码,自己编写输入按钮3-按钮9的代码：双击小数点按钮,添加红色部分代码PrivateSubCmd小数点_Click<>'按钮小数点的代码Ift2.Text=""Thent1.Text=t1.Text+"."Elset3.Text=t3.Text+"."EndIfEndSub双击正负按钮,添加红色部分代码PrivateSub正负_Click<>'按钮正负的代码Ift2.Text=""ThenIft1.Text<>0Thent1.Text="-"+t1.TextEndIfElseIft3.Text<>0Thent3.Text="-"+t3.TextEndIfEndIfEndSub二、为功能区的命令按钮添加代码：分别双击按钮+、按钮-、按钮*、按钮/,添加红色部分代码PrivateSub加_Click<>'按钮加的代码t2.Text="+"EndSubPrivateSub减_Click<>'按钮减的代码t2.Text="-"EndSubPrivateSub减_Click<>'按钮减的代码t2.Text="*"EndSubPrivateSub减_Click<>'按钮减的代码t2.Text="/"EndSub双击计算按钮,添加红色部分代码：PrivateSub计算_Click<>'按钮计算的代码SelectCaset2Case"+"result=Val<t1.Text>+Val<t3.Text>'计算加法的代码Case"-"result=Val<t1.Text>-Val<t3.Text>'计算减法的代码Case"*"result=Val<t1.Text>*Val<t3.Text>'计算乘法的代码Case"/"result=Val<t1.Text>/Val<t3.Text>'计算除法的代码EndSelectt4.Text=resultEndSub双击清空按钮,添加红色部分代码：PrivateSub清空_Click<>'按钮清除的代码t1.Text=""t2.Text=""t3.Text=""t4.Text=""EndSub三、最后,双击退出按钮,添加红色部分代码PrivateSub退