求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