《程序设计基础—VB6.0下的计算器设计(5页).doc》由会员分享，可在线阅读，更多相关《程序设计基础—VB6.0下的计算器设计(5页).doc（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-程序设计基础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为6
2、255，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。摆放位置如图所示：按照同样的方法，在数字区添加其
3、他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption属性Height高度Width宽度CommandButtonCmd00495495CommandButtonCmd小数点.495495CommandButton正负+/-495495CommandButtonCmd11495495CommandButtonCmd22495495CommandButtonCmd33495495CommandButtonCmd44495495CommandButtonCmd55495495CommandButtonCm
4、d66495495CommandButtonCmd77495495CommandButtonCmd88495495CommandButtonCmd99495495注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，数字区的效果如下图所示：五、 添加一个“CommandButton”，“名称”改为加，“Caption属性”改为+，Height和Width都为495。摆放位置如图所示：按照同样的方法，在功能区添加其他的CommandButton，并根据下表更改CommandButton的名称、Caption属性，Height和Width。类型名称Caption
5、属性Height高度Width宽度CommandButton加+495495CommandButton减-495495CommandButton乘*495495CommandButton除/495495CommandButton计算计算4951215CommandButton清空清空4951215注意：可以用复制-粘贴的方法，但是在询问“是否创建一个控件数组？”时，请选择“否”！最后，功能区的效果如下图所示：六、 最后，添加一个“CommandButton”，“名称”改为退出，“Caption属性”改为退出，Height为495，Width都为,1215。摆放位置如图所示：代码设计：一、为数字
6、区的命令按钮添加代码：双击按钮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 + 1End IfEnd Sub双击按钮2，添加红色部分代码Private
7、 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 正负_Cl
8、ick() 按钮正负的代码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(
9、) 按钮减的代码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 Sel
10、ectt4.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。