VB程序题：在窗体上放置一个命令按钮，设置标题为“绘图”。单击“绘图”按钮，定义窗体的坐标系为（-4,4）-（4,-8）；用Line方法在窗体上按阿基德螺线方程 x=a Cosa，y=a Sina …

VB程序题：在窗体上放置一个命令按钮，设置标题为“绘图”。单击“绘图”按钮，定义窗体的坐标系为（-4,4）-（4,-8）；用Line方法在窗体上按阿基德螺线方程 x=a Cosa，y=a Sina 在 0-2π之间展开直线（直线的一端为坐标系原点，另一端坐标用阿基米德方程计算），要求直线的颜色随机变化，步长为0.1,如图I.4所示。 --- wb86.com

图I.4

解题，在窗体建1个按钮,代码如下：
 Private Sub Command1_Click()
    Cls
    Randomize
    Scale (-4, 4)-(4, -8)
    For i = 0 To 2 * 3.14159 Step 0.1
        x = i * Cos(i)
        y = i * Sin(i)
        Line (0, 0)-(x, y), QBColor(Rnd * 15)
    Next i
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/117.html