欧美一区二区三区,国内熟女精品熟女A片视频小说,日本av网,小鲜肉男男GAY做受XXX网站

n的階乘求和,用VB表示,代碼如何寫,n的值不大于12?

錢多多2年前9瀏覽0評論

Functionjc(ByValnAsInteger)AsLongDimiAsLongjc=1Fori=1Tonjc=jc*iNextEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,nAsIntegerDimsAsLong=0n=Val(InputBox("求1至n的階乘,請輸入n的值","n值")

)If(n>12)ThenMsgBox("n的值應不大于12,請重新輸入"

)ExitSubEndIfFori=1Tons=s+jc(i)NextiMsgBox("階乘之和="&Str(s)

)EndSub