vb 已知圆半径r,求圆面积,球表体积,球体积

RT
求VB代码

第1个回答 2013-04-26

Private Sub Command1_Click()
Dim r As Long, c As Long, s As Long, v As Long
r = InputBox("请输入圆半径:", "圆半径")
c = 3.14 * r * r
s = 4 * 3.14 * r * r
v = (4 / 3) * 3.14 * r * r * r
Label4.Caption = c
Label5.Caption = s
Label6.Caption = v
End Sub
在VISUAL BASIC 程序设计教程（第四版） 71本回答被提问者采纳

第2个回答 2013-04-26

球面积：V 球 = (4/3) 3.14 R^3
球的表面积：V球=4*3.14*R^2

相似回答

求帮忙编写VB程序输入半径后计算圆周长、圆面积、圆球表面积和圆球体...答：s = Pi * r * r SSA = 4 * Pi * r * r V = 4 / 3 * Pi * r * r * r Form1.Cls Print "圆周长为：" & Format(C, "#0.000")Print "圆面积为：" & Format(s, "#0.000")Print "球表面积为：" & Format(SSA, "#0.000")Print "球体积为：" & Format(V, "#...

VB程序根据输入的圆半径r求直径周长面积球体积球面积怎么写程序?_百度...答：Dim r As Double r = Val(InputBox("输入半径")) Print "直径：" & 2 * r Print "周长：" & 2 * r * pi Print "圆面积: " & r * r * pi Print "球面积: " & 4 * r * r * r * pi / 3 Print "球体积: " & 4 * r * r * pi End Sub ...

VB课程题目是:求半径为R的圆面积和球体积,要求做一个没有界面、一个...答：R = Val(InputBox("请输入球的半径："))PI = 3.1415926 s = 4 * PI * R * R V = s * R / 3 MsgBox "球的表面积＝" & s & vbCrLf & "球的体积＝" & V End Sub 有界面的，要做一个命令按钮、一个文本框（输入半径）、一个标签（显示结果），如果还要其它说明必文字，可以...

输入半径的值,分别计算并输出圆的面积,圆的周长和球的体积. vb程序设 ...答：const pi=3.1416 sub circle（byval r as single,L as single,a as single,V AS SINGLE）L=2*pi*r A=pi*r*r V=4/3*r*r*r*pi end sub

大家正在搜

已知半径求面积知道圆的面积怎么求半径知道圆的面积求半径已知面积求半径公式半径为1的球的表面积圆柱体积公式和表面积知道面积怎么求半径知道半径怎么算面积半径是2厘米的圆面积和周长相等