我输出y=x^(-2)这个函数的图像，
自然x不能等于0，
所以我把x=0这点去掉了，但还是出错。
这是为什么？
程序代码：
Option Explicit
Private Sub Command1_Click()
Dim x As Single
For x = -5 To 5 Step 0.01
If x <> 0 Then PSet (500 * x + 5000, -(500 * x ^ -2) + 5000), vbRed
Next
End Sub

If x <> 0 Then PSet (500 * x + 5000, -(500 * x ^ -2) + 5000), vbRed
这行语句的作用就是输出点时跳过0。

简单测试了一下，For x = -5 To 5 Step 0.01这个循环过程中，x实际上不会等于0（因为浮点数计算有误差），所以当x接近0时，500*x^-2会很大，超出PSet可以接受的范围
你可以改成 For x = -500 To 500 （x也改成Integer类型），并且计算时用x/100代替x，这样可以消除浮点数误差

防止出错可以简单粗暴的用on error resume next，另外画函数图像最好用line使之看起来连续

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x(-500 To 500) As Single
Dim y(-500 To 500) As Single
Line (0, 5000)-(10000, 5000)
Line (5000, 0)-(5000, 10000)'帮你加个坐标线
For i = -500 To 500
If i <> 0 Then
x(i) = i / 100
y(i) = x(i) ^ -2
End If
If i <> -500 And i <> 0 And i <> 1 Then
Line (500 * x(i - 1) + 5000, -500 * y(i - 1) + 5000)-(500 * x(i) + 5000, -500 * y(i) + 5000)
End If
Next i
End Sub

不明白楼主为啥，只说出错。就是不愿意说出错的提示？

有一个条件语句是这样：“If a <> a \ 1 And dot_hor < 0 Then”，执行时出错，错误提示为“编译错误：类型不匹配”，点“调试”后这个“\”也就是整除运算符号被选中。这是什么原因？

在编程意义上，|x|<1e-154,x的-2次方就会溢出。再考虑到乘500那么|x|就不应大于5E-152。
但在图像意义上，如果要观察大趋势（|x|>1的部分）的话，x=±1时y=500，y最大就不应大于25000，否则想看到顶部时±1以外的部分只是趴在X轴上，这时候|x|就不应该小于0.14；如果要观察±1以内的部分，|x|=0.1时y=50000，已经是±1处的100倍了，也不能再靠近y轴了。上述都是极限情况，所以，建议步长用0.2，并跳过|x|<0.2的部分。

我已经傻掉了，我发现在本帖中，我已经没有脑子了
我不能再浏览本帖了

@初音✨七奈
又有一个问题：我要限制一次函数的输入的k和b的值只能在-10到10之间并且精确度不能超过两位小数，于是我加了这么一句条件语句：“If k >= -10 And k <= 10 And b >= -10 And b <= 10 And 100 * k = Int(100 * k) And 100 * b = Int(100 * b) Then”。然而我输入1.8或1.9时出错。

8楼、14楼：
例：
Dim a&()
If a <> int(a) Then
尝试运行，就会是提示
编译错误：类型不匹配

对于科学计算，有两个问题值得注意：