函数中的递归值

Question

我正在尝试开发一个简单的基于类的函数，它将修改该函数确定的先前值，即它是递归关系。

本质上，我正在开发自己的随机数生成器，它的工作方式与当前 Random 类的工作方式相同，即

Dim ran as New Random(123456)
For i = 0 To 9
   MessageBox.Show(ran.NextDouble & "  " & ran.Next(1,11))
Next

我可以使用基于类的方法成功地做到这一点，只需发送一个值 ByRef，但正如您所知，对于方法调用，要修改的旧值需要放在对方法的调用中。因此，我试图克服对方法或全局类型变量的使用，而是希望实例化的类以某种方式记住当前值是什么。

下面的示例代码尝试在每次函数调用期间将值 _value 乘以 2，因此预期结果将是 2、4、8、16 等。但是，即使最初将 2 发送到构造函数，_value 的值始终返回为零。

Class Example
    Public _value As Integer
    Public Sub New(ByVal _value)

    End Sub
    Public Function Value() As Integer
        _value *= 2
    End Function
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim x As New Example(2)
    For i = 0 To 9
        MessageBox.Show(x.Value)
    Next
End Sub

Answer 1

通常字段为Private。如果你想公开你的类中的数据，你可以使用Public Property。

更改Sub New 的参数名称。如果正确限定您的名称将起作用，但它会令人困惑。你必须对传入的值做一些事情！将其分配给您的字段_value。

您的函数没有返回值。它只是改变了_value 的值。如果您不返回任何内容，请使用Sub。将您的 Function 的名称更改为有意义的名称。添加Return 语句以将值发送回调用代码。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim x As New Example(2)
    For i = 0 To 9
        MessageBox.Show(x.DoubleValue.ToString)
    Next
End Sub

Class Example
    Private _value As Integer
    Public Sub New(ByVal Input As Integer)
        _value = Input
    End Sub
    Public Function DoubleValue() As Integer
        _value *= 2
        Return _value
    End Function
End Class