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

简单表达式的运算 无论是窗体对象，还是其他控件对象，都有一 个名字，这个名字就是它们的Name（名称）属性值 。在一般情况下，它们都有默认值。为了能见名知 义，提高程序的可读性，最好用有一定意义的名字 作为对象的Name属性值。Microsoft建议，对象的 名字的命名方法是：前缀+字符组合 前缀：区别不同的对象 字符组合：编程人员自己选用的任意字符组合 （最好有一定意义） 对象的命名 对象名称的前缀表 对象前缀 Form（窗体）frm Label（标签）lbl CommandButton（命令按钮 ） cmd Image（图像）img Textbox（文本框）txt OptionButton（单选项 按钮 ） opt 举例：“自我介绍”VB程序 对象 名称 form1 frmzwjsh command1 cmdjbzl command2 cmdxqah command3 cmdgrjl command4 cmdend 1. 求两个加数之和。 2.对任意半径R的值，求圆周长、圆面积和球体积。 任务 3*编程求任意三位正整数的各个位数之和。 1.界面设计 2. 对 象 属 性 的 设 置 对象属性属性值 form1名称frmadd caption求两数之和 text1名称txtsum Alignment1-Right text text2名称txtadd1 text text3名称txtadd2 text label1名称lbladd1 caption加数1 label2名称lbladd2 caption加数2 command1名称cmdcls caption清空 command2名称cmdadd caption相加 command3名称cmdend caption退出 3 .编写事件代码 格式：Val（字符串） 功能：将字符串参数中的数字字符串转换成数值型数据。 1.数值函数 比如：val(123)=123 说明： 字符串参数可以是任何有效的字符串表达式。 Txt1.Text = “ “ （空串赋给txt1.text） 2、将txt1.text的内容清空： 3 .编写事件代码 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 对象属性属性值 text1名称txtsum Alignment1-Right text2名称txtadd1 text3名称txtadd2 主要对象的某些属性说明 txtsum txtadd1 txtadd2 范例2：对任意半径R的值，求圆周长、圆面积和球体积 。 txtr txtl txts txtv cmdjscmdreset 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 变量命名的方法 见教材第2册P137变量命名规则 范例2：对任意半径R的值，求圆周长、圆面积和球体积 。 txtr txtl txts txtv cmdjscmdreset 作业：编程求任意三位正整数的各个位数之和 提示 截断函数fix(x)去掉x的小数部分，保留其整数部分 。 如：fix(2.5)=2 fix(-2.5)=-2 Private Sub Command1_Click() x = Val(Txtx.Text) a = Fix(x / 100) b = Fix(x - a * 100) / 10) c = x - a * 100 - b * 10 Txty.Text = a + b + c End Sub 对象的命名 无论是窗体对象，还是其他控件对象，都有一个 名字，这个名字就是它们的Name（名称）属性值。 在一般情况下，它们都有默认值，如新建窗体的默 认Name 是Form1，文本框对象的默认Name 是Text1 ，Text2， ，命令按钮的默认Name是 Command1，Command2， ，标签对象的默认 Name 是Label1， Label2，等