VB中一个数列,其前二项分别为1、2,从第三项开始,每项为其相邻的前二项之和的1/3.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 20:05:04

VB中一个数列,其前二项分别为1、2,从第三项开始,每项为其相邻的前二项之和的1/3.
Public Class Form1
Public Function fact(ByVal n As Integer) As Double
Dim i As Integer
Do Until fact < 0.0001
For i = 1 To 2
fact = n
Next
For i = 3 To n
fact = (fact(n - 2) + fact(n - 1)) / 2
Next
Loop
Label1.Text = n
End Function
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Integer
fact(b)
End Sub
这里哪里出错了?为何输出是0?
有一个数列,其前二项分别为1、2,从第三项开始,每项均为其相邻的前二项之和的1/3.判断该数列从第几项开始小于0.0001.

老实说看了半天,看不太懂这函数
Public Function fact(ByVal n As Integer) As Double
dim Count as integer
Count=2
dim A as double,B as Double
dim C as Double
do until false
C=(A+B)\3
if C
再问：我补充了一下问题，你看看
再答： Public Function fact(ByVal n As Integer) As Double dim Count as integer Count=2 dim A as double, B as Double dim C as Double do until false C=(A+B)\3 if C