无法让VB计算

Question

我写了一些代码来计算球体的体积。

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

然而，当我点击我的按钮进行计算时，它总是会显示＆＃34; 0＆＃34;。

我不知道为什么会这样做。有人可以帮忙吗？

感谢。

Answer 1

在您的代码中

answer = radius * radius

最后将标签文本设置为答案。但是你没有将值设置为半径。这就是为什么它一直是0。

你应该把它设置为

radius = NumericUpDown1.Value