用VB编写程序，求S=1!+2!+3!+4！+5！+6！+7！+8！，并在窗体中输入S的值

Option Explicit

Option Base 1           ' 数组下标从1开始

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long

Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

' By multiple1902

' 2007.7.17

' QQ: 395273243

Private Sub command_solution_docalc_Click()

    If Not IsNumeric(input_problem_n.Text) Then

        txtOutput.Text = "输入无效：" & input_problem_n.Text

        Exit Sub

    End If

   &