我写了一些代码来计算球体的体积。
Public Class Form1
Private Sub calculate()
Dim radius As Double
Dim answer As Double
Dim newans As Double
Dim newerr As Double
Dim finals As Double
NumericUpDown1.Value = radius
answer = radius * radius
newans = answer * radius
newerr = newans * 4
finals = newerr / 3
Label1.Text = finals
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
calculate()
End Sub
End Class
然而,当我点击我的按钮进行计算时,它总是会显示" 0"。
我不知道为什么会这样做。有人可以帮忙吗?
感谢。
答案 0 :(得分:1)
在您的代码中
answer = radius * radius
最后将标签文本设置为答案。但是你没有将值设置为半径。这就是为什么它一直是0。
你应该把它设置为
radius = NumericUpDown1.Value