07/06/08 00:28:25
Ｃを全く知らない俺が変換してみたｗ
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
もすこしやりたいことを具体的におしえてはくれんか？
乱数を発生させるのは簡単だがそれを使ってどうするのか とかさ