1樓：匿名使用者
主要**
private sub command1_click()d = inputbox("請輸入圓的直徑")s = 3.1415926 / 4 * d ^ 2l = 3.1415926 * d
msgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
private sub command2_click()r = inputbox("請輸入圓的半徑")s = 3.1415926 * (r ^ 2)l = 2 * 3.1415926 * rmsgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
2樓：在晴天的雨傘
private sub form_click()
dim r as single '定義半徑r為單精度(變數)
const pi as single = 3.14 '定義pi為單精度(常量)
dim s as single '定義面積s為單精度（變數）
r = inputbox("輸入r") '半徑r通過inputbox函式輸入值
s = pi * r ^ 2 '用求圓面積公式，並把值賦給s
print s '在窗體上列印出s的值
end sub
求一個最簡單的j**a程式
VB程式求幫忙，求大神幫忙一個超級簡單VB程式程式碼編寫 跪求！
用timer控制元件,設interval 1000然後在事件處理過程中檢查 if second now 0 then 0秒 end if if minute now 59 then 59分 end if 如果用do迴圈,會霸佔cpu資源,結果就想當於死迴圈.dim mytime mytime tim...
求簡單的程式，求一個簡單的程式
1全部1 在列印的選項中，有一個選項可以規定列印的範圍，你找一下 word裡 2 你找一下有沒有調轉方向的的選項 本程式通過編譯，執行正確 code segment assume cs code,ds coden equ 100 start push cs pop ds 使資料段與 段同段 cld ...
求vb的求數平方的程式設計，求一個vb的求一個數平方的程式設計
樓主您好！什麼也不用畫，直接複製貼上 簡單就一句 msgbox 這個數的平方為 val inputbox 請輸入要求平方的數 提示視窗 2 64 vbokcancel vbdefaultbutton1,提示視窗 多寫點就這樣 dim number1 as double dim number2 as ...