1樓：網海1書生
private sub form_click()print s(25, 10)
print s(25, 50)
'print s(25, 100) 這兩行已經超出vb的計算能力了'print s(25, 200) vb只能處理32位的數值end sub
function s(x, n)
for k = 1 to n
t = 1
for i = 1 to 2 * k - 1t = t * i
next i
s = s + x ^ (2 * k - 1) / tnext k
end function
2樓：儲運天天
private sub form_click()a = s(25, 10)
print a
end sub
function s(x as long, n as long) as integer
t = 1
for i = 1 to n step 2t = t * i
sum = sum + x ^ n
next i
s = sum
end function
3樓：ma教教主
private sub form_load()picture1.picture = loadpicture("c:/1.bmp")
end sub
上面的是路徑，只要在command_click裡面寫這些就好假如要相對路徑的話
file.path代替檔案的路徑
4樓：匿名使用者
下面這個問題就是你要的答案
vb編寫程式，vb編寫乙個程式
private sub command1 click dim score as integer score int val text1.text 0.15 val text2.text 0.25 val text1.text 0.6 0.5 text4.text score end sub 關於您的...
如何編寫乙個 能夠傳送檔案 的 VB程式
看我p控制項集版本3那貼。急 如何用vb實現區域網內傳送檔案 100 如何用vb編寫乙個向指定視窗傳送鍵盤命令的程式？vb實現服務端傳輸單個小檔案給多個客戶端 是什麼環境？網際網路還是區域網？如果是區域網，伺服器端直接udp廣播一下就完了。vb的winsock如何實現多次傳輸與接收 vb的winso...
請教vb問題，請教乙個vb問題
註釋寫在 裡了，望採納 private sub command1 click text1.text visual basic 當單擊command1按鈕時，text1文字框會顯示 visual basic end sub private sub text1 lostfocus 當文字框text1失去...