Visual_Basic程序设计 作者 高巍 姜楠 肖峰 第3章VB语言基础.pptVIP

* * * * 3.5 综合应用(8) 例3.10 在文本框中输入圆的半径，计算其周长及面积。 在窗体上添加三个文本框、三个标签、两个命令按钮。 设置各控件属性 。 在代码编辑器中输入如下代码。 Private Sub Command2_Click() End End Sub 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