VB程序属性设置及改错题

现程序代码：

Private Sub Command1_Click()
Dim NN As String, Sum, Item As Single
Dim I As Integer, J As Integer, N As Integer
NN = InputBox$("请输入求的项数N")
N = Val(NN)
Sum = 1
For I = 2 To N
Item = 0
For J = 2 To I + 1
Item = Item * J
Next J
Sum = Sum + Item
Next I
Text1.Text = Sum
End Sub

Private Sub Command1_Click()
Dim NN As String, Sum, Item As Single
Dim I As Integer, J As Integer, n As Integer
NN = InputBox$("请输入求的项数N")
n = Val(NN)
Sum = 1
For I = 2 To n
Item = 1
For J = 2 To I + 1
Item = Item * J
Next J
Sum = Sum + I / Item
Next I
Text1.Text = Sum
End Sub