Option Explicit
Private Sub Command1_Click()
Label1.Visible = True
Dim r As __single___
Dim____s___As Double
_const____ pi = 3.14159
r = Text1.Text
s = ___2*pi*r__
Label1.__caption___ = s
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
用VB設(shè)計一個計算圓的面積的程序
用VB設(shè)計一個計算圓的面積的程序
表達式及綜合應(yīng)用(新建一個工程,工程名為 計算圓的面積)
定義一個符號常量Pi,其值為3.14159
設(shè)計個含有一個文本框控件(用來接收半徑r的值),Button控件以及一個標簽控件的窗口,完善下列代碼,用標簽顯示計算出的面積.
Option Explicit
Private Sub Command1_Click()
Label1.Visible = True
Dim r As _____
Dim_______As Double
_____ pi = 3.14159
r = Text1.Text
s = _____
Label1._____ = s
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
表達式及綜合應(yīng)用(新建一個工程,工程名為 計算圓的面積)
定義一個符號常量Pi,其值為3.14159
設(shè)計個含有一個文本框控件(用來接收半徑r的值),Button控件以及一個標簽控件的窗口,完善下列代碼,用標簽顯示計算出的面積.
Option Explicit
Private Sub Command1_Click()
Label1.Visible = True
Dim r As _____
Dim_______As Double
_____ pi = 3.14159
r = Text1.Text
s = _____
Label1._____ = s
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
其他人氣:331 ℃時間:2020-03-27 17:12:50
優(yōu)質(zhì)解答
我來回答
類似推薦
- 如何利用VB編程,輸入圓的半徑,計算并輸出圓的面積.單擊命令按鈕,調(diào)用InputBox函數(shù)輸入數(shù)據(jù),通過MsgBox顯示計算結(jié)果.
- 計算圓的面積 VB代碼,
- 輸入半徑的值,分別計算并輸出圓的面積,圓的周長和球的體積. vb程序設(shè)計
- 怎樣用VB計算圓的面積和周長
- 怎么計算圓的面積.
- 但是現(xiàn)在上初2了 沒有太多的時間去購物了 用英語怎么說?
- 希望小學(xué)舉行“慶國慶60周年征文”比賽,五年級有14人參加,六年級有21人參加,比賽結(jié)束后,
- 英語翻譯
- 請幫出百分數(shù)方程10題
- 英語翻譯
- 關(guān)于細胞質(zhì)的結(jié)構(gòu)和功能
- 如圖,已知四邊形中的兩條邊的長度,求四邊形的面積.
猜你喜歡
- 1正6邊形的面積計算公式,誰知道說一下,
- 2入射角和反射角不相等的原因?在什么情況下,入射角不等于發(fā)射角?
- 3鋁鐵在濃硝酸中鈍化表面所形成的氧化物薄膜主要是由什么物質(zhì)構(gòu)成的,其結(jié)構(gòu)是怎樣的?
- 4蘇軾評價
- 5英語翻譯
- 6兩小無猜,具體怎么解釋
- 7誰給我一份原子團化合價表
- 8英語中什么叫“懸垂修飾語”?
- 9(1)在一幅比例尺是1:2500000的地圖上,量得天津到北京的距離是4.8厘米.天津到北京的實際距離大約是多少千米?
- 10初一3個班為小學(xué)捐書,
- 11x²+1<ax+a分之x a不等于 解不等式
- 12世界人均占有森林面積大約是0.65公頃,相當于我國人均占有森林面積的5倍.我國人均占有森林面積大約是多少公頃?(列方程解答)