图文教程—VB计算器设计.docVIP

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。 摆放位置如图所示： 添加一个“CommandButton”，“名称”改为cmd0，“Caption属性”改为0，Height和Width都为495。 摆放位置如图所示： 按照同样的方法，在数字区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。 类型 名称 Caption属性 Height高度 Width宽度 CommandButton Cmd0 0 495 495 CommandButton Cmd小数点 . 495 495 CommandButton 正负 +/- 495 495 CommandButton Cmd1 1 495 495 CommandButton Cmd2 2 495 495 CommandButton Cmd3 3 495 495 CommandButton Cmd4 4 495 495 CommandButton Cmd5 5 495 495 CommandButton Cmd6 6 495 495 CommandButton Cmd7 7 495 495 CommandButton Cmd8 8 495 495 CommandButton Cmd9 9 495 495 注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！ 最后，数字区的效果如下图所示： 添加一个“CommandButton”，“名称”改为加，“Caption属性”改为+，Height和Width都为495。 摆放位置如图所示： 按照同样的方法，在功能区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。 类型 名称 Caption属性 Height高度 Width宽度 CommandButton 加 + 495 495 CommandButton 减 - 495 495 CommandButton 乘 * 495 495 CommandButton 除 / 495 495 CommandButton 计算 计算 495 1215 CommandButton 清空 清空 495 1215 注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！ 最后，功能区的效果如下图所示： 最后，添加一个“CommandButton”，“名称”改为退出，“Caption属性”改为退出，Height为495，Width都为,1215。 摆放位置如图所示： 代码设计： 一、为数字区的命令按钮添加代码： 双击按钮0，添加红色部分代码 Private Sub Cmd0_Click() 按钮0的代码 If t2.Text = Then 如果t2的输入为空 t1.Text = t1.Text + 0 在t1添加0 Else 否则，如果t2的输入不为空 t3.Text = t3.Text + 0 在t3添加0 End If End Sub 双击按钮1，添加红色部分代码 Private Sub Cmd1_Click() 按钮1的代码 If t2.Text = Then t1.Text = t1.Text + 1 Else t3.Text = t3.Text + 1 End If End Sub 双击按钮2，添加红色部分代码 Private S