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

VB程序题:在窗体上放置一个图形框、两个命令按钮,设置标题为“画图”和“返回”,如图I.3所示。单击“画图”按钮,重新定义图形框的坐标系为(-4,4)-(4,-4)。用Pset方法在图形框内……

VB程序题:在窗体上放置一个图形框、两个命令按钮,设置标题为“画图”和“返回”,如图I.3所示。单击“画图”按钮,重新定义图形框的坐标系为(-4,4)-(4,-4)。用Pset方法在图形框内绘制参数方程 x=r Cos4aCos4a,y=r Cos4aSina 在0~2∏之间的图形,其中r为半径,取图形框坐标系宽度的一半;当单击“返回”按钮时,结束程序。

图I.3

解题,在窗体建2个按钮,代码如下:
 

    Picture1.Scale (-4, 4)-(4, -4)
    For i = 0 To 2 * 3.14159 Step 0.01
        x = 4 * Cos(4 * i) * Cos(i)
        y = 4 * Cos(4 * i) * Sin(i)
        Picture1.PSet (x, y)
    Next i

End Sub

Private Sub Command2_Click()
    Unload Me
End Sub


-----来自 wb86.com 济亨网
Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://wb86.com/post/116.html

    << 上一篇 下一篇 >>

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