作业帮12. 单击窗体,输出斐波那契数列1,1,2,3,5,8,13-第20个数的值
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 06:04:05
这个可以运行~#includevoidmain(){longf1,f2,f;floatm,n;printf("pleaseinputmandn:");scanf("%f%f",&m,&n);f1=1,
在excel很容易实现,在A1单元格输入任意三位数B1=MID(A1,1,1)C1=MID(A1,2,1)D1=MID(A1,3,1)下拉
PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct
'本人亲测可行Private Sub Form_CLICK() Dim arr(9) As In
#includevoidmain(){longa[42],i=2;a[0]=1;a[1]=1;for(;i
dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,
publicclassFibonacci{publicstaticvoidmain(Stringargs[]){inti=1,j=1;for(intn=1;n
PrivateFunctionF(nAsLong)AsLongIfn>2ThenF=F(n-1)+F(n-2)ElseF=1EndIfEndFunctionPrivateSubCommand1_Cli
for(inti=101;i
#includevoidmain(){longf1=1,f2=1,i;for(i=0;i
'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount
积等于2,则k的值是
VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前
你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!
PrivateSubCommand1_Click()a=InputBox("请输入数字","提示")b=InputBox("请输入数字","提示")Print"和："&Val(a)+Val(b)Pri
DimaAsIntegera=InputBox("输入一个数")IfaMod2=0ThenMsgBox("偶数")ElseMsgBox("奇数")EndIf
cleardimea[20]a[1]=1a[2]=1fori=3to20a[i]=a[i-1]+a[i-2]endforfori=1to30?a[i]if(i%5=0)?endifendfo
PrivateSubForm_Click()s=0Fori=1To100s=s+iNextiPrint"1+2+...+100=";sEndSu
main(){ int i,sum;