1樓：風華正茂
dim n as long
dim s as double
n=inputbox("請輸入n的值：")s=1 's初值設為1for i=1 to n step 1
s= s * i
next i
print s '最後輸出
2樓：匿名使用者
dim n as long
dim i as long
dim s as long
n = 6
s = 1
for i = 1 to n
s = s * i
next
debug.print(s)
樓上的那個在n=0 的時候結果不對
3樓：匿名使用者
public function fjc(byval n as integer) as long
dim jc as long
if n < 0 then
jc = -1 '表示負數沒有階乘elseif n = 0 then
jc = 1 '0的階乘=1elseif n > 0 then
on error goto errhandeljc = 1
for i = 1 to n
jc = jc * i
next
end if
fjc = jc
exit function
errhandel: fjc = -2 '表示資料過大，造成溢位
end function
4樓：大宇世界
dim n as integer
dim i as integer
n = 5
for i = n - 1 to 1 step -1n = n * i
next
試一下吧，是for迴圈不會用吧~
vb程式設計。輸入整數n，計算1！+2！+3！….+n！的值，並在窗體上輸出。要求分別用for,while 兩種迴圈實現
5樓：落葉l無情
dim i as integer, j as integerdim n as integer, sum as long, jc as long
n = inputbox("請輸入：") '如果是用文字框text1輸入，這裡改為 n=val(text1)
sum = 0
for i = 1 to n
jc = 1
for j=1 to i
jc = jc * j
next j
sum = sum + jc
next i
print sum
while:
dim i as integer, j as integerdim n as integer, sum as long, jc as long
n = inputbox("請輸入：")
sum = 0
i = 1
while i <= n
jc = 1
j = 1
while j <= i
jc = jc * j
j = j + 1
wend
sum = sum + jc
i = i + 1
wend
print sum
vb中print語句怎麼用，VB中Print語句怎麼用？
樓主如果還是做不出來的話，可以把郵箱留下，我把我用vb6.0做的乙個例子給你發過去，解壓之後就能執行了，你可以參考下。好像你的郵箱是qinyehong 126.com是吧？我已經發過去了。 豆漠義友珊 print a 是輸出字串a 就是直接輸出引號內的。print a是輸出程式內 a的當前值 pri...
for迴圈怎麼寫，用一個for迴圈怎麼輸出九九乘法表？
for迴圈的特點 迴圈次數確定的 可計算的 迴圈變數在每次迴圈中取不同值。當然這個要求不是必須的。一般來說，迴圈變數初值為0，在迴圈中每次增加1，迴圈體中可以利用這個變數的取值來進行運算。格式 for 迴圈初始化語句a 迴圈條件b 每次迴圈體執行完執行的語句c 執行順序 abdcbdcbdc.b 舉...
vb中的left怎麼用啊，vb中left函式的使用
vb妮可 private sub timer1 timer if label1.left 0 label1.width then left,就是控制項最左邊緣在螢幕中的位置,你這樣想,如果控制項的left 0了,就說明控制項緊挨著窗體的左邊緣了,可是這時候,讓它轉換到右邊去,就會不完美,比如這個標籤...