VB编程时溢出？

Private Sub Picture1_Click()
Dim x, y, a As Single
a = InputBox("输入一个底数 a ..系统会帮你画出对应的函数图..", "y = a ^ x 的函数图")

x = InputBox("输入一个指数 x ..系统会帮你画出对应的函数图..", "y = a ^x 的函数图")

Picture1.Scale (-10, 25)-(10, -25)

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)

For x = -10 To 10 Step 0.0001

y = a ^ x

Picture1.PSet (x, y), RGB(255, 0, 0)【这部分有问题，系统说‘溢出’】

Next x

End Sub

请高手帮忙！~！！

谢谢~！！！！！！！！！！！！！！！！！1

没有啊 .. 我的 正确啊..

y=a^x的结果超出你定义的范围，加个限定条件，限制输入的值，保证乘积的结果在定义范围内。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息