UC知道为何这一段do loop语言无法输出图形？
来源：百度知道 编辑：UC知道 时间：2024/05/11 15:19:01
Dim r As Double
Scale (-5, -10)-(5, -5)
i = 1
Do While i > 1
i = i + 0.1
Circle (1, 1), r = 3 * Sin(i) + 3.5 * Cos(10 * i) * Cos(8 * i), , , , 2
PSet (r * Sin(i), r * Cos(i)), RGB(Rnd * 255, 0, 0)
PSet (r * 1 / 3 * Sin(i), r * 1 / 3 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
PSet (r * 1 / 4 * Sin(i), r * 1 / 4 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Loop
试过了，还是没效果啊。
Scale (-5, -10)-(5, -5)
i = 1
Do While i > 1
i = i + 0.1
Circle (1, 1), r = 3 * Sin(i) + 3.5 * Cos(10 * i) * Cos(8 * i), , , , 2
PSet (r * Sin(i), r * Cos(i)), RGB(Rnd * 255, 0, 0)
PSet (r * 1 / 3 * Sin(i), r * 1 / 3 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
PSet (r * 1 / 4 * Sin(i), r * 1 / 4 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Loop
试过了，还是没效果啊。
这里给i赋了值为1,所以i就不可能大于1 ,循环就不会继续
我做了个，不过我不知到你要画什么样的图
Private Sub Form_Load()
Dim r, i As Double
Me.Show
Scale (-5, -5)-(8, 8)
i = 1
For i = 1 To 10000
i = i + 1
r = Sin(i) + 3
Circle (1, 1), r, vbRed
PSet (r * Sin(i), r * Cos(i)), RGB(Rnd * 255, 0, 0)
PSet (r * 1 / 3 * Sin(i), r * 1 / 3 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
PSet (r * 1 / 4 * Sin(i), r * 1 / 4 * Cos(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next i
End Sub
=============
那个r你换成你的表达式，保证大于0就可以了。 如果你写在form_load中的话，加个me.show