圓的周長＝2×半徑×圓周率＝直徑×圓周率
即：圓的周長＝2πr 或πD
面積：s=πr² 或s=π(d/2)²
程序,自己弄一個textbox 1用來輸入圓的半徑
textbox2用來顯示計算結(jié)果周長
textbox3用來顯示計算結(jié)果面積
添加兩個button1命名為計算圓的周長和面積.
定義常量π,定義半徑r
然后在button1 事件中添加計算和顯示結(jié)果代碼即可.
Public Class Form1
Const P = 3.14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear() '清空以前計算結(jié)果
TextBox3.Clear() '清空以前計算結(jié)果
If TextBox1.Text <> String.Empty Then '判斷是否輸入半徑
Dim r As Double = TextBox1.Text
'上面是這兩部的合并 Dim r As Double
' r=TextBox1.Text
TextBox2.Text = 2 * P * r
TextBox3.Text = P * r * r
Else
MsgBox("請輸入圓的半徑")
End If
End Sub
End Class
如果沒有輸入半徑,提示輸入半徑
