VB设计案例-设计一个加法器.ppt

* VB设计案例——设计一个加法程序 任务分析 1 要用计算机实现这个任务，单击“计算”按钮时，从第一个文本框中得到第一个加数并放到存储单元a中，从第二个文本框中得到第二个加数并放到存储单元c中。最后把存储单元c中的数值显示在标签中。 加法可以表示为：a+b=c。 注意： 1、利用VB提供的内部函数VAL()将数字文本转换成数字。 2、窗口的Border-Style属性设置为1（即Fixed Single），使窗口固定。 3、为了清除文本框和标签框中显示的信息，可以将Text或Caption属性为空字符“ ”。 算法流程图 VB设计案例——设计一个加法程序 完成任务 2 设计对象界面 开始一个标准EXE工程，在窗体Form1中放三个命令按钮，三个标签，两个文本框TextBox，并摆放好合适的位置和大小，为窗体设置合适的大小。如下图所示： VB设计案例——设计一个加法程序 完成任务 2 Text= Text2 Text= Text1 文本框TextBox 　 Caption=清除 Command3 Caption=计算 Command2 Caption=结束 Command1 按钮CommandButton 　　 Caption= Lable3 Caption== Lable2 Caption=+ Lable1 标签Lable 　 　 Caption=加法计算器 Form1 窗体Form 属性 名称 对象 设置对象属性 VB设计案例——设计一个加法程序 （1）双击“结束”按钮，为Command1_Click 过程编写代码如下： Private Sub Command1_Click() End End Sub （2）双击“计算按钮，为Command2_Click过程编写如下代码： Private Sub Command2_Click() Dim a, b, c As Single ‘定义变量A，b，c a = Val(Text1.Text) ‘取得第一个加数并放到存储单元a中 b = Val(Text2.Text) ‘取得第二个加数并放到存储单元b中 c = Val(a) + Val(b) ‘把两个加数转换成数字后相加，并把计算的 结果存放到存储单元c中 Label3.Caption = c ‘ 把存储单元C中的值显示在标签中 End Sub （3）双击“清除”按钮，为Command3_Click过程编写如下代码： Private Sub Command3_Click() Text1.Text =“ ” ‘清除文本框1中的内容 Text2.Text = “ ” ‘清除文本框2中的内容 Label3.Caption = “ ” ‘清除文本框3中的内容 End Sub 编写程序代码 2 完成任务 *