Ｃを全く知らない俺が変換してみたｗ Private Function fmotome(n As Integer) As Integer Dim Res As Integer Select Case n Case 0 Res = 0 Case 1 Res = 1 Case Else Res = fmotome(n - 1) + fmotome(n - 2) End Select fmotome = Res End Function
Private Sub Form_Load() Dim Temp As String Temp = InputBox("Ｎの値を( ﾟдﾟ)ｸﾚ", "数値入力") If IsNumeric(Temp) = False Then MsgBox "数値入れろ", "カス" Unload Me End If Dim Res As Integer Res = fmotome(CInt(Temp)) MsgBox "Fnの値は'" & CStr(Res) & "'" End Sub
