VB输入半径，计算圆周长和圆面积。

运行通过，希望对你有帮助。

创新互联是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站开发、成都品牌网站建设、成都营销网站建设。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都做网站、网站建设、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。

Private Sub Command1_Click()

Dim r As Double

r = Val(Text1.Text)

c = 2 * 3.14 * r

s = 3.14 * r * r

Print "周长c="; c; "面积s="; s

End Sub

Private Sub Form_Load()

Me.Show

Text1.Text = ""

MsgBox "请输入要计算的圆的半径"

Text1.SetFocus

End Sub

vb选择结构习题从键盘输入一个半径，输出圆的面积和周长，输出要求有文 字说明，保留两位小数？

Private Sub Command1_Click()

r = Val(InputBox("请输入圆的半径："))

PI = 3.1415926

c = Round(2 * PI * r, 2)

s = Round(PI * r * r, 2)

MsgBox ("半径=" r vbCrLf "圆面积=" s vbCrLf "圆周长=" c)

End Sub

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

Dim pi As Single = 3.14159

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

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

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

当前文章：vb.net输入圆的半径 vb设计圆的半径面积
转载来于：http://chengdu.cdxwcx.cn/article/doiigcd.html