回 帖 发 新 帖 刷新版面

主题:编一个简简单单的蝴蝶结吧。

一个简单的蝴蝶结就是这样生成的:

Private Sub Form_Click()
Scale (-1, -1)-(1, 1)
DrawWidth = 2
ForeColor = vbRed
For t = 0 To 2 * 3.1415926 Step 0.001
x = Sin(2 * t) * Cos(t)
y = Sin(2 * t) * Sin(t)
PSet (x, y)
Next t

End Sub

回复列表 (共10个回复)

沙发

要在什么地方运行啊,在什么地方运行才出效果啊?
是不是在数据库里面运行的???????

板凳

你用的是什么软件啊

3 楼

什么语言~?

4 楼

什么语言~?

5 楼

VB

6 楼

~~~~不错  ,应该可以提高使学习编程的兴趣 ~~~

7 楼

VB

8 楼

也不说下是用什么语言写的
    叫我怎么运行啊??????

9 楼


满帅的,
我很喜欢

10 楼

能讲讲是怎么回事吗?我是新手

我来回复

您尚未登录,请登录后再回复。点此登录或注册