vb.net求圆的面积,vb已知圆的半径求圆的周长和面积vb

求帮忙编写vb程序。vb.net程序，输入圆的半径，求圆的面积和周长。跪谢！

Dim pi As Single = 3.14159

创新互联公司主营乌拉特中网站建设的网络公司,主营网站建设方案,成都app开发,乌拉特中h5小程序定制开发搭建,乌拉特中网站营销推广欢迎乌拉特中等地区企业咨询

Dim R As Single = Val(InputBox("输入半径"))

MsgBox("圆面积=" pi * R * R.ToString)

MsgBox("圆周长=" 2 * pi * R.ToString)

如何利用VB编程，输入圆的半径，计算并输出圆的面积。

1、打开vb，选择左边工具栏的commandbutton。

2、在窗体上拖出一个按钮，更改上面的文字为“单击输入半径”。

3、双击按钮，在弹出的code代码窗口中，输入如下代码。

4、选择工具栏中的启动按钮进行调试。

5、单击按钮，会弹出一个对话框，在里面输入半径3。

6、会在窗体上打印出计算出的面积的值。

VB中如何写程序代码计算圆的面积

本例子将通过圆周率的值和用户输入的圆的半径，计算出圆的面积。

01

在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。

02

接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。

03

接下来定义一个Pi的常量，默认值设置为3.14。

04

接下来我们开始编写代码。（因为程序行数较多，在这里统一写注释不方便观察，每句的含义请看程序中的注释。）

05

按F5运行测试，在框中输入半径为3，即可计算出结果为28.26。

特别提示

注意公式的改写，平方请用幂符号“^”，乘号请用“*”。

用VB程序求圆的面积

'直接复制此代码到代码区

然后点一下窗体输入任意一个数值即得出圆的面积

Private

Sub

Form_Click()

Dim

x

As

Integer,

PI

As

Single

PI

=

3.1415926

x

=

InputBox("输入一个圆的半径")

y

=

3.14

*

x

*

x

MsgBox

"圆的面积为："

y

End

Sub

名称栏目：vb.net求圆的面积,vb已知圆的半径求圆的周长和面积vb
分享网址：http://cdxtjz.cn/article/heishh.html