VB程序设计第8章 图形程序设计.pptVIP

参考代码： Private Sub Form_Click() Dim i As Integer Form1.Cls For i = 1 To 100 Randomize CurrentX = Rnd() * Form1.ScaleWidth CurrentY = Rnd() * Form1.ScaleHeight Form1.Line -(0, 0) Next i End Sub 【实训8.3】在窗体上画出螺旋线，如图8-3所示。 图8-3 参考代码： Private Sub Form_Paint() Dim pi as single pi = 4 * Atn(1) Form1.Scale (-60, 60)-(60, -60) Form1.Line (0, 60)-(0, -60) Form1.Line (-60, 0)-(60, 0) Form1.Circle (0, 0), 5, , pi, 2 * pi Form1.Circle (-3, 0), 8, , 0, pi Form1.Circle (0, 0), 11, , pi, 2 * pi Form1.Circle (-3, 0), 14, , 0, pi Form1.Circle (0, 0), 17, , pi, 2 * pi Form1.Circle (-3, 0), 20, , 0, pi Form1.Circle (0, 0), 23, , pi, 2 * pi Form1.Circle (-3, 0), 26, , 0, pi Form1.Circle (0, 0), 29, , pi, 2 * pi End Sub 【实训8.4】窗体上两个按钮的功能分别是在图片框里画出同心圆和同心矩形，如图8-4和图8-5所示。 提示：在窗体上添加图片框（picture1）、两个命令按钮（command1和command2），命令按钮的Caption属性分别设置为“同心圆”和“同心矩形”。 图8-4 图8-5 参考代码： 画同心圆 Private Sub Command1_Click() Form1.Caption = 同心圆 Picture1.Cls Picture1.Scale (-100, 100)-(100, -100) r = 10 For i = 1 To 10 Picture1.Circle (0, 0), r + 5 * i Next i End Sub 画同心矩形 Private Sub Command2_Click() Form1.Caption = 同心矩形 Picture1.Cls Picture1.Scale (-100, 100)-(100, -100) r = 10 For i = 1 To 10 r = r + 5 * i Picture1.Line (r + 5, r)-(-r - 5, -r), , B Next i End Sub 【实训8.5】分别利用点和小线段模拟y=(sin(x)+cos(2x))/2数学函数曲线，如图8-6所示。 图8-6 参考代码： 1、利用点实现 Private Sub Form_Paint() Dim i As Single, pi As Double pi = 4 * Atn(1) Form1.Scale (-2 * pi, 1)-(2 * pi, -1) Form1.Line (-2 * pi, 0)-(2 * pi, 0) Form1.Line (0, 1)-(0, -1) For i = -2 * pi To 2 * pi Step 0.01 Form1.PSet (i, (Sin(i) + Cos(2 * i)) / 2) Next i End Sub 2、利用小线段实现 Private Sub Form_Paint() Dim i As Single, pi As Double pi = 4 * Atn(1) 计算圆周率 Form1.Scale (-2 * pi, 1)-(2 * pi, -1) 建立新坐标系 Form1.Line (-2 * pi, 0)-(2 * pi, 0) 绘制x轴 Form1.Line (0, 1)-(0, -1) 绘制y轴 CurrentX = -2 * pi CurrentY = (Sin(CurrentX) + Cos(2 * CurrentX)) / 2 For i = -2 * pi To 2 * pi Step 0.01 用小线段来模拟曲线 Form1.Line -(i, (Sin(i) + Cos(2 * i)) / 2) Next i End Sub 【实训8.6】利用poi