当前位置:首页 » VB程序题 » 正文

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://wb86.com/post/117.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号