1樓:譚豐羽富珺
最標準,復簡單**
dima
asinteger,bas
long,s
asdoubleb=
0a=1
s=0fora=
1to100b=b
+as=
s+1/
ba=a
+1next
aprint
s~~·制
說明下把
先定義a
是整型,再定義一個b
是長整型,讓s
是雙精度型別,因為1/長整數
得到的必定超過了單精度
然後給a,b,s
分別賦值為1,0
,0程式執行後,讓b作為1+2+3+...100讓a每次增加1
s=s+1/b
這裡用到的是for
,汗,說明完,反而成最後一個了。
2樓:類山蝶睦洋
'下面是演算法,可手動輸入次數a=
inputbox("請輸入一個大於1的正整數,例版如:100","輸入框",100)
fori
=1toat
=i*(a
+1-i)
s=s+
tnext
msgbox
"從1到"&a
&"的和值為權:"&s
vb中程式設計序求:s=1/1+1/(1+2)+1/(1+2+3)+...1/(1+2+3+...+100)
3樓:匿名使用者
最標準,抄簡單**襲
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 ,汗,說明完,反而成最後一個了。
4樓:匿名使用者
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
5樓:匿名使用者
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
6樓:匿名使用者
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 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程式設計計算s123,VB程式設計計算s
function ss tos as integer as integer tos參與復計算 制的最後一個數 dim i as integer ss 0 for i 1 to tos if i mod 2 0 then ss ss i else ss ss i end if next end fun...
用vb程式設計序實現
隨機數重複的做法 把text1 text3的multiline屬性設定為true dim a 100 as integerprivate sub command1 click k 1 if text2.text then exit subfor i 1 to 100 if a i text2.tex...