1.代码:
Private Sub Command1_Click()
Const PI = 3.14159
Dim r As Integer, v As Integer
r = Val(Text1.Text)
v = 4 / 3 * PI * r ^ 3
Label2.Caption = "体积=" & v
End Sub
2.结果:
1.代码:
Private Sub Command1_Click()
Const PI = 3.14159
Dim r As Integer, v As Integer
r = Val(Text1.Text)
v = 4 / 3 * PI * r ^ 3
Label2.Caption = "体积=" & v
End Sub
2.结果: