系统总是说除数为0，到底哪不对请各位指点：
Private Sub Command1_Click()
Dim i As Integer
Dim N As Integer
If i <= N Then
For i = 1 To N
Print i = i + 1
Next
Text2.Text = Str$((5# / Val(N)) * Val(Text1.Text))
End If
End Sub

这是原题：正确的函数值是：x=6时y=0.0487627575126825,在这种情况下输入的数据适用于牛顿多项式和拉格朗日多项式这时x=6时输入的数据增加到5=<N=<10,依据这个进行误差变化的分析：
i=0,1,2,3...N   xi=(5.0/N)*i   yi=xi^(1.7)*sin(xi^(0.7)+xi^(1.3))*e^(-xi)
 
题中N给的条件，我写不进去，系统提示：没有结束语句