VB 的画图问题

有一个很复杂的图像，就是画不出来= =
明明在几何画板运行得很好啊
为什么VB不行啊？

Private Sub Command1_Click()

For x = -1 To 1 Step 0.01
y = x ^ (2 / 3) + (1 - x ^ 2) ^ (1 / 2)
PSet (2000 + x, 2000 + y), vbRed

Next x

End Sub

答案：计算公式问题，另外2000 + x，2000 + y可能超出屏幕范围，你可以这样：
y = x ^ 2 / 3 + (1 - x ^ 2) ^ (1 / 2)
Debug.Print x, y
PSet (2000 * x, 2000 * y), vbRed

观察x和y的值

其他：我试过了，x ^ (2 / 3)和(1 - x ^ 2) ^ (1 / 2)的表达方式是错误的，
VB不能进行某数的非整数次冥的运算
比如写x^1.5是错误的
整数次冥是没有问题的 经检查 
Private Sub Command1_Click()
Dim y As Double, x As Double
For x = -1 To 1 Step 0.01
If (1 - x ^ 2) ^ 2 <> 0 Then
y = (x ^ 3) / 2 + 1 / (1 - x ^ 2) ^ 2
PSet (2000 + x, 2000 + y), vbRed
End If
Next x
End Sub

这样通过，你要把数学公式转化下。不要硬抄

上一个：vb怎么学好api啊
下一个：VB 窗体关闭过程