1樓：匿名使用者
private sub form_click()
dim i&, n1#, n2#
n1 = 2
for i = 1 to 1000
n2 = ((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1))
n1 = n1 * n2
if i = 10 then msgbox "當n=" & 10 & "時，π=" & n1
if i = 100 then msgbox "當n=" & 100 & "時，π=" & n1
if i = 1000 then msgbox "當n=" & 1000 & "時，π=" & n1
next i
end sub
2樓：
邏輯完全錯誤的程式
你要實現什麼功能？需求是什麼
3樓：
function pi(n as integer) as integer
for i = 1 to n
n1 = 2
n2 = ((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1))
n1 = n1 * n2
next i
pi=n1
end function
private sub form_click()msgbox "當n=10時，π=" & pi(10)msgbox "當n=100時，π=" & pi(100)msgbox "當n1000時，π=" & pi(1000)end sub
4樓：匿名使用者
看不懂你的迴圈中n1永遠都是2，所以你的n1=n1*n2就沒有意義了。
5樓：匿名使用者
for i = 1 to n
n1 = 2
如三樓中指出的,二樓中的上兩語句應換一下位置,如下:
n1 = 2
for i = 1 to n
為什麼u盤讀不出來，為什麼U盤讀不出來？
首先得確定是u盤的問題還是電腦設定的問題，先把u盤插到其他的電腦看看如果是電腦的問題解決如下 開啟 執行 輸入 regedit 按回車鍵。接下來依次操作，hkey current user software microsoft windows currentversion ploicies expl...
分手了為什麼我想哭哭不出來，想哭卻哭不出來是為什麼？
任性的說 哭不出來就不哭唄，還非得哭幹嘛？哭出來就怎麼了，不過是眼裡流出了水。感性的說 哭不出來比哭出來更難過，心堵，無法釋放。理性的說 難受哭不出來多是自我常被壓制壓抑，或者習慣性理性壓制感性。還有一種情況是因為悲傷劇烈形成的自我防禦機制，造成真實情緒被強制忽略遺忘延遲。更有誇張的是應激反應和真實...
為什麼手機卡槽按不出來？
如果您使用的是華為手機，手機卡託取不下來或無法彈出，請您按以下方法嘗試解決 1，建議您使用華為標準取卡針取卡。請您使用華為標準取卡針，垂直方向插入卡託孔 卡託孔位於卡託上或靠近卡託的位置 稍微用力頂開卡託，然後將卡託從手機上拔出。請注意區分卡託孔與麥克風孔。2，若使用華為標準取卡針也無法彈出。請確認...