VB程序设计 1、 编程计算S=1/1!+1/2!+1/3!+…..+1/n! ，n的值通过inputbox从键盘输入，计算结果在窗体上输

Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer Dim sum1 As Long, sum2 As Long n=inputbox("请输入n的值") sum1 = 0 sum3=1 For i = 1 To n sum2 = 1 For j = 1 To i sum2 = sum2 * j sum3=sum2^(-