1樓：慶年工坊
sub s()
dim i%, st&, **&
st = 1
for i = 1 to 10
st = st * i
** = ** + st
next
print **
end sub
vb程式:求s=1!+2!+3!+4!+5!+6!+7!+8!+……+99!的值是多少?
2樓：墨汁諾
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
3樓：匿名使用者
謝謝偽**給你，你自己再寫.首先高清楚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
4樓：匿名使用者
99的階乘接bai近10的156次方，也就du是說，是一個zhi155位的數值
5樓：匿名使用者
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+......+(n-1)!/n 的值並輸出，其中n是從鍵盤輸入大於1的正整數 5
6樓：聽不清啊
照樓主的題目，n不是大於1的正整數，應該是大於回1的正偶數才對答吧？
private sub ***mand1_click()n = val(inputbox("n="))if n mod 2 = 1 then exit subt = 1 / 2
s = t
for i = 3 to n - 1 step 2t = t * i * (i - 1) * (i - 1) / (i + 1)
s = s + t
next i
print s
end sub
7樓：可軒
private sub ***mand1_click()dim j%, k%, n%, m#, s#n = inputbox("n=?")
s = 0
for j = 2 to n
m = 1
for k = 1 to j - 1
m = m * k
next k
s = s + m / j
next j
clsprint "結果是"; s
end sub
8樓：
function out(n)
for i=1 to n
baiout=out+cj(i-1)/i
next
end function
function cj(n)
for i=1 to n
cj=n*i
next
end function
for n=1 to 5
隨便du寫的
zhi 對不對不曉dao得回
你自己答算
9樓：李清塵
private b,n as intergerprivate function jc(m as interger) as interger
jc = 1
if m > 1 then
for i = 1 to m
jc = jc * i
next i
end if
end function
private sub text1_keydown(keycode as integer, shift as integer)
n = text1.text
if keycode = 13 then
for j = 1 to n
b = b + jc(j) / j
next j
end if
msgbox b , vbok + vbinformation , "輸出"
end sub
用vb程式設計計算：1！+2！+3！+4！+…+n!
10樓：匿名使用者
新建一個工程，新增個命令按鈕和一個文字框
**如下：
private sub ***mand1_click()n = val(text1.text)
s = 0 '存結果
for i = 1 to n
t = 1 '臨時存積的變數
for j = 1 to i '計算階乘
t = t * j
next j
s = s + t
next i
print "結果為：" & s
end sub
急求VB程式設計
private sub command1 click dim a 20 i for i 1 to 20 給陣列a 1 20 賦值 a i inputbox 請輸入一個整型數 用inputbox輸入整數 print a i if i mod 5 0 then print 5個數一行。轉行 next i...
求VB畢業課程設計，VB程式設計
給分解決不了這種問題的。vb程式設計 80 我自能給親說一下思路，如圖所示，應該建立2個form，第一個用於成績顯示查詢，當然前提應該把成績的資料庫匯入進去，如果這是老師要求的作業，用access資料庫簡單編幾個資料就好了。當點選 生成圖表 按鈕時，form1隱藏，form2出現，座標軸事先用lin...
求解下面這三道程式設計題vb謝謝，急求！一道VB程式設計題 謝謝！
程式設計題1 option explicit private sub form load dim strinput as stringdim bytidx as byte dim strrank 1 to 3 as stringdim sngnum as singlestrrank 1 st str...