難以讓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 

，最後設置標籤文本作爲答案。但是你沒有將值設置爲半徑。這就是爲什麼它始終是0。

，你應該把它設置爲

radius = NumericUpDown1.Value