考题:在1到10000中寻找例如145=1!+4!+5!这样的数的vb程序
123456789101112131415161718Functionjc(xAsInteger)AsDoubleDimiAsIntegerjc=1Fori=2Toxjc=jc*iNextEndFunctionPrivateSubCommand1_Click()DimxAsDouble,iAsInteger,sAsDoubleForx=1To10000s=0Fori=1ToLen(CStr(x))s=s+jc(Val(Mid(x,i,1)))NextIfx=sThenPrintxNextxEndSub