VB輸入半徑，計算圓周長和圓面積。

運行通過，希望對你有幫助。

創(chuàng)新互聯(lián)是一家網(wǎng)站設(shè)計公司，集創(chuàng)意、互聯(lián)網(wǎng)應(yīng)用、軟件技術(shù)為一體的創(chuàng)意網(wǎng)站建設(shè)服務(wù)商，主營產(chǎn)品：響應(yīng)式網(wǎng)站開發(fā)、成都品牌網(wǎng)站建設(shè)、成都營銷網(wǎng)站建設(shè)。我們專注企業(yè)品牌在網(wǎng)站中的整體樹立，網(wǎng)絡(luò)互動的體驗，以及在手機等移動端的優(yōu)質(zhì)呈現(xiàn)。成都做網(wǎng)站、網(wǎng)站建設(shè)、移動互聯(lián)產(chǎn)品、網(wǎng)絡(luò)運營、VI設(shè)計、云產(chǎn)品.運維為核心業(yè)務(wù)。為用戶提供一站式解決方案，我們深知市場的競爭激烈，認真對待每位客戶，為客戶提供賞析悅目的作品，網(wǎng)站的價值服務(wù)。

Private Sub Command1_Click()

Dim r As Double

r = Val(Text1.Text)

c = 2 * 3.14 * r

s = 3.14 * r * r

Print "周長c="; c; "面積s="; s

End Sub

Private Sub Form_Load()

Me.Show

Text1.Text = ""

MsgBox "請輸入要計算的圓的半徑"

Text1.SetFocus

End Sub

vb選擇結(jié)構(gòu)習(xí)題從鍵盤輸入一個半徑，輸出圓的面積和周長，輸出要求有文 字說明，保留兩位小數(shù)？

Private Sub Command1_Click()

r = Val(InputBox("請輸入圓的半徑："))

PI = 3.1415926

c = Round(2 * PI * r, 2)

s = Round(PI * r * r, 2)

MsgBox ("半徑=" r vbCrLf "圓面積=" s vbCrLf "圓周長=" c)

End Sub

求幫忙編寫vb程序。vb.net程序，輸入圓的半徑，求圓的面積和周長。跪謝！

Dim pi As Single = 3.14159

Dim R As Single = Val(InputBox("輸入半徑"))

MsgBox("圓面積=" pi * R * R.ToString)

MsgBox("圓周長=" 2 * pi * R.ToString)