Public Class Form1
Private Function fib()
Dim result As Integer
If (NUD1.Value < 2) Then
result = 1
Return result
Else
result = fib(NUD1.Value - 1) + fib(NUD1.Value - 2)
Return result
End If
End Function
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
LbFb1.Items.Add(fib())
End Sub
クラス終了
何らかの理由で、値 0,1 の値のみを返し、2 を超えるとクラッシュします。何かアイデアはありますか?