搜索
程序设计1.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：计算两个正整数的'最大公约数，并显示。如：'两个数为15、20，结果显示5'要求使用Do...Loop语句来实现。Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------2.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：当x的初值为10，'每年增长率为百分之一，计算多少年以后x的值能达到y，'并显示所需年数的值（变量名必须为n）。'要求使用Do...LoopUntil语句来实现。x=10n=0Dox=x*1.01n=n+1LoopUntilx=yfun=n'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------3.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：求从m到n的奇数的乘积并显示，'如：m为2，n为5时，显示15'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。Product=1Fori=mTonIfiMod20ThenProduct=Product*iNextifun=Product'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------4.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：：编写函数fun，函数的功能是：计算并输出给定'整数n的所有因子之和（不包括1与自身）。规定'n的值不大于1000.'例如：n的值为855时，应输出704。Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=s'-------------------------------------------------程序填空1.编程求1-10之间任一数字的阶乘。OptionExplicitPrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Ifx=1Andx=10ThenLabel2.Caption=Text1'**********FILL**********text2.Text=CStr(fac(x))EndSubPrivateFunctionfac(nAsInteger)AsLongDimiAsIntegerDimsAsLongs=1Fori=1Ton'**********FILL**********s=s*iNexti'**********FILL**********fac=s'返回函数值EndFunctionPrivateSubCommand2_Click()EndEndSub2.编写一个求三个数最大值的函数max(x,y,z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c三个数，然后单击计算按钮，在文本框中输出表达式的值m。表达式为：m=max(a,b,c)*max(a+b,b,c)-max(a,b,b+c)OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsInteger,mAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)'**********FILL**********m=max(a,b,c)*max(a+b,b,c)-max(a,b,b+c)'**********FILL**********Text4.Text=CStr(m)EndSubPrivateFunctionmax(ByValxAsInteger,ByValyAsInteger,ByValzAsInteger)AsInteger'**********FILL**********max=xIfmaxyThenmax=yIfmaxzThenmax=zEndFunctionPrivateSubCommand2_Click()EndEndSub3．求质因子。设计如图所示的程序界面，并完善下面的程序代码。按原文件名保存，运行正确。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,a()AsInteger,kAsIntegerDimstAsString,iAsIntegern=Text1'**********FILL**********k=2'给k赋初值DoIfnModk=0Theni=i+1'**********FILL**********ReDimPreservea(i)a(i)=kn=n\k'设置循环Elsek=k+1EndIf'**********FILL**********LoopUntiln=1'设置循环loopst=Text1&='**********FILL**********Fori=1ToUBound(a)-1st=st&a(i)&*NextiText2=st&a(i)EndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=EndSubPrivateSubCommand3_Click()EndEndSub4．随机产生10个两位数整数，利用函数调用求这10个数的最大值和最小值。OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,iAsIntegerDimmaxAsInteger,minAsIntegerRandomizeFori=1To10'**********FILL**********a(i)=Int(Rnd*90+1)Printa(i);NextiPrint'**********FILL**********max=f(a,min)Printmax;minEndSubPrivateFunctionf(b()AsInteger,minAsInteger)AsIntegerDimiAsInteger'**********FILL**********f=b(1)min=b(1)Fori=2ToUBound(b)'**********FILL**********Iffb(i)Thenf=b(i)Ifminb(i)Thenmin=b(i)NextiEndFunction5．'本程序段将一个十进制整数m转换成r(2－16)进制字符串'方法：将m不断除r取余数，直到商为零，以反序得到结果。'-------------------------------------------------------FunctionTranDec$(ByValm%,ByValr%)DimStrDtoR$DimiB%,mr%StrDtoR=DoWhilem0'**********FILL**********mr=mModrm=m\rIfmr=10Then'**********FILL**********StrDtoR=Chr(mr-10+65)&StrDtoRElseStrDtoR=mr&StrDtoREndIfLoopTranDec=StrDtoREndFunctionPrivateSubCommand1_click()Dimm0%,r0%,i%m0=Val(Text1.Text)r0=Val(Text2.Text)Ifr02Orr016Theni=MsgBox(输入的R进制数超出范围,vbRetryCancel)Ifi=vbRetryThenText2.Text=Text2.SetFocusElseEndEndIfEndIfLabel3.Caption=转换成&r0&进制数'**********FILL**********Text3.Text=TranDec(m0,r0)EndSub6．OptionBase1Dima(5,8)AsSingle,athlete(5)AsString*8PrivateSubCommand1_Click()DimchAsStringText1='**********FILL**********OpenApp.Path&\in5.datForInputAs#1Fork=1To5Input#1,ch'**********FILL**********athlete(k)=chText1=Text1&ch&Forj=1To8Input#1,cha(k,j)=Val(ch)Text1=Text1&ch&NextjText1=Text1&Chr(13)&Chr(10)NextkClose#1EndSubPrivateFunctiongetmark(nAsInteger)AsSingles=a(n,1)maxnum=sminnum=sFork=2To7'**********FILL**********s=s+a(n,k)Ifmaxnuma(n,k)Thenmaxnum=a(n,k)EndIfIfminnuma(n,k)Thenminnum=a(n,k)EndIfNextk'**********FILL**********s=(s-maxnum-minnum)/5getmark=s*3*a(n,8)EndFunctionPrivateSubCommand2_Click()'要求考生编写的程序'*************begin*************DimkAsIntegermaxmark=getmark(1)m=1Fork=2To5Ifmaxmarkgetmark(k)Thenmaxmark=getmark(k)m=kEndIfNextkText2=athlete(m)Text3=maxmark'**************end**************EndSubPrivateSubCommand3_Click()'**********FILL**********OpenApp.Path&\out5.datForOutputAs#1Print#1,Text2,Text3Close