就两个公式嘛
圆的周长=2×半径×圆周率=直径×圆周率
即:圆的周长=2πr 或πD
面积:s=πr² 或s=π(d/2)²
程序,自己弄一个textbox 1用来输入圆的半径
textbox2用来显示计算结果周长
textbox3用来显示计算结果面积
添加两个button1命名为计算圆的周长和面积.
定义常量π,定义半径r
然后在button1 事件中添加计算和显示结果代码即可.
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() '清空以前计算结果
TextBox3.Clear() '清空以前计算结果
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
如果没有输入半径,提示输入半径
猜你喜欢
- 1Dogs can smell things well.Ants can smell things well,too.合并为同一句
- 2设a和n是任意自然数,求证a^(4n+1)-a能被30整除
- 3原来做的事现在继续做,用一个成语咋说
- 4将100mLpH=1的稀H2SO4和盐酸的混合液与50mL未知浓度的Ba(OH)2溶液混合充分反应后过滤,得0.466g沉淀,滤液的pH的值变为13.求:
- 5已知:在△ABC中,AD为中线,F为AB上一点,CF交AD于E,求证:AE/DE=2AF/BF.
- 6函数f(x)在[1,+∞)上具有连续导数,且lim(x→+∞)f'(x)=0,则...
- 7等差数列an中,已知a1等于2,a3等于12,令bn等于2Sn除以n,证明bn为等差数列
- 8I often see some young men___(run) in the street.
- 9晏子使楚中的楚王瞅了他一眼的瞅字的意思是什么
- 10有1列单项式:-2X^2,-3X^3,4X^4,.