图文教程—vb计算器设计

《图文教程—vb计算器设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、”改为空白，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。摆放位置如图所示：t4t2t3t1一、添加一个“CommandButton”，“名称”改为cmd0，“Caption属

3、性”改为0，Height和Width都为495。摆放位置如图所示：按照同样的方法，在数字区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButtonCmd00495495CommandButtonCmd小数点.495495CommandButton正负+/-495495CommandButtonCmd11495495CommandButtonCmd22495495Comm

4、andButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：一、添加一个“CommandButton”，“名称”改为加，“Caption属性”改为+

5、，Height和Width都为495。摆放位置如图所示：按照同样的方法，在功能区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空495121

6、5注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，功能区的效果如下图所示：一、最后，添加一个“CommandButton”，“名称”改为退出，“Caption属性”改为退出，Height为495，Width都为,1215。摆放位置如图所示：代码设计：一、为数字区的命令按钮添加代码：双击按钮0，添加红色部分代码PrivateSubCmd0_Click()'按钮0的代码Ift2.Text=""Then'如果t2的输入为空t1.Text=t1.Text+"0"'在t1添加0Else'否则，

7、如果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"EndIf

8、EndSub'请仿照按钮0、按钮1、按钮2的代码，自己编写输入按钮3-按钮9的代码：双击小数点按钮，添加红色部分代码PrivateSubCmd小数点_Click()'按钮小数点的代码Ift2.Text=""Thent1.Text=t1.Text+"."Elset3.Text=t3.Text