图文教程-VB计算器设计

1、VB计算器设计一图文教程界面设计一一代码设计一一测试运行一一保存文件界面设计：一、启动VB,新建一个“标准EXE”工程，将“Forml”的“Caption属性”改为“我的计算器”，“Height属性”改为6100,“Width属性”改为7100。、添加一个“Frame”，“Caption属性”改为“数字区”，Height为3615，Width为2655。添加一个“Frame”，“Caption属性”改为“功能区”，Height为1815，Width为3135。三、添加一个“TextBox”，“名称”改为t4,“Text属性”改为空白，Height为6255,Width为615。三、添加一个“T

2、extBox”，“名称”改为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。摆放位置如图所示：t4三、添加一个“TextBox”，“名称”改为t4,“Text属性”改为空白，Height为6255,Width为615

3、。三、添加一个“TextBox”，“名称”改为t4,“Text属性”改为空白，Height为6255,Width为615。t1t2t3四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：按照同样的方法，在数字区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButtonCmd00495495CommandButtonCmd小数点495495Comm

4、andButton正负+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”!最后，数字区的效果如下图所示：五、添加一个“

5、CommandButton”，“名称”改为加，“Caption属性”改为+,Height和Width都为495。摆放位置如图所示：四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：按照同样的方法，在功能区添加其他的CommandButton,并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton

6、乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空4951215注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”!最后，功能区的效果如下图所示：六、最后，添加一个“CommandButton”，“名称”改为退出，“Caption属性”改为退出，Height为495,Width都为,1215。摆放位置如图所示：四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：六、最后，添加一个

7、“CommandButton”，“名称”改为退出，“Caption属性”改为退出，Height为495,Width都为,1215。摆放位置如图所示：四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：我的计算審口回区四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：代码设计：一、为数字区的命令按钮添加代码按钮0的代码如果t2的输入为空在t1添加0否则，如果t2的输入不为空在t3添加0双击按钮0，添加红色

8、部分代码PrivateSubCmd0_Click()Ift2.Text=Thent1.Text=t1.Text+0Elset3.Text=t3.Text+0EndIfEndSub双击按钮1，添加红色部分代码PrivateSubCmd1_Click()按钮1的代码Ift2.Text=Thent1.Text=t1.Text+1Elset3.Text=t3.Text+1EndIfEndSub双击按钮2，添加红色部分代码PrivateSubCmd2_Click()按钮1的代码Ift2.Text=Thent1.Text=t1.Text+2Elset3.Text=t3.Text+2EndIfEndSub请

9、仿照按钮0、按钮1、按钮2的代码，自己编写输入按钮3-按钮9的代码：四、添加一个“CommandButton”“名称”改为cmd0,“Caption属性”改为0,Height和Width都为495。摆放位置如图所示：双击小数点按钮，添加红色部分代码PrivateSubCmd小数点_Click()按钮小数点的代码Ift2.Text=Thent1.Text=t1.Text+.Elset3.Text=t3.Text+.EndIfEndSub双击正负按钮，添加红色部分代码PrivateSub正负_Click()按钮正负的代码Ift2.Text=ThenIft1.Text0Thent1.Text=-+t

10、1.TextEndIfElseIft3.Text0Thent3.Text=-+t3.TextEndIfEndIfEndSub二、为功能区的命令按钮添加代码：分别双击按钮+、按钮-、按钮*、按钮/，添加红色部分代码PrivateSub加_Click()按钮加的代码t2.Text=+EndSubPrivateSub减_Click()按钮减的代码t2.Text=-EndSubPrivateSub减_Click()按钮减的代码t2.Text=*EndSubPrivateSub减_Click()按钮减的代码t2.Text=/EndSub双击计算按钮，添加红色部分代码：PrivateSub计算_Click

11、()按钮计算的代码SelectCaset2Case+result=Val(t1.Text)+Val(t3.Text)计算加法的代码Case-result=Val(t1.Text)-Val(t3.Text)计算减法的代码Case*result=Val(tl.Text)*Val(t3.Text)计算乘法的代码Case/result=Val(tl.Text)/Val(t3.Text)计算除法的代码EndSelectt4.Text=resultEndSub双击清空按钮，添加红色部分代码：PrivateSub清空_Click()按钮清除的代码t1.Text=t2.Text=t3.Text=t4.Text=EndSub三、最后，双击退出按钮，添加红色部分代码P