简单表达式的运算(一).ppt

简单表达式的运算 任务 1.界面设计 2.对象属性的设置 3 .编写事件代码 1.数值函数 Txt1.Text = （空串赋给txt1.text） 3 .编写事件代码 变量命名的方法 见《教材第2册》P137—变量命名规则 * * 无论是窗体对象，还是其他控件对象，都有一个名字，这个名字就是它们的Name（名称）属性值。在一般情况下，它们都有默认值。为了能见名知义，提高程序的可读性，最好用有一定意义的名字作为对象的Name属性值。Microsoft建议，对象的名字的命名方法是：前缀+字符组合 前缀：区别不同的对象 字符组合：编程人员自己选用的任意字符组合（最好有一定意义） 对象的命名 对象名称的前缀表 opt OptionButton（单选项按钮） txt Textbox（文本框） img Image（图像） cmd CommandButton（命令按钮） lbl Label（标签） frm Form（窗体） 前缀 对象 举例：“自我介绍”VB程序 对象 名称 form1 frmzwjsh command1 cmdjbzl command2 cmdxqah command3 cmdgrjl command4 cmdend 1. 求两个加数之和。 2.对任意半径R的值，求圆周长、圆面积和球体积。 3*编程求任意三位正整数的各个位数之和。 cmdadd 名称 command2 相加 caption cmdcls 名称 command1 清空 caption cmdend 名称 command3 加数2 caption lbladd2 名称 label2 加数1 caption label1 lbladd1 名称 txtadd2 名称 text text frmadd 名称 属性值 属性 对象 text text3 1-Right Alignment 退出 caption txtadd1 名称 text2 txtsum 名称 text1 求两数之和 caption form1 格式：Val（字符串） 功能：将字符串参数中的数字字符串转换成数值型数据。 比如：val(″123″)=123 说明： 字符串参数可以是任何有效的字符串表达式。 2、将txt1.text的内容清空： Private Sub Cmdadd_Click() Txtsum.Text = Val(Txtadd1.Text) + Val(Txtadd2.Text) End Sub Private Sub Cmdcls_Click() Txtsum.Text = Txtadd1.Text = Txtadd2.Text = End Sub Private Sub Cmdend_Click() End End Sub 范例1 txtadd2 名称 text3 1-Right Alignment txtadd1 名称 text2 txtsum 名称 text1 属性值 属性 对象 主要对象的某些属性说明 txtsum txtadd1 txtadd2 范例2：对任意半径R的值，求圆周长、圆面积和球体积。 txtr txtl txts txtv cmdjs cmdreset Private Sub Cmdjs_Click() Pi=3.14 r = Val(Txtr.Text) Txtl.Text = 2 * pi * r Txts.Text = pi * r ^ 2 Txtv.Text = 4 * pi * r ^ 3 / 3 End Sub Private Sub Cmdreset_Click() Txtr.Text = Txtl.Text = Txts.Text = Txtv.Text = End Sub Private Sub Cmdjs_Click() Txtl.Text = 2 * 3.14 * Val(Txtr.Text) Txts.Text = 3.14 * Val(Txtr.Text) ^ 2 Txtv.Text = 4 * 3.14 * Val(Txtr.Text) ^ 3 / 3 End Sub Private Sub Cmdreset_Click() Txtr.Text = Txtl.Text = Txts.Text = Txtv.Text = End Sub