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://www.wb98.com/post/116.html