怎样用VB计算圆的面积和周长要从头开始,希望每步有截图,刚刚开始学,

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/20 08:28:42
怎样用VB计算圆的面积和周长要从头开始,希望每步有截图,刚刚开始学,怎样用VB计算圆的面积和周长要从头开始,希望每步有截图,刚刚开始学,怎样用VB计算圆的面积和周长要从头开始,希望每步有截图,刚刚开始

怎样用VB计算圆的面积和周长要从头开始,希望每步有截图,刚刚开始学,
怎样用VB计算圆的面积和周长
要从头开始,希望每步有截图,刚刚开始学,

怎样用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

如果没有输入半径,提示输入半径