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

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。摆放位置如图所示：.t4t1t2t3四、添加一个“CommandButton”，“名称”改为cmd0，“ Ca

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

4、Cmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制 - 粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：五、添加一个“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，添加红色部分代码Private Sub Cmd0_Click()' 按钮 0 的代码If t2.Text = "" Then' 如果 t2 的输入为空t1.Text = t1.Text + "0"' 在 t1 添加 0Else' 否则，如果 t2 的输入不为空t3

7、.Text = t3.Text + "0"' 在 t3 添加 0End IfEnd Sub双击按钮 1，添加红色部分代码Private Sub Cmd1_Click() '按钮 1 的代码If t2.Text = "" Thent1.Text = t1.Text + "1"Elset3.Text = t3.Text + "1"End IfEnd Sub双击按钮 2，添加红色部分代码Private Sub Cmd2_Click() '按钮 1 的代码If t2.Text = "&qu

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

9、 IfEnd Sub双击正负按钮，添加红色部分代码Private Sub正负 _Click() '按钮正负的代码If t2.Text = "" ThenIf t1.Text <> 0 Thent1.Text = "-" + t1.TextEnd IfElseIf t3.Text <> 0 Thent3.Text = "-" + t3.TextEnd IfEnd IfEnd Sub二、为功能区的命令按钮添加代码：分别双击按钮 +、按钮 - 、按钮 * 、按钮 / ，添加红色部分代码 Private Sub

10、 加 _Click() ' 按钮加的代码t2.Text = "+"End SubPrivate Sub减 _Click() '按钮减的代码t2.Text = "-"End SubPrivate Sub减 _Click() '按钮减的代码t2.Text = "*"End SubPrivate Sub减 _Click() '按钮减的代码t2.Text = "/"End Sub双击计算按钮，添加红色部分代码：Private Sub计算 _Click() '按钮计算的代码Select

11、 Caset2Case "+"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) '计算除法的代码End Selectt4.Text = resultEnd Sub双击清空按钮，添加红色部分代码：Private Sub清空 _Click() '按钮清除的代码t1.Text = ""t2.Text = ""t3.Text = ""t4.Text = ""End Sub三、最后，双击退出按钮，添加红色部分代码Private Sub