1樓：匿名使用者
'先寫一個求階乘的函式
private function factorial(byval n as integer) as long
dim i as integer, l as longl = 1
for i = 1 to n
l = l * i
next
factorial = l
end function
'新增一個按鈕控制元件
private sub command1_click()dim result as long, i as integerresult = 0
for i = 1 to 10
result = result + factorial(i)next
form1.print result
end sub
'結果為4037913
2樓：匿名使用者
結果 22.2186507936508
option explicit
private function factorial(byval n as long) as double
dim i as long
dim l as double
for i = 1 to n
l = l + 1 / i
next
factorial = l
end function
private sub command1_click()dim result as double, i as longresult = 0
for i = 1 to 10
result = result + factorial(i)next
debug.print result
end sub
編寫一個vb函式過程,計算 1~10的階乘之和 ,並將執行結果輸出在窗體上
3樓：匿名使用者
參考copy**：
private sub command1_click()dim i as integer
for i = 1 to 10
sum = sum + jc(i)
next
msgbox sum
end sub
function jc(a as integer)jc = 1
for i = 1 to a
jc = jc * i
next
end function
4樓：古舟蓑笠翁
private sub command1_click()print jc(10)
end sub
private function jc(n as integer) as long
dim i as integer
jc = 1
for i = 1 to n
jc = jc * i
next i
end function
vb 用for迴圈語句編寫程式,計算和輸出10的階乘
5樓：聽不清啊
private sub command1_click()f = 1
for i = 2 to 10
f = f * i
next i
msgbox ("10!=" & f)
end sub
用c語言for迴圈求1到10階乘
include void main sum c 把結果累專加在sum中 printf 10的階乘之和為屬 ld n sum void main 主函式printf 1到10的階乘和是 d sum 輸出結果 end結束 c語言for迴圈 求1 10階乘的和 現象一 手機不開抄機 手機電池可拆卸 解決方...
1到10的漢字怎麼寫，1到10的數字用漢字怎麼寫？
1 1到10的漢字小寫為 一 二 三 四 五 六 七 八 九 十 2 1到10的漢字大寫為 壹 貳 叄 肆 伍 陸 柒 捌 玖 拾。漢字中有數字 一 二 三 四 五 六 七 八 九 十 百 千 萬 相對應的大寫為 壹 貳 叄 肆 伍 陸 柒 捌 玖 拾 佰 仟 萬 壹 叄 伍 是最早用作大寫數字的文...
1到10的英文字母怎麼讀，1到10的英語單詞怎麼讀？
一到十的數字，英語讀音如下 1.one 英 w n 美 w n n.一 一個 一體 2.two 英 tu 美 tu num.二 兩個 3.three 英 ri 美 ri num.三 n.三 三個 4.four 英 f r 美 f r num.四 5.five 英 fa v 美 fa v num.五 ...