程序设计基础—VB6.0下的计算器设计.doc

《程序设计基础—VB6.0下的计算器设计.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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属性”改为空白，Hei

2、ght为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属性”改为0，Height和Width都

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

4、ttonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：页脚.一、添加一个“CommandButton”，“名称”改为加，“Caption属性”改为+，Height和Width都为495。摆放位置如图所示：按照同样的方法，在功能

5、区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空4951215注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，功能区的效果

6、如下图所示：页脚.一、最后，添加一个“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，添加红

7、色部分代码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的代码：页脚.双击小数点按钮，添加红色部分代码PrivateS

8、ubCmd小数点_Click()'按钮小数点的代码Ift2.Text=""Thent1.Text=t1.Te