無法讓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

但是，當我單擊我的按鈕進行計算時，它始終顯示為“ 0”。

我不知道為什么會這么做。 有人可以幫忙嗎？

謝謝。

Answer 1

在你的代碼中

answer = radius * radius

最后，將標簽文本設置為答案。 但是您沒有將值設置為radius。 那就是為什么它一直都是0。

您應該將其設置為

radius = NumericUpDown1.Value