一个VB 问题

显示全部楼层 · 2011-10-11 22:42:49

'这是一个递归程序的经典题目,数学上称斐波拉契数列,如果算前40项,会要点时间的,注意等待(大约70秒)Private Sub Command1_Click()Text1.Text = FPlc(40)End SubPrivate Function FPlc(n As Long) As Long If n = 1 Then
FPlc = 0 End If
If n = 2 Then
FPlc = 1 End If
If n > 2 Then
FPlc = FPlc(n - 1) + FPlc(n - 2) End IfE...

千问 · 2011-10-11 22:42:49

在窗体加了Textbox和命令按钮Private Sub Command1_Click()Dim a As LongDim b As LongDim c As LongDim i As Integera = 0b = 1Text1.Text = ""For i = 1 To 40c = a + bText1.Text = Text1.T...

千问 · 2011-10-11 22:42:49

Private Sub Command1_Click()Dim a(40) As Longa(1) = 0a(2) = 1Print "a(1)=" & Format(a(1), "@@@@@@@@"); "a(2)=" & Format(a(2), "@@@@@@@@");For i = 3 To 40a(i) = a(...

千问 · 2011-10-11 22:42:49

Private Sub Command1_Click()
Dim a(39)
a(0) = 0
a(1) = 1
For i = 2 To 39
a(i) = a(i - 1) + a(i - 2)
Debug.Print a(i)
Next iEnd Sub...

千问 · 2011-10-11 22:42:49

Sub printout()Form1.ShowX0 = 0: X1 = 1Print 0, X0Print 1, X1For i = 2 To 40
X2 = X1 + X0
X0 = X1: X1 = X2
Print i, X2NextEnd SubPrivate Sub Fo...