Private Sub Command1_Click()n=inputbox("请输入n：")Dim a As integera = 1Dim sum As DoubleFor i = 1 To n For j = 1 To i a = a * j Next sum = sum + 1 / a a = 1NextPrint sumEnd Sub不对