作者satou20444 (希当普利斯)
看板Visual_Basic
标题[.NET] 费氏数列的问题Orz
时间Mon Mar 22 21:24:41 2010
请输入专案类型(网站专案或者应用程式专案)：应用程式专案
我照着之前版上那篇费氏数列的程式码做了一次
但是每次都lebal1.text都只显示一个数字，没有办法生出1、1、2… 这样的排列
请问是哪边错了 Orz
Function fib(ByVal x As Integer)
If x = 0 Or x = 1 Then
Return 1
Else
Return fib(x - 1) + fib(x - 2)
End If
End Function
Private Sub Form1_Load
(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim i As Integer
Dim j As Integer = 5000
For i = 0 To j
Label1.Text = fib(i) & "、"
'If f(i) > 9527 Then
'Exit For
'End If
Next
End Sub
版本是 Visual Basic 2008
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.40.128.208
1F：→ satou20444:if那边我关掉了，因为还用不到@@ 03/22 21:25
※ satou20444:转录至看板 ask 03/22 22:13
2F：→ mathlinka:Label1.Text &= fib(i) & "、" 03/22 22:45
3F：→ satou20444:收到，终於鬼打墙结束了-.- 03/22 22:56