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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息