vb编程求斐波那契数列前11的页面设计和代码
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/22 17:12:02
添加一个文本框输入前N项的N值,再添加一个命令按钮即可PrivateFunctionF(NAsLong)AsLongIfN>2ThenF=F(N-1)+F(N-2)ElseF=1EndIfEndFun
Dima(100)AsIntegerDimiAsIntegerPrivateSubCommand1_Click()Fori=2To19a(i)=a(i-1)+a(i-2)NextiFori=0To19
intnum=1;intprev=0;for(inti=0;i
#includevoidmain(){inta[43],n=0,i;a[0]=1;a[1]=1;for(i=2;i
functionsum(nasinteger)dima(30)asintegerdimsasintegers=0a(1)=0a(2)=0a(3)=1fori=4to30a(i)=a(i-1)+a(i-
Dima1,a2,a3,a4,iAsIntegera1=3:a2=4:a3=5fori=4to26a4=a1+a2+a3a1=a2a2=a3a3=a4next输出a4即可
PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"
OptionExplicitDimf(40)AsLongPrivateSubCommand1_Click()DimiAsByteDimsAsLongf(1)=1f(2)=1s=2Print"No1:"
1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946,17711,28657,46368,75025,121
n=inputbox("输入项数",10)a=0b=1fori=2tonc=a+ba=bb=cnextmsgbox"第"&n&"项="&c
PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele
PrivateSubForm_Load()Rem在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数Diminti,intNumberAsInteger'lngFi
Private Sub Command1_Click()Dim F(11), i As LongF(0) = 
Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor
#!/bin/bash#fibo.sh:Fibonaccisequence(recursive)#Author:M.Cooper#License:GPL3######----------algorit
PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele
'计算按钮事件编辑框名默认Dimarr(),rd()AsInteger'定义存放数列的数组Dimi,a,b,n,sumAsIntegera=1b=1n=Val(Text1.Text)'输入求数列的项数
[oldboy@daiqingyangsscripts]$catlist.sh#!/bin/bash#set-xif[$#-eq0]thenexitficount=1index=$1while[$co
很明显你错了.你一开始就从i=4开始了.如果i=-1在i=1,2,3,你这些都没有考虑到.把这三种情况考虑进去吧.还有那个数组没必要用longlong类型.int类型足够了,那个有9位数字.
用什么语言呢?C还是PASCAL、VB?再问:vc++再答:#include<stdio.h>main(){ longa[30],i; a[0]=1;a[1]=1;&n