怎样用VB计算圆的面积和周长
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 16:37:00
怎样用VB计算圆的面积和周长
要从头开始,希望每步有截图,刚刚开始学,
要从头开始,希望每步有截图,刚刚开始学,
就两个公式嘛
圆的周长=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
如果没有输入半径,提示输入半径
圆的周长=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
如果没有输入半径,提示输入半径