1樓：vb程式設計解放雙手
private sub command1_click()' 球表面積公式：s=4πr2=πd2' 球體積公式：v=4/3πr3
dim r as single
const pi = 3.14159
r = val(text1)
text3 = 4 * pi * r * rtext2 = 4 / 3 * pi * r * r * rend sub
private sub form_load()label1.caption = "輸入球的半徑："
label2.caption = "球的體積為："
label3.caption = "球的面積為："
command1.caption = "計算"
text1 = "10"
text2 = ""
text3 = ""
text2.enabled = falsetext3.enabled = falsetext1.tabindex = 0
end sub
2樓：樹洞男孩
我前幾天給一個網友做了一個
vb程式設計題設計程式求VB程式設計題設計程式求s1234n1n的值並輸出，其中n是從鍵盤輸入大於1的正整數
照樓主的題目，n不是大於1的正整數，應該是大於回1的正偶數才對答吧？private sub mand1 click n val inputbox n if n mod 2 1 then exit subt 1 2 s t for i 3 to n 1 step 2t t i i 1 i 1 i 1 ...
vb題目求解釋詳細謝謝，VB題目 求講解 儘量詳細一點 謝謝了
這是因為你把select分支結構理解錯了，所以無法獲得預期結果。改成這樣 xcase 1 t val inputbox input value of t select case t case is 0 y xcase 1 case 0 y xcase 2 case else y xcase 3 en...
求VB高手 編寫程式，找出10000 99999的所有迴文數
private sub mand1 click dim i as long,j as longdim x1 as long,x2 as longdim str as string dim flag as boolean str 從 10000 到 99999 之間的迴文數有 vbcrlf for i...