vb编程代码

计算二的n次幂 代码 PrivateSubCommand1_Click()DimnAsInteger,miAsDoubleDimiAsIntegern=Int(Val(InputBox("")))mi=1Fori=1Tonmi=mi*2NextiPrint"2的";n;"次幂为：";miEndSub 编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。 代码 PrivateSubCommand1_Click()DimxAsInteger,iAsIntegerDimcnt1AsInteger,cnt2AsInteger,cnt3AsIntegercnt1=0:cnt2=0:cnt3=0RandomizeFori=1To100x=Int(Rnd*90+10)Ifx<=40Thencnt1=cnt1+1ElseIfx<70Thencnt2=cnt2+1Elsecnt3=cnt3+1EndIfNextiPrintcnt1,cnt2,cnt3EndSub 编写程序，单击窗体时在窗体上输出如下所示的图形。 代码 PrivateSubForm_Click()DimiAsInteger,beginAsIntegerbegin=5Fori=1To5PrintTab(begin);Forj=1To2*i-1Print"*";NextjPrintbegin=begin-1Nextibegin=2Fori=4To1Step-1PrintTab(begin);orj=1To2*i-1Print"*";NextjPrintbegin=begin+1NextiEndSub 编写程序，计算并输出下面级数前n项(n=80)的部分和。1-1/2+1/3-1/4+1/5+……＋1/n 代码 Inputbox中输入2，出现上述结果 PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox(""))sum=0Fori=1TonIfiMod2<>0Thensum=sum+(1/i)Elsesum=sum-(1/i)EndIfNextiPrintsumEndSub 有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？ 代码 显示结果如上所示 PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerPrint"大马","中马","小马"Forx=0To33Fory=0To50z=100-x-yIf(x*3+y*2+z*0.5)=100ThenPrintx,y,zEndIfNextyNextx 编写程序，要求从键盘输入0-6中的任一个，可对应得到星期日、星期一---星期六 代码 Inputbox中输入2结果如上 DimnAsIntegern=Int(Val(InputBox("")))SelectCasenCase0Printn;"：星期日"Case1Printn;"：星期一"Case2Printn;"：星期二"Case3Printn;"：星期三"Case4Printn;"：星期四"Case5Printn;"：星期五"Case6Printn;"：星期六"CaseElsePrintn;"：错误"EndSelectEndSub 编写程序，输出下列三角形：(要求用循环做，非循环不给分。) 代码 运行结果如上图所示 PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,beginAsIntegerbegin=7Fori=1To4PrintTab(begin);Forj=1To2*i-1Print"1";'注意：双引号中1后面必须有一个空格NextjPrintbegin=begin-2NextiEndSub 求公式：1/1!+1/2!+1/3!+……+1/n!直到最后一项小于10^(-6)时e的值。(注：写在Command1的Click事件中。) 代码 运行结果如上图所示 PrivateSubCommand1_Click()DimsumAsDouble,nAsLong,njAsDoubleDimiAsLongsum=0n=1Donj=1Fori=1Tonnj=nj*iNextisum=sum+1/njn=n+1LoopWhile(1/nj)>=0.000001PrintsumEndSub 编写程序，输出下列三角形：总行数通过键盘输入。 代码 Inputbox输入5运行结果如上图所示 OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsInteger,beginAsIntegern=Int(Val(InputBox("")))begin=1Fori=1TonPrintTab(begin);Forj=1To9-2*iPrint"1";NextjPrintbegin=begin+2NextiEndSub 输入一串数字，求其中偶数位数字之和。例如输入1357986，则求3+7+8 代码 Inputbox输入5运行结果如上图所示 PrivateSubCommand1_Click()DimstrAsString,sAsString*1,iAsLong,sumAsLongstr=InputBox("")Printstrsum=0Fori=2ToLen(str)Step2s=Mid(str,i,1)sum=sum+Val(s)PrintsNexti 输入一串数字，求其中奇数数字构成的数与偶数数字构成的数之差。例如输入1654238，求153－6428。 代码 Inputbox输入5运行结果如上图所示 PrivateSubCommand1_Click()DimstrAsString,s1AsString,s2AsString,iAsLongstr=InputBox("")Printstrs1=""s2=""Fori=1ToLen(str)IfiMod2=1Thens1=s1&Mid(str,i,1)Elses2=s2&Mid(str,i,1)EndIfNextiPrints1;"-";s2;"=";Val(s1)-Val(s2)EndSub 编写程序，单击窗体时在窗体上输出如下所示的图形。 代码 PrivateSubCommand1_Click()DimbeginAsInteger,nAsInteger,iAsLongbegin=9Fori=1To5PrintTab(begin);Forn=1To2*i-1Print"*";NextnPrintbegin=begin-2Nextibegin=3Fori=1To4PrintTab(begin);Forn=1To9-2*iPrint"*";NextnPrintbegin=begin+2NextiEndSub 有一分数序列:1,1/2,2/3,3/5,5/8,8/13……求出这个数列的前20项之和。 代码 OptionExplicitPrivateSubCommand1_Click()DimsumAsDoubleDima1AsLong,a2AsLong,a3AsLongDimb1AsLong,b2AsLong,b3AsLongDimiAsLonga1=1:a2=1b1=1:b2=2sum=a1/b1+a2/b2Fori=3To20a3=a1+a2b3=b1+b2sum=sum+a3/b3a1=a2a2=a3b1=b2b2=b3NextiPrintsumEndSub 编写程序，计算下面级数前n项中(n=50)奇数项的和，并输出该级数最后两项之差的绝对1*2*3+2*3*4+3*4*5+…+n*(n+1)*(n+2)+… 代码 OptionExplicitPrivateSubCommand1_Click()DimsumAsLong,difAsLong,nAsLongsum=0Forn=1To49Step2sum=sum+n*(n+1)*(n+2)Nextndif=(49-52)*50*51PrintsumPrintAbs(dif)EndSub 编程打印如下图形,总行数通过键盘输入。(要求用循环做，非循环不给分。按原图形直接打印者无效。) 代码 Inputbox输入5运行结果如上图所示 OptionExplicitPrivateSubCommand1_Click()Dimf1AsLong,f2AsLong,f3AsLongDimnAsLong,beginAsLongDimiAsLong,jAsLongn=Int(Val(InputBox("")))begin=4*n-3f1=1f2=1Fori=1Tonf3=f1+f2PrintTab(begin);Forj=1To2*i-1PrintTrim(f3);Spc(4-Len(Trim(f3)));'相邻两数的位置差4NextjPrintbegin=begin-4f1=f2f2=f3NextiEndSub 编写程序，计算并输出下面级数前n项(n=30)的部分和。1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+…… 代码 OptionExplicitPrivateSubCommand1_Click()DimsumAsDouble,nAsLongsum=0Forn=1To30sum=sum+1/(n*(n+1))NextnPrintsumEndSub 编写程序，输出下列三角形： 代码 OptionExplicitPrivateSubCommand1_Click()Dimcode1AsInteger,code2AsIntegerForcode1=Asc("G")ToAsc("A")Step-1Forcode2=code1ToAsc("G")PrintChr(code2);Nextcode2PrintNextcode1EndSub 勾股定理中三个数的关系是：a^2+b^2=c^2编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。 代码 Pressenterstarthis还有两列结果未显示 OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsDoubleDimcntcnt=0Fora=1To99Forb=1To99c=Sqr(a*a+b*b)Ifc<100AndInt(c)=cThenPrinta;"";b;"";c;"",cnt=cnt+1IfcntMod4=0ThenPrintEndIfNextbNextaEndSub 通过键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的"HEJISUANJISHIYANSHI"变换成"IHSNAYIHSIJNAUSIJEH"。 代码 先后输入5和a后显示结果如上 OptionExplicitPrivateSubCommand1_Click()Dims1AsString,s2AsStringDimiAsLongs1=InputBox("请输入原始字符串")s2=""Fori=Len(s1)To1Step-1s2=s2&Mid(s1,i,1)NextiPrints1Prints2EndSub 求1000以内分别被3、5、7除，余数都为1的正整数的个数及其和 代码 OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,sumAsDoubleDimcntAsIntegersum=0cnt=0Forn=1To1000If(nMod3=1)And(nMod5=1)And(nMod7=1)ThenPrintncnt=cnt+1sum=sum+nEndIfNextnPrintPrint"共";cnt;"个"Print"和为";sumEndSub 代码 图形1_Click()图形4_Click()图形6_Click()水仙花数_Click()图形2_Click()图形3_Click()图形5_Click()乘积表_Click()数列_Click()阶梯数_Click()图形7_Click() PrivateSub图形1_Click()ClsPrintForn=1To8PrintTab(2*n+2);Form=1To8PrintSpc(1);"*";NextPrintNextEndSubPrivateSub图形4_Click()ClsFori=1To5PrintTab(20-3*i);Forj=1To2*i-1Printi;NextjPrintNextiEndSubPrivateSub图形6_Click()Clsk=1Fori=1To6Forj=1ToiPrintTab(5*j);k;k=k+1NextjPrintNextiEndSubPrivateSub水仙花数_Click()'一个三位数，如果它等于各位数的立方和，'如153=1^3+5^3+3^3,称为水仙花数。求所有的水仙花数。ClsFori=1To9Forj=0To9Fork=0To9a=100*i+10*j+kb=i^3+j^3+k^3Ifa=bThenPrintTab(4);aNextkNextjNextiEndSubPrivateSub图形2_Click()ClsPrintForn=1To5PrintTab(n+2);Form=nTo10-nPrint"*";NextPrintSpc(4);Form=1To2*n-1Print"*";NextPrintNextEndSubPrivateSub图形3_Click()ClsPrintForn=1To6PrintTab(8-n);Form=1To2*n-1Print"*";NextmNextnForn=1To5PrintTab(n+2);Form=nTo10-nPrint"*";NextmNextnEndSubPrivateSub矩阵_Click()ClsDima(10,10)AsIntegerDimmAsInteger,nAsIntegerForn=1To10Form=1To10Ifn=mOrn=11-mThena(n,m)=1Elsea(n,m)=0EndIfNextNextPrintForn=1To10Form=1To10PrintTab(m*3);a(n,m);NextPrintNextEndSubPrivateSub图形5_Click()Cls'编写程序，输出下列三角形：(要求用循环做，非循环不给分)'G'FG'EFG'DEFG'CDEFG'BCDEFG'ABCDEFGDimaAsString,iAsInteger,kAsIntegera="ABCDEFG"k=Len(a)Fori=1TokPrintTab(3);Right(a,i)NextiEndSubPrivateSub乘积表_Click()'编写程序，打印如下的乘积表：'*36912'15'16'17'18DimiAsInteger,jAsIntegerClsPrint"*36912"Fori=15To18Printi;"";Forj=3To12Step3Printi*j;"";NextjPrintNextiEndSubPrivateSub数列_Click()'有一数列：1、1、2、3、5、8、13、21…，求出这个数列的前20项之和ClsDimf1AsSingle,f2AsSingle,f3AsSingleDimiAsInteger,sumAsSinglef1=1f2=1PrintTab(3);f1PrintTab(3);f2sum=2DoWhilei<=20-3f3=f1+f2f1=f2f2=f3sum=sum+f3i=i+1PrintTab(3);f3LoopPrintTab(3);"其和是：";sumEndSubPrivateSub阶梯数_Click()'有一个长阶梯，如果每步跨2阶最后剩1阶，'如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，'如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，'只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?DimaAsInteger,iAsIntegerClsDoWhileTruei=i+1IfiMod2=1AndiMod3=2AndiMod4=3AndiMod5=4AndiMod6=5AndiMod7=0ThenPrintTab(3);"该阶梯至少有";i;"阶"ExitDoEndIfLoopEndSubPrivateSub图形7_Click()'编写程序，输出下列三角形：(要求用循环做，非循环不给分)'河'河南'河南农'河南农业'河南农业大'河南农业大学ClsDimaAsString,iAsInteger,kAsIntegera="河南农业大学"k=Len(a)Fori=1TokPrintTab(3);Left(a,i)NextiEndSub 阶乘累加和 代码 PrivateSubForm_Click()DimsumAsLong,jcAsLongDimiAsInteger,nAsIntegersum=0Forn=1To10jc=1Fori=1Tonjc=jc*iNextisum=sum+jcNextnPrintsumEndSub 求高次方根 代码 OptionExplicitPrivateSubForm_Click()'说明：此题题目中要求的区间【1，2】有误，忽略之DimxAsDouble,fxAsDouble,fpxAsDouble,dAsDoublex=1.5Dod=(3*x*x*x-4*x*x-5*x+13)/(9*x*x-8*x-5)x=x-dLoopUntilAbs(d)<=0.0001Print"方程的根是";xEndSub 数字三角形 代码 输入5后运行结果如图 PrivateSubForm_Click()DimiAsLong,jAsLongDimnAsLong,beginAsLongn=Val(InputBox("请输入总行数"))begin=2*n-1Fori=1TonPrintTab(begin);Forj=1To(2*i-1)PrintTrim(2*i-1);"";NextjPrintbegin=begin-2NextiEndSub 求阶梯数目；每步跨2阶，剩余1；跨3剩2；4剩3；5剩4；6剩5，7不剩 代码 运行结果如图 PrivateSubCommand1_Click()Dimn%n=7DoWhileTrueIfnMod2=1AndnMod3=2AndnMod4=3AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDoEndIfn=n+1LoopPrintnEndSub 代码 PrivateSubForm_Click()DimiAsLong,nAsLongDimcntAsLong,sumAsLongDimflagAsBooleancnt=0sum=0Forn=100To1000flag=TrueFori=2Ton-1IfnModi=0Thenflag=FalseExitForEndIfNextiIfflag=TrueThencnt=cnt+1sum=sum+nPrintn,IfcntMod5=0ThenPrintEndIfNextnPrintPrintPrint"找到";cnt;"个质数，";"和为";sumEndSub 球从100处自由落，每次反弹回原高度一半，再落，第十次落地后经历？m，最后一次反弹高度 代码 PrivateSubCommand1_Click()Dims!,d!,i!s=0d=100Fori=1To10s=s+d+d/2d=d/2NextiPrint"总共距离";s;"最后一次的高度";dEndSub 321米钢料，a种17米，b种27米，求ab各多少段，余料最少为多少 代码 PrivateSubCommand1_Click()Dimi%,j%,min%,m%,n%min=321Fori=1To321/17Forj=1To321/27If321-i*17-j*27<minAnd321-i*17-j*27>=0Thenmin=321-i*17-j*27m=in=jEndIfNextjNextiPrint"17米";m;"段","27米";n;"段","最小残料";minEndSub 猴子每天吃掉一半多一个，到第七天只剩一个，求桃子总数 代码 PrivateSubCommand1_Click()Dimx1%,x2%,i%x1=1Fori=6To1Step-1x2=(x1+1)*2Print"第";i;"天桃子个数为：";x2x1=x2NextiEndSub 评委打分，去掉最高、最低，输出平均分 代码 PrivateSubCommand1_Click()Dims%,a%,min%,max%,i%min=100max=0s=0Fori=1To7a=InputBox("分数:")Printa;s=s+aIfa>maxThenmax=aIfa<minThenmin=aNextiPrintPrintmax,minPrint"平均分";(s-max-min)/5EndSub 输入任意字符串，然后倒置显示 代码 PrivateSubCommand1_Click()DimaAsStringDimi%a=Text1.TextPrintaFori=1ToLen(a)PrintMid(a,Len(a)-i+1,1)NextiEndSub 输入一个正整数，找出大于或等于该树的第一个质数 代码 PrivateSubCommand1_Click()DimaAsInteger,iAsIntegera=Text1.TextDoWhiletureFori=2Toa-1IfaModi=0ThenExitForNextiIfi=aThenExitDoElsea=a+1EndIfLoopPrinta;"为满足条件的质数"EndSub 100以内满足勾股定理的所有组合 代码 PrivateSubCommand1_Click()Dimi%,j%,k%Fori=1To100Forj=1To100Fork=1To100Ifi^2+j^2=k^2Andi>jThenPrinti,j,kEndIfNextkNextjNextiEndSub 打印如图所示乘法表 代码 PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimkAsIntegerk=1Print"*36912"Fori=15To18k=1PrintTrim(i)Forj=3To12Step3PrintTab(7*k);Trim(i*j);k=k+1NextjPrintNextiEndSub 有一数列1，1，2，3，5，8，…求前20项和 代码 PrivateSubCommand1_Click()Dima1%,a2%,a3%,i%a1=1a2=1Printa1,a2Fori=3To20a3=a1+a2Printa3a1=a2a2=a3NextiEndSub 把一个16进制数转换成一个10进制数 代码 PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimsAsIntegers=0a=Text1.TextFori=1ToLen(a)b=Mid(a,Len(a)-i+1,1)IfLCase(b)="a"Thenb=10EndIfIfLCase(b)="b"Thenb=11EndIfIfLCase(b)="c"Thenb=12EndIfIfLCase(b)="d"Thenb=13EndIfIfLCase(b)="e"Thenb=14EndIfIfLCase(b)="f"Thenb=15EndIfs=s+b*16^(i-1)NextiPrintsEndSub 编写程序，用牛顿切线法求方程f(x)=x+lnx-2.0=0的近似实根r,迭代初值自选，精确到0.0001。（提示： 计算公式 六西格玛计算公式下载结构力学静力计算公式下载重复性计算公式下载六西格玛计算公式下载年假计算公式 为x=x-f(x)/f’(x)） 代码 PrivateSubCommand1_Click()Dimx1AsDouble,x2AsDoublex1=1x2=x1-(x1+Log(x1)-2)/(1+1/x1)WhileAbs(x2-x1)>0.0001x1=x2x2=x1-(x1+Log(x1)-2)/(1+1/x1)WendPrintx2Printx2+Log(x2)-2EndSub