系统总是说除数为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

只看了幾句將 i=1

问题出现在N这个变量上，你只是对N这个变量进行声明，没有对它进行赋值呀！

这是原题：正确的函数值是：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给的条件，我写不进去，系统提示：没有结束语句

这个就靠你对语法的掌握了……

直接用text1.text 有问题

Text2.Text = Str$((5# / Val(N)) * Val(Text1.Text))

除数为零

为什么除数会为0呢？哪里遇到除法了？除数是谁？

N是什么？什么时候定义的？赋值了没有？如果没有赋值那么值应该是几？


还有，N是Integer，那Val函数是做什么的？

Const a = 10
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim a As String
Text1.Text = a
n = InputBox("请输入")
If i <= n Then
For i = 1 To n
i = i + n
Next
Text2.Text = Str((5# / Val(n)) * Val(Text1.Text))
MsgBox "i等于:" & i
End If
End Sub

我也刚学几天，呵，交流下，，上面是我想出来，
总结下，
'先定A的变量,让TEXT1是A的常量，
'然后通过接受键盘输入来定N的值，让FO语句判断N的值，I就步长，循环，运行语句算TEXT2的值。
'在输出

不好意思。我是半桶水，如果有哪里不对的，也希望大虾们指点。。。