这是我的VB代码:
Public Class Form1
Function f(ByVal n As ULong) As ULong
If n = 1 Or n = 2 Then f = 1 Else f = f(n - 2) + f(n - 1)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = f(Val(TextBox1.Text))
End Sub
End Class