扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
运行通过，希望对你有帮助。
创新互联是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站开发、成都品牌网站建设、成都营销网站建设。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都做网站、网站建设、移动互联产品、网络运营、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
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
Dim pi As Single = 3.14159
Dim R As Single = Val(InputBox("输入半径"))
MsgBox("圆面积=" pi * R * R.ToString)
MsgBox("圆周长=" 2 * pi * R.ToString)
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网