Const PI = 3.14159
Dim r As Double
Dim C As Double
Dim S As Double
If IsNumeric(Text1.Text) Then
r = Val(Text1.Text)
C = 2 * PI * r
S = PI * r ^ 2
Text2.Text = Format(C, "0.00")
Text3.Text = Format(S, "0.00")
Else
MsgBox "輸入不是一個有效的數(shù)值.", vbCritical
Text1.SetFocus
End If
用vb編寫程序,輸入半徑,計(jì)算圓周長和圓面積
用vb編寫程序,輸入半徑,計(jì)算圓周長和圓面積
為保證程序運(yùn)行正確,對輸入的半徑要進(jìn)行合法性檢查,數(shù)據(jù)檢查調(diào)用isnumeric函數(shù),如有錯,利用msgbox顯示出錯信息,通過setfocus方法定位于出錯的文本框處,重新輸入,計(jì)算結(jié)果保留兩位小數(shù).
為保證程序運(yùn)行正確,對輸入的半徑要進(jìn)行合法性檢查,數(shù)據(jù)檢查調(diào)用isnumeric函數(shù),如有錯,利用msgbox顯示出錯信息,通過setfocus方法定位于出錯的文本框處,重新輸入,計(jì)算結(jié)果保留兩位小數(shù).
其他人氣：802 ℃時間：2020-02-05 23:48:44
優(yōu)質(zhì)解答
我來回答
類似推薦
- 如何利用VB編程,輸入圓的半徑,計(jì)算并輸出圓的面積.單擊命令按鈕,調(diào)用InputBox函數(shù)輸入數(shù)據(jù),通過MsgBox顯示計(jì)算結(jié)果.
- VB 輸入 半徑 計(jì)算圓的周長和面積公式
- 輸入半徑,用VB編寫計(jì)算圓面積和圓周長的程序
- 圓周長和圓面積怎么算?
- 圓周長計(jì)算公式是：_；圓面積計(jì)算公式是：_．
- 但是現(xiàn)在上初2了 沒有太多的時間去購物了 用英語怎么說?
- 希望小學(xué)舉行“慶國慶60周年征文”比賽,五年級有14人參加,六年級有21人參加,比賽結(jié)束后,
- 英語翻譯
- 請幫出百分?jǐn)?shù)方程10題
- 英語翻譯
- 關(guān)于細(xì)胞質(zhì)的結(jié)構(gòu)和功能
- 如圖，已知四邊形中的兩條邊的長度，求四邊形的面積．
猜你喜歡
- 1正6邊形的面積計(jì)算公式,誰知道說一下,
- 2入射角和反射角不相等的原因?在什么情況下,入射角不等于發(fā)射角?
- 3鋁鐵在濃硝酸中鈍化表面所形成的氧化物薄膜主要是由什么物質(zhì)構(gòu)成的,其結(jié)構(gòu)是怎樣的?
- 4蘇軾評價
- 5英語翻譯
- 6兩小無猜,具體怎么解釋
- 7誰給我一份原子團(tuán)化合價表
- 8英語中什么叫“懸垂修飾語”?
- 9(1)在一幅比例尺是1:2500000的地圖上,量得天津到北京的距離是4.8厘米.天津到北京的實(shí)際距離大約是多少千米?
- 10初一3個班為小學(xué)捐書,
- 11x²+1＜ax+a分之x a不等于 解不等式
- 12世界人均占有森林面積大約是0.65公頃，相當(dāng)于我國人均占有森林面積的5倍．我國人均占有森林面積大約是多少公頃？（列方程解答）