第3章 求圆周长与圆面积——变量与画图方法.pptVIP

第3章 求圆周长和圆面积 ——变量与画图方法;重点与难点;【任务3】已知半径，求圆周长和圆面积;3.1 任务分析;3.2 程序界面设计 ;续表3-1 新属性值 ;3.3 变量与变量声明; 在程序运行过程中有一些不变的量，称为常量。例如本任务中的圆周率π。为了便于编程和增加可读性，我们用一个标识符来代替它，这就是符号常量。 符号常量在使用前也必须声明，声明方法是用Const语句。例如我们要用Pi来表示圆周率(VB中标识符不能用希腊字母)，则可以用语句： Const pi As Single = 3.1416 ; 在本任务中，已知圆半径rin，要计算圆周长(C)和圆面积(A)，可以编制下面的程序段来实现： Dim rin, C, A As Single Const pi As Single = 3.1416 C= 2 * Pi * rin A=Pi * rin * rin Area3S = 0.75 * rin * rin * Sqr(3) 然后用转换函数Str()把这些数值赋予相应的显示标签框的Caption属性值中： Lblcircuit.Caption = 圆周长= + Str(C) LblArea.Caption = 圆面积= Str(A) Lbl3SArea.Caption = str(Area3S);3.4 画圆和线段; 2．画圆方法 画圆方法也有多种形式。例如， Circle (1000, 2000), 300 Circle Step(100, 200), 300, QbColor(12) 第一行命令是以(1000, 2000)为圆心，以300为半径，以窗体的前景色画圆。第二行命令是在当前坐标(即上次画图的终点)基础上增加(100, 200)为圆心，以300为半径，画一个亮红色的圆。 3．坐标系和画图过程 在某个对象上画图，需要确定坐标。VB的对象有一个默认坐标系，原点在对象的左上角，X轴正方向向右，Y轴正方向向下。; “画出圆和内接正三角形”的程序代码可以写为： Private Sub CmdDraw_Click() Dim r, Cx, Cy, x1, y1, x2, y2, x3, y3 As Long Const pi As Single = 3.1416 cx，cy为圆心坐标；xi和yi(i=1, 2, 3)为圆内接三角形三顶点坐标 ScaleMode = 0 ‘设置坐标系单位为用户自定义 r = 2000 Cx = 6000 圆心横坐标 Cy = 2400 圆心纵坐标 x1 = Cx + r * Cos(pi / 6) : y1 = Cy + r * Sin(pi / 6) x2 = Cx : y2 = Cy - r x3 = Cx - r * Cos(pi / 6) : y3 = y1 DrawWidth = 4 设置画线宽度 Line (x1, y1)-(x2, y2), 2 Line -(x3, y3) : Line -(x1, y1) 画三角形 Circle (Cx, Cy), r 画圆 End Sub;3.5 注释语句 ;3.6 程序代码;Private Sub CmdDraw_Click() Dim r, Cx, Cy, x1, y1, x2, y2, x3, y3 As Long Const pi As Single = 3.1416 cx，cy为圆心坐标；xi和yi(i=1,2,3)为圆内接三角形三顶点坐标 ScaleMode = 0 设置坐标系单位为用户自定义 r = 2000 Cx = 6000 圆心横坐标 Cy = 2400 圆心纵坐标 x1 = Cx + r * Cos(pi / 6): y1 = Cy + r * Sin(pi / 6) x2 = Cx: y2 = Cy - r x3 = Cx - r * Cos(pi / 6): y3 = y1 DrawWidth = 4 设置画线宽度 Line (x1