1樓:匿名使用者
private sub command1_click()ss 10
ss 100
ss 1000
ss 10000
ss 100000
end sub
private function ss(n as long) as double
dim i as long, dbl1 as double, dbl2 as double
dbl1 = 2
for i = 1 to n
dbl2 = i / (2 * i - 1) * i / (2 * i + 1) * 4
dbl1 = dbl1 * dbl2
next i
msgbox "n=" & n & "時,π =" & dbl1end function
2樓:刀成朝
暈倒,怎麼不登陸也可以回答??
再回答一遍
private sub command1_click()ss 10
ss 100
ss 1000
ss 10000
ss 100000
end sub
private function ss(n as long) as double
dim i as long, dbl1 as double, dbl2 as double
dbl1 = 2
for i = 1 to n
dbl2 = i / (2 * i - 1) * i / (2 * i + 1) * 4
dbl1 = dbl1 * dbl2
next i
msgbox "n=" & n & "時,π =" & dbl1end function
vb程式設計,vb程式設計
private sub command1 click dim obj as object,mymouse as integer if list1.selcount 0 and list2.selcount 0 then for each obj in me.controlsif obj.name l...
vb程式設計題目,VB程式設計試題
您的第乙個問題 text1.text 輸入的數 就是 變數 在文字框裡不是什麼數都可以輸入麼?這就是常量啊!您的第二個問題 當然是寫50 應為val把50轉化了數值 為了方便你理解 我舉兩個例子吧 if val text1.text 60 thenprint pass else print nopa...
VB程式設計題目,VB程式設計題?
private sub form load text1.fontsize 10 end sub private sub command1 click text1.fontsize 10 int rnd 3 1 end sub private sub command2 click text1.font...
VB程式設計題,Vb程式設計題,
開頭你自己寫 中間過程是這樣的!int s,sum s 0 sum 0 for i 1 to 10 for j i 1 to 10 s j i next j end sum s sum next i end a 1 for i 1 to 10 a a i s s a next i label1.ca...
vb程式語言程式設計序問題),VB程式語言 程式設計序!!(3個問題)
三個問題才給10分,也太少了,呵呵 不過還是幫你解決一下。1 如下 private sub form load dim i as integer dim s,t as single dim n as integer show clss 0 t 1 n val inputbox 請輸入n的值 if n...