1樓：墨汁諾
99的階乘
復接近10的156次方，也就是說，是一制個155位的數值，這個數值在vb的數值型別中，是無法精確儲存的。
一般演算法型別的程式設計題目，會求這個值的後6位這樣的問題，或者使用貪心演算法計算階乘和問題，這類問題通常不會超過10的階乘值或者整數變數範圍。
s=0for i= 1 to 99
for j=1 to i
s1=1
s1=s1*j
next j
s=s+s1
next i
2樓：匿名使用者
謝謝偽**給你，你自己再寫.首先高清楚n!=1*2*...n,所以用兩個迴圈來
做，第一個做相回加，第二個是答做階乘
s=0for i= 1 to 99
for j=1 to i
s1=1
s1=s1*j
next j
s=s+s1
next i
3樓：匿名使用者
99的階乘接bai近10的156次方，也就du是說，是一個zhi155位的數值
4樓：匿名使用者
sub main()
dim c as integer = 1
dim sum as integer = 0dim b as integer = 0
for i = 1 to 99
b = i
while (b >= 1)
c += b * (b - 1)
b -= 1
end while
sum += c
i += 1
next
console.writeline(sum)console.read()
end sub
vb程式設計:s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10!
5樓：匿名使用者
dim i,j=1,s=0
for i=1 to 10
j=j*i
s=s+j
next
print s
具體自己再看看，就是這個思想，很簡答的，
6樓：匿名使用者
private sub ***mand1_click()for i = 1 to 10
n = 1
for k = 1 to i
n = n * k
next k
s = s + n
next i
print s
end sub
7樓：匿名使用者
dim s,t as long
s=0for i=1 to 10
t=1for j=1 to i
t=t*j
next
s=s+t
next
msgbox s
8樓：飛玉追星
private sub form_load()me.autoredraw = true
dim i as integer
dim j as long
dim s as long
j = 1
s = 0
for i = 1 to 10
j = j * i
s = s + j
next i
print s
end sub
vb中程式設計序求s
最標準,復簡單 dima asinteger,bas long,s asdoubleb 0a 1 s 0fora 1to100b b as s 1 ba a 1next aprint s 制 說明下把 先定義a 是整型,再定義一個b 是長整型,讓s 是雙精度型別,因為1 長整數 得到的必定超過了單精...
vb中程式設計序求 s 1 1 2 1 1 2 31 1
最標準，抄簡單 襲 dim a as integer,b as long，s as double b 0 a 1 s 0 for a 1 to 100 b b a s s 1 b a a 1 next a print s 說明下把bai 先定義 a 是整型 du，再定義一個zhib 是長整型，讓 d...
vb求階乘程式問題，vb中求1到n階乘的和
程式呢，請補充一下吧 option explicit private sub command1 click dim a as integer a int val text1.text text2.text jiec a end sub private function jiec n as integ...