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

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。摆放位置如图所示：t4t2t3t1四、 添加一个“CommandButton”，“名称”改为cmd0，“Caption属性”改为0，Height和Width都为495。摆放位置如图所示：按照同样的方法，在数字区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButtonCmd00495495CommandButtonCmd小数点.495495CommandButton正负+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCmd66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：五、 添加一个“CommandButton”，“名称”改为加，“Caption属性”改为+，Height和Width都为495。摆放位置如图所示：按照同样的方法，在功能区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空4951215注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，功能区的效果如下图所示：六、 最后，添加一个“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添加0End IfEnd Sub双击按钮1，添加红色部分代码Private Sub Cmd1_Click() 按钮1的代码If t2.Text = Then t1.Text = t1.Text + 1 Else t3.Text = t3.Text + 1End IfEnd Sub双击按钮2，添加红色部分代码Private Sub Cmd2_Click() 按钮1的代码If t2.Text = Then t1.Text = t1.Text + 2 Else t3.Text = t3.Text + 2End IfEnd Sub请仿照按钮0、按钮1、按钮2的代码，自己编写输入按钮3-按钮9的代码：双击小数点按钮，添加红色部分代码Private Sub Cmd小数点_Click() 按钮小数点的代码If t2.Text = Then t1.Text = t1.Text + . Else t3.Text = t3.Text + .End IfEnd Sub双击正负按钮，添加红色部分代码Private Sub 正负_Click() 按钮正负的代码If t2.Text = Then If t1.Text 0 Then t1.Text = - + t1.Text End If Else If t3.Text 0 Then t3.Text = - + t3.Text End IfEnd 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() 按钮计算的代码Select Case t2 Case + 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() 按钮退出