For x = -5 To 5 Step 0.1
    Dim a As Single
    a = Val(ta.Text) ^ x
Next xta.text里输入1,2,3都没事,输入0或-1就提示实时错误5,无效的调用过程或参数怎么回事???