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。摆放位置如图所示：t1 t2 t3t4四、添加一个“CommandButton” ， “名称”改为 cmd0， “Caption 属
3、性”改为 0，Height 和 Width 都为495。摆放位置如图所示：按照同样的方法，在数字区添加其他的 CommandButton，并根据下表更改 CommandButton 的名称、Caption 属性， Height 和 Width。类型 名称 Caption 属性 Height 高度 Width 宽度CommandButton Cmd0 0 495 495CommandButton Cmd 小数点 . 495 495CommandButton 正负 +/- 495 495CommandButton Cmd1 1 495 495CommandButton Cmd2 2 495 495
4、CommandButton Cmd3 3 495 495CommandButton Cmd4 4 495 495CommandButton Cmd5 5 495 495CommandButton Cmd6 6 495 495CommandButton Cmd7 7 495 495CommandButton Cmd8 8 495 495CommandButton Cmd9 9 495 495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：五、添加一个“CommandButton” ， “名称”改为加， “Caption 属性”改为
5、+，Height 和 Width 都为495。摆放位置如图所示：按照同样的方法，在功能区添加其他的 CommandButton，并根据下表更改 CommandButton 的名称、Caption 属性， Height 和 Width。类型 名称 Caption 属性 Height 高度 Width 宽度CommandButton 加 + 495 495CommandButton 减 - 495 495CommandButton 乘 * 495 495CommandButton 除 / 495 495CommandButton 计算 计算 495 1215CommandButton 清空 清空
6、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 添加 0Else 否则，如果 t
7、2 的输入不为空t3.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 = “ Thent1.Text = t1.Text + “2“Elset3.Text = t3.Text + “2
8、“End IfEnd Sub请仿照按钮 0、按钮 1、按钮 2 的代码，自己编写输入按钮 3-按钮 9 的代码：双击小数点按钮，添加红色部分代码Private Sub Cmd 小数点_Click() 按钮小数点的代码If t2.Text = “ Thent1.Text = t1.Text + “.“Elset3.Text = t3.Text + “.“End IfEnd Sub双击正负按钮，添加红色部分代码Private Sub 正负_Click() 按钮正负的代码If t2.Text = “ ThenIf t1.Text 0 Thent3.Text = “-“ + t3.TextEnd If
9、End IfEnd Sub二、为功能区的命令按钮添加代码：分别双击按钮+、按钮-、按钮*、按钮/，添加红色部分代码Private Sub 加_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() 按钮计算的代码Selec
10、t Case t2Case “+“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 退出_Click() 按钮退出的代码EndEnd Sub测试运行：点击运行-启动，或者直接点击 按钮，测试 VB 计算器能否正常运行。保存工程并生成 EXE 文件：一、点击文件-保存工程，将工程保存起来，以便以后修改。二、如果确认工程不再修改，可以点击文件-生成我的计算器.exe，然后用自己的姓名给 exe文件重命名，并提交到教师机 FTP。
