求1！+2！+……+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori=1To10_____________NextPrintyEndSub
求1！+2！+……+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori=1To10_____________NextPrintyEndSub
1