VB编程入门教程基础讲课文档.pptVIP

【例2-3】计算半径为5的圆面积和圆周长。 Private Sub Form_Click() Const PI = 3.141526 定义常量π Dim R As integer, Area As Single, Perimeter As Single 定义变量 R = 5 给半径变量赋值 Area = PI * R * R 计算后的面积值赋给变量Area Perimeter = 2 * PI * R 周长值赋给变量Parimeter Print “半径＝”;R,”面积”;Area,”周长”;Perimeter 输出半径、面积。周长 End Sub * Visual Basic程序设计教程 第六十二页，共82页。 2.7.2 使用输入对话框InputBox函数 【例2-4】计算半径为R的圆面积和周长，半径值由键盘输入。 Private Sub Form_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimeter As Single R = Val(InputBox(请输入圆的半径：, 输入)) Area = PI * R * R Perimeter = 2 * PI * R Print 半径