1樓：
也許可以吧，試試我這個，原理就是在等式兩邊同時乘乙個10的某個位數次方，那就可以把我們要的答案轉換為整數運算了。
首先定義的所有資料型別是long int（64位），不是預設定義的int型。
n = （輸入要n的值即可）
d=10^13(保留的位數)
for i=1 to (2*n-1) step 2sum=sum+d/i
next
print "最後結果是：0." & sum
2樓：匿名使用者
n=inputbox("請輸入n的值：")for i=1 to (2*n-1) step 2sum=sum+1/i
next
sum=round(sum,13)'取13位小數print sum
3樓：牛人影視
private sub command1_click()dim i as long, n as longdim s as double
n = val(inputbox("請輸入n的值："))s = 1
for i = 2 to 2 * n step 2s = s + 1 / i
next i
print format(s, "0.0000000000000")end sub
4樓：匿名使用者
dim sum as double
n = inputbox("請輸入n值")for i = 1 to (2 * n - 1) step 2if i mod 2 then sum = sum + 1 / inext
print sum
或者dim sum as double
n = inputbox("請輸入n值")for i = 1 to n
sum = sum + 1 / (2 * n - 1)next
print sum
用vb編寫程式，計算1/2+1/4+1/6+......+1/300。急，求教各位大神，謝謝幫忙
5樓：小羅哥
option explicitdim k, t as singleprivate sub command1_click()for k = 2 to 300 step 2t = t + 1 / k
next
label1.caption = t
end sub
6樓：匿名使用者
for i = 2 to 300 step 2
sum = 1 / i + sum
next i
用vb編寫計算s=1-1/2+1/3-1/4+1/5-1/6+1/7-1/8+1/9-1/10
7樓：匿名使用者
private sub command1_click()dim i as integer, s as doubles = 0
for i = 1 to 10
s = s + (-1) ^ (i - 1) * (1 / i)next i
print 0; s
end sub
求11ZJ001地202XF的圖集急用謝謝
11zj001建築構造用料做法，採納我給你傳送。圖集11zj001 22頁 地106 11zj001 建築構造用料做法，22頁，地106如下，滿意請點一下採納 求11zj001以及11zj系列圖集 10 11zj001 中南地區建築圖集 建築構造用料做法.pdf11zj201 平屋面 中南標 pdf...
關於補課申請書，補課申請書怎麼寫 求 急用啊 各位幫幫忙
給你一個參考的範文！你改一改就可以了！尊敬的廣西教育廳各位領導 您們好！我是廣西賀州市高階中學的一名高三學生。在此，我代表我們學校多數高三學生向您們傾訴。我們學校的領導竟然違反 的減負的精神，違背您們教育廳領導的精神，決定要我們全校畢業班同學在寒假補課。補課的時間為元月12日 18日，2月1日 7日...
導數的定義是什麼？y 1 1 x 的導數怎麼求
合併這兩句，就是你想用導數的定義求這個函式吧 導數定義f x lim h 0 f x h f x h f a lim x a f x f a x a 就是函式在x a處的導數，也即曲線在該點的斜率。y 1 1 x y lim h 0 f x h f x h lim h 0 1 1 x h 1 1 x...