求1！+3！+5！+7！+9！，vb程序，希望有註釋

Private?Sub?Command1_Click()

s?=?0

For?i?=?1?To?9?Step?2'只計算指定範圍內奇數的階乘

If?i?>?1?Then?Print?"+";

s?=?s?+?fac(i)'累加階乘

Print?i?&?"!";

Next?i

Print?"=";?s

End?Sub

Function?fac(n)?'計算n!

f?=?1?'初始值

For?i?=?2?To?n'實現累乘

f?=?f?*?i

Next?i

fac?=?f

End?Function

上一篇:做幼師兩年了，想轉行，有沒有轉行成功的小夥伴？想做文員可是對辦公軟件不熟練。

下一篇:MT4中，均線交叉做平倉的ea代碼怎麽寫。