应该是你的Ni(i)中的维值i大于Ni的最大维数。。。
请确认 For i = 1 To tn中的tn是否不大于Ni的最大维数
出错后，查查 Ni(i)的值 是多少
Private Sub Command1_Click()
On Error Resume Next
Dim x As Double, y As Double
x = InputBox("请输入底数：")
y = InputBox("请输入指数：")
If x ^ y <= 9.9999999E+305 And Error = "" Then
MsgBox x ^ y
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024