在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后,在两个文本框中输入数据,当单个按钮时,标签Label1中显示运算的结果。程序的功能是计算,n!+(n+1)!+(n+2)!+…+(n+m)!。
请在 【15】 处填入适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Dim a,b,c,d As Double
Dim i,n,m As Integer
n=Val(Text1.Text):m=Val( 【15】 )
a=0: b=1: c=0: d=1
For i=1 TO m
b=b*i
a=a+b
Next i
For i=1 To n
d=d*i
C=c+d
Next i
Label1.Caption=a-c
End Sub