230问答网 > VB课程题目是:求半径为R的圆面积和球体积，要求做一个没有界面、一个有界面，四舍五入，保留4位

VB课程题目是:求半径为R的圆面积和球体积，要求做一个没有界面、一个有界面，四舍五入，保留4位

2024-12-12 11:14:40

推荐回答（1个）

回答1：

Private Sub Command1_Click()
R = Val(InputBox("请输入球的半径："))
PI = 3.1415926
s = 4 * PI * R * R
V = s * R / 3
MsgBox "球的表面积＝" & s & vbCrLf & "球的体积＝" & V
End Sub

有界面的，要做一个命令按钮、一个文本框（输入半径）、一个标签（显示结果），如果还要其它说明必文字，可以另加标签。
Private Sub Command1_Click()
R = Val(Text1.Text)
PI = 3.1415926
s = 4 * PI * R * R
V = s * R / 3
Label1.Caption "球的表面积＝" & s & vbCrLf & "球的体积＝" & V
End Sub

VB课程 题目是:求半径为R的圆面积和球体积，要求做一个没有界面、一个有界面，四舍五入，保留4位

VB课程题目是:求半径为R的圆面积和球体积，要求做一个没有界面、一个有界面，四舍五入，保留4位