这个太简单啦，楼主，给我5分钟哈，马上给你做，保证质量的
第一题：
Dim a As String
Dim pai As Single
Private Sub Command1_Click()
Text2 = 4 * pai * Val(a) * Val(a)
Text3 = 4 / 3 * pai * Val(a) * Val(a) * Val(a)
End Sub
Private Sub Form_Load()
pai = 3.1415926
a = InputBox("请输入圆的半径", "球的半径")
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text1 = a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024