Visual_Basic程序设计高巍姜楠肖峰第3章VB语言基础课件教学.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * 3.5 综合应用(9) Private Sub Command1_Click() Const Pi=3.1415926 声明常量Pi，代表3.1415926 r=Val(Text1.Text) b=2*Pi*r 计算圆的周长 Text2.Text=b b=Pi*r ^ 2 计算圆的周长 Text3.Text=b End Sub 输入圆的半径，单击“计算”按钮， 可以得到周长和面积结果。 3.5 综合应用(10) 例3.11 表达式的综合应用。 Private Sub Form_Activate() Dim a, b, c Print 日期数据的加减运算 Print CDate(2011-10-9)-CDate(2010-10-9) Print CDate(2011-10-9 12:00:00)-CDate(2010-10-9) Print Date, Time Print Date-11.5 Print CDate(2011-10-20)+16 3.5 综合应用(11) Print: Print 关系运算和逻辑运算 a=40