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 是長整型，讓
daos 是雙精度型別,因為1/長整數 得到的必定超過了單精度然後給 a,b,s 分別賦值為 1 ,0 ,0程式執行後，讓b作為1+2+3+...100讓a 每次增加1
s=s+1/b
這裡用到的是for ，汗，說明完，反而成最後一個了。
2樓：匿名使用者
dim i as integer
dim s as integer
dim r as single
for i = 1 to 100
s = s + i
r = r + 1 / s
next
msgbox "結果為:" & r
3樓：匿名使用者
sub test()
's=1/1+1/(1+2)+1/(1+2+3)+¡1/(1+2+3+¡+100)
dim i as integer
dim d as double
dim result as double
'dim str as string
for i = 1 to 100
'str = i & "+" & str
'debug.print str
d = d + i
result = result + 1 / dnext i
'debug.print result
end sub
4樓：匿名使用者
function sn(n as integer) as integer
dim i as integer
sn=0
for i=1 to n
sn=sn+i
next
end fu**tion
function s(n as integer) as doubledim i as integer
s=0for i=1 to n
s=s+1/sn(i)
next
end fu**tion
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程式求S1234567899的值是多少
99的階乘 復接近10的156次方，也就是說，是一制個155位的數值，這個數值在vb的數值型別中，是無法精確儲存的。一般演算法型別的程式設計題目，會求這個值的後6位這樣的問題，或者使用貪心演算法計算階乘和問題，這類問題通常不會超過10的階乘值或者整數變數範圍。s 0for i 1 to 99 for...
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...