程序设计基础—VB6.0下的计算器设计(5页).doc

-程序设计基础VB6.0下的计算器设计-第 5 页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 + "1"End IfEnd Sub双击按钮2，添加红色部分代码Private Sub Cmd2_Click() '按钮1的代码If t2.Text = "" Then t1.Text = t1.Text + "2" Else t3.Text = t3.Text + "2"End 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 End If Else If t3.Text <> 0 Then 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() '按钮退出的代码EndEnd Sub测试运行：点击运行-启动，或者直接点击按钮，测试VB计算器能否正常运行。保存工程并生成EXE文件：一、 点击文件-保存工程，将工程保存起来，以便以后修改。二、 如果确认工程不再修改，可以点击文件-生成我的计算器.exe，然后用自己的姓名给exe文件重命名，并提交到作业FTP。