无法让VB计算

时间:2014-03-26 05:04:40

标签: vb.net math visual-studio-2012

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

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"。

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

感谢。

1 个答案:

答案 0 :(得分:1)

在您的代码中

answer = radius * radius

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

你应该把它设置为

radius = NumericUpDown1.Value