还剩33页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
程序填空K第1题』『程序填空」(1分)(题号59)【程序填空】功能输入一个数若大于o则显示“+”;若小于0则显示若等于“0”则显示“零、PrivateSubCommandl_Clickx=ValTextl.TextSelectCasex,**********Sp^ce**********[1Label
1.Caption=+”CaseIs0,**********Sp^cE**********[1i**********space**********[]Label1Caption二零EndSelectEndSub答案.CaseIs
0.Label
1.Caption=n-n.Case0或CaseElse或CaseIs=0K第2题』『程序填空」(1分)(题号:60)【程序填空】功能输入任何一个英文字母X’若X的值为^配二乜了二则显示X的大写字母;若X的值为”01””/则显示X的小写字母;若X的值为其它的值则显示xa(如输入的X的值是g则显示ga)oStep-1work=False或work=0或notwork=trueExitFor[[第12题』『程序填空」(1分)(题号:37)【程序填空】‘功能以下程序用于判断一个正整数
(23)是否为素数PrivateSubForm_Clickn=InputBox请输入一个正整数三3”k=IntSqrni=2swit=0i**********Spy^CE**********DoWhilei=kAnd[]i**********Spy^cE**********If【?】Thenswit=1Elsei**********Sj^ce**********[1EndIfLoopIfswit=0ThenPrintn;是一个素数”ElsePrintn;“不是素数”EndIfEndSub答案.swit=
0.nModi=0或n/i★=★n\i或n/i★二★intn/i.i=★+★1K第13题H『程序填空」(1分)(题号:55)【程序填空】功能过程suixian可以判断某一个数字是否是水仙花数,利用该过程找出三位数中所有水仙花数所谓“水仙花数”是指一个3位数,其各位数字立方和等于该数本身PrivateSubForm_ClickDimiAsIntegerFori=100To999,**********space**********[]NextiEndSubPublicSubsuixianxAsIntegerDimi%j%k%**********Sp^cE**********i=[]j=x-i*100\10k=x-i*100-j*10**********space**********suixiani或callsuixiani或suixianix\100或intx/100x=★i八+★jA+★1<八3或x=★+★+★k*k*kK第14题1『程序填空』(1分)(题号:50)【程序填空】功能从键盘上输入一串字符,以“”结束,统计输入字符中的大、小写字母和数字的个数PrivateSubForm_ClickDimch$nl%n2%n3%nl=0n2=0n3=0ch=InputBox请输入一个字符”,**********Sp^cE**********DoWhile[]SelectCasechCaseManTo2nl=nl+1,**********Sp^cE**********Case[]n2=n2+1Casen0nTo”9n3=n3+1EndSelectch=InputBox请输入一个字符”i**********Spy^CE**********riPrintnln2n3EndSub答案.ch★★或notch廿?或not?”=ch.A”ToZ.Loop(第15题』『程序填空」(1分)(题号:54)【程序填空】功能本程序用于实现从键盘接收一数字,判断其是否在数组中,如果在数组中则将其删除,否则显示该数字不在数组中PrivateSubForm_ClickDima10AsIntegerxAsIntegerFori=1To10ai=IntRnd*90+10Printai;NextiPrintx=InputBox请输入要删除的整数”Fori=1To10i**********SPy\CE**********Ifai=xThen[]Nextii**********Spy^cE**********If【?】ThenFork=iTo9,**********Sp^cE**********[]NextkPrint”删除后的数组:Fori=1To9Printai;NextiElsePrint”该数字不在数组中”EndIfEndSubExitFori10或10iak=a^k★+★!★(第16题』『程序填空」(1分)(题号:48)【程序填空】功能利用下面的过程求m!和m*nPrivateSubForm_ClickDimmAsIntegernAsIntegerm=2n=3i**********space**********[]EndSubPrivateSubfindxAsIntegeryAsIntegerDimsiAsIntegeri**********space**********[]Fori=1Toxs=s*i,**********SP^CE**********p=[]NextiPrintspEndSub答案.findmn或callfindmn.s=1或s=1:p=
0.或x*yK第17题』『程序填空」(1分)(题号:58)【程序填空】功能求ABC三个数的最大值PrivateSubCommand1_ClickA=ValTextl.Text,**********space**********[]C=ValText
3.TextIfABAndACThenMAXDATE=A,**********Sp^cE**********Elself[]ThenMAXDATE=BElse,**********Spy^cE**********[1EndIfLabel
1.Caption二MAXDATE”是最大值”EndSub答案.B=ValText
2.Text或b=valtext
2.B〉C或CB或BC★and★ba或cb★and*ab.MAXDATE=Ck第18题』『程序填空」(1分)(题号:42)u程序填空】‘功能以下程序段利用随机函数生成15个10-100之间的整数然后用选择法将其从小到大排序PrivateSubForm_ClickConstn=15DimalTonAsIntegerDimiAsIntegerjAsIntegertAsIntegerminAsIntegerRandomizeFori=1Toni**********Sj^ce**********ai=[]NextiFori=1TonPrintai;NextiPrintFori=1Ton-1,**********SPACE**********[]Forj=i+1TonIfajatThent=jNextji**********space**********If[]Thenmin=ai:ai=at:at=minEndIfNextiFori=1TonPrintai;NextiEndSub答案.Int^100^*★Rnd^^+★
10.t=i.★★1或ti或it或nott=i或noti=tK第19题』『程序填空」(1分)(题号44)【程序填空】功能以下程序的功能如(图1)PrivateSubForm_ClickDimsAsSinglemAsIntegerp#Form=1To10i**********Sj^ce**********p=[1s=s+1/pNextmPrintsEndSubFunctionnk%p=1Form=1Toki**********Sp^\CE**********Nextmi**********SDAC=**********[]EndFunctionK第20题』『程序填空」(1分)(题号:592)下面的程序段用于打印出以下图形****•卜•卜.、•.、el**1**1**1*kIk]k|k*«、rj、[、rj**|*****PrivateSubForm_ClickDimi%j%k%Fori=3To0Step-1Forj=0To2*iPrintnn;Nextji**********Spy^CE**********Fork=5To[]PrintNextkPrintNextiFori=0To3Forj=0To2*i+2,**********Spy^CE**********[]NextjFork=0To4-2*iPrint*”Nextk,**********Spy^cE**********[]NextiEndSub★1★Step^-1Print或?”Print或?(第21题』『程序填空」(1分)(题号:595)u程序填空】功能窗体上建立了一个文本框Textl(输入口令”)和一个命令按钮Commands检查”)判断密码是否正确,并显示相应提示在加载窗体时设置密码框最大长度为8密码显示字符为“”dimxasstringPrivateSubCommand1_C1ickx=Textl.Text,**********Sp^cE**********[]”12345678”ThenMsgBox欢迎你用机!”ElseMsgBox对不起,口令错”EndIfTextl.Text”Textl.SetFocusEndSubPrivateSubForm_LoadTextl.Text”,**********Spy^CE**********Textl.[],**********SCE**********Textl.[]=*EndSub答案D.二.MaxLength.PasswordCharK第22题』『程序填空」(1分)(题号:38)【程序填空】功能下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素所在的行和列,并输出其值及行号和列号PrivateSubForm_ClickDimmatAsIntegerDimnasintegermAsIntegern=ValInputBox请输入矩阵的行数”m=ValInputBox请输入矩阵的列数”,**********Spy^CE**********[]Fori=1TonForj=1Tommatij=InputBox请输入数组元素值”matij=ValmatijNextjNextiPrint”所建立的矩阵为”Fori=1TonForj=1TomPrintmatij;NextjPrintNextiMax=matl1PrivateSubCommand1_Clickx=Text
1.Texti**********space**********[]i**********Sp^\CE**********Case[]Label
1.Caption二UCasexCaseTo“z”Label
1.Caption=LCasexCaseElse,**********Sp^cE**********[]EndSelectEndSub答案.SelectCasex.”a”,”c”,Tonr.Label
1.Caption=Trimx+nan或Label
1.Caption=x+a”(第3题H『程序填空」(1分)(题号:36)【程序填空】’功能以下程序的功能如(图1)OPrivateSubForm_ClickDima%b%c%d!Dimxlx2Dimpqra=InputBox请输入a的值”b二InputBox请输入b的值”c=InputBox请输入c的值”d=b*b-4*a*cFori=1TonForj=1Tom,**********SPACE**********If[]ThenMax=matijcol=ji**********Sp^\CE**********[]EndIfNextjNextiPrintPrint”矩阵最大的元素的值为:n;matrowcolPrint”它所在的行号为”;row;”列号为n;colEndSub答案.ReDimmatnmAsInteger或ReDimmatnm.Maxmatij或matijMax.row=I(第23题H『程序填空」(2分)(题号:45)【程序填空】功能下面的程序段用于求矩阵相乘C=AXB设A、B、C分别为mXp、pXnmXn的矩阵PrivateSubForm_ClickConstm=4p=3n=2DimalTom1TopAsIntegerDimblTop1TonAsIntegerDimclTom1TonAsIntegerDimiAsIntegerjAsIntegerkAsIntegersumAsIntegerFori=1TomFork=1Topaik=iNextkNextiFori=1TopFork=1Tonbik=iNextkNextiFori=1TomForj=1Ton,**********Sp^CE**********[]Fork=1Topi**********SPy\CE**********sum=sum+【?】Nextki**********Spy^cE**********cij=[]NextjiPrint”输出矩阵”Fori=1TomFork=1TonPrintcikNextkPrintNextiEndSub答案.sum=
0.aikbkj.sum[[第24题H『程序填空」(2分)(题号:52)【程序填空】功能下面的程序段用于打印出以下图形****kJ*kJ**f**f**f*T**T**T**T**T**T»*T**T**T**T**T**T*****PrivateSubForm_ClickDimi%j%k%Fori=0To3Forj=0To2-iPrint”;Nextj,**********Sp^cE**********Fork=1To[]Print*”;NextkPrintNextiFori=0To2Forj=0Toii**********sp^ce**********[]NextjFork=0To4-2*iPrint”*”;Nextki**********Spy^cE**********【】NextiEndSub答案.*★!★+★
1.Print”“;或form
1.printnn;或.Print或form
1.Print或?K第25题』『程序填空」(2分)(题号:47)【程序填空】‘功能以下程序段用于实现输入两个正整数m和n求其最大公因数和最小公倍数PrivateSubForm_ClickDima%b%numl%num2%tempnuml=InputBox请输入一个正整数”num2=InputBox请输入一个正整数”,**********Sp^CE**********If[]Thentemp=numl:numl=num2:num2=tempEndIfa=numlb二num2i**********Spy^cE**********DoWhileI]temp=aModba=b,**********Sp^CE**********[]LoopPrint”最大公因数为n;aPrint”最小公倍数为”;numl*num2/aEndSub答案.numlnum2或num2numl.b★★0或b0或0b或tempo或temp0或0vtemp或notb=0或not0=b.b=tempK第26题』『程序填空」(2分)(题号:40)【程序填空】功能以下程序段用于输出杨辉三角结果样式如图1PrivateSubForm_ClickConstn=10DimarrnnAsIntegerForI=1TonarrII=1,**********SPACE**********[]NextIForI=3TonForj=2ToI-1,**********SPACE**********arrij=[]NextjNextIForI=1TonForj=1ToI,**********SP^CE**********【?】”“;NextjPrintNextIEndSubarri1=1★arri-1]-!★+★arri-1jarrij或strarrijk第27题』『程序填空」(2分)(题号:39)【程序填空】功能以下程序段用于实现矩阵转置,即将一个nXm的矩阵的行和列互换PrivateSubForm_ClickConstn=3Constm=4DimanmbmmAsIntegerForI=1TonForj=1TomaIj=IntRnd*90+10Nextj,**********Spy^CE**********[1ForI=1TonForj=1Tomi**********space**********NextjNextIPrint”矩阵转置前”ForI=1TonForj=1TomPrintaIj;Nextj,**********Sp^ce**********[]NextIPrint”矩阵转置后”ForI=1TomForj=1TonPrintbIj;NextjPrintNextIEndSub答案.Nexti或Next.bji=aij.print或form
1.print或k第28题』『程序填空」(2分)(题号:53)【程序填空】功能下面的程序实现从键盘输入一个数字,将其插入一个有序数组中,插入后的数组仍保持有序PrivateSubForm_ClickDima10AsIntegerxAsIntegerFori=1To8ai=2*i_1Printai;NextiPrintx=InputBox请输入要插入的整数”i**********Sp^cE**********[]=8DoWhileaixi**********space**********[]i=i-1Loop,**********SP^CE**********Ifi0Then[]Fori=1To9Printai;NextiEndSub答案.a0=x.ai+1=ai或al+i=ai.ai+1=x或al+i=xK第7题U『程序填空」1分题号:57“程序填空】功能求1!+2!+……+10!的值PrivateSubForm_Click,**********space**********[]s=1ForI=2To10t=t*I,**********Spy^CE**********[],**********space**********[]PrintsEndSub答案:.t=
1.s=★+★t.NextI或NextK第2题!I『程序填空』(2分)(题号:514)【程序填空】‘功能本程序求3100之间的所有素数(质数)并统计个数;同时将这些素数从小到大依次写入顺序文件dataout.txt;’素数的个数显示在窗体Fonnl上PrivateSubCommandlClickDimcountAsIntegerflagAsBooleanDimtlAsIntegert2AsInteger**********SPACE**********OpenApp.Path\dataout.txtForOutputAs[]count=0Fortl=3To100**********SPACE**********flag=[]Fort2=2ToIntSqrtlIftlModt2=0Thenflag=FalseNextt2IfflagThen**********SPACE**********count=[]Write#1tlEndIfNexttlForml.Print〃素数个数〃;countClose#1EndSub答案.#
1.True.count+1或1+countK第3题》『程序填空」(2分)(题号:525)【程序填空】功能在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timerl)然后编写如下儿个事件过程:’要求每一秒钟Label1更新显示一次系统时间PrivateSubForm_LoadTimerl.Enabled=False**********SPACE**********Timerl.Interval=[]EndSubPrivateSubFormClick**********SPACE**********Timerl.Enabled=[]EndSubPrivateSubTimerlTimer**********space**********Label
1.Caption=EndSub答案.
1000.True.Now或Time或Now或TimeOK第4题D『程序填空」(2分)(题号:534)【程序填空】功能在窗体上有两个列表框Listl(处理前数据)和List2(处理后数据),以及标签Labell程序功能为随机生成100个0-20(不包括0和20)的随机数填入Listl并将这些随机数中的零元素删除,填入List2中最后在Labell中显示零元素个数PrivateSubFormLoadDimnAsIntegerDimixkAsIntegerDima100AsIntegerb100AsIntegerRandomizen二100**********space**********Fori=1To[]**********SPACE**********x=Int20*[]Listl.Additemxai=xNextik=0Fori=1Ton删除零元素Ifai0Then**********SPACE**********[]bk=aiList
2.AdditembkEndIfNextiLabel
1.Caption=〃数组中零元素个数〃+Strn-kEndSub答案
1.n或
100.Rnd或Rndl.k=k+1或k=l+kK第5题D『程序填空』2分题号:515【程序填空】功能由输入对话框输入nn必须为大于零且小于30的自然数,计算下列表达式的值,并在标签框Labell上显示sum=1/2+1/6+.・.+l/k*k+lk=nPrivateSubForm_ClickDimnAsIntegersumAsDoublekAsIntegern=VaiInputBox〃n=〃,〃请输入自然数nn0且n30〃**********SPACE**********DoWhilen=0[]n〉=30n=VaiInputBox〃n=”,〃请重输入〃p二-b/2*aIfd=0Then,**********SPACE**********If[]Thenr=Sqrd/2*axl=p+rx2=p-rElsexl=px2=pi**********Spy^CE**********[]Print”xl=;xljx2=;x2,**********SP^CE**********[]q=Sqr-d/2*aPrintxl=;p;+”;q;“i“,“x2=“;p;」;q;“i”EndIfEndSub答案.d0或0d.EndIf.ElseK第4题』『程序填空」(1分)(题号:51)【程序填空】功能下面的程序段用于建立文件并输出文件,文件内容如下:kL**1**4**4**7**1*riw*1^*1**7**1**1*k1rr**1*7,tkJ*kJq.q、〃、rj*PrivateSubForm_Clicki**********SDAC=**********Loopsum二0k二0Do**********SPACE**********k=[]sum=sum+1/k*k+1**********SPACE**********LoopUntil[]Label
1.Caption=〃Sum=〃+StrsumEndSub答案.Or.k+1或1+k.1<>二口或口<=1<或女二11K第7题』『程序填空』(2分)(题号:501)【程序填空】功能本程序执行后,最终在窗体上打印数字7PrivateSubCommand1ClickDimaAsString**********space**********OpenApp.Path\abc.batFor[]As#1n=8ForI=1TonPrint#1I+1NextIClose#1**********SPACE**********OpenApp.Path\abc.batFor[]As#1ForI=1TonInput#1aIfIMod5=0Then**********SPACE**********PrintCInta+[]EndIfNextIClose#1EndSub答案:
1.Output.Input.1K第8题》『程序填空」2分题号:503【程序填空】功能用户界面如图所示,实现左右两个组合框中数据的左移和右移功能程序开始运行时,在左边组合框中生成10个由小到大排列的随机三位正整数在设计阶段该组合框的Sorted属性值已设置为True’现要求完成1单击〃〃钮,左边组合框中的10个数全部移动到右边组合框’同时使〃〈V〃钮能响应,〃〃钮不能响应2单击〃〃钮,右边组合框中的10个数全部移到左边的组合框同时使〃〃钮能响应,〃〈V〃钮不能响应;3单击〃结束〃按钮,结束程序运行PrivateSubcmdLeft_ClickDimiAsIntegerFori=0TocomboRight.ListCount-1comboLeft.AdditemcomboRight.ListiNexticomboRight.Clear**********SPACE**********[]=False**********SPACE**********[]=TrueEndSubPrivateSubcmdRightClickDimiAsInteger**********SPACE**********Fori=0To[]-1comboRight.AddltemcomboLeft.ListiNexti**********SPACE**********[].ClearcmdRight.Enabled=FalsecmdLeft.Enabled=TrueEndSubPrivateSubCommand3_ClickEndEndSubPrivateSubForm_LoadDimiAsIntegerLabel
1.Caption=〃组合框1〃Label
2.Caption=组合框2”cmdRight.Caption=〃〃cmdRight.Enabled=TruecmdLeft.Caption=〃〃cmdLeft.Enabled=FalsecmdExit.Caption=〃结束〃comboLeft.Text=””Fori=1To10comboLeft.AddltemIntRnd*900+100NexticomboRight.Text=〃〃EndSub答案.cmdLeft.Enabled.cmdRight.Enabled.comboLeft.ListCount.comboLeftK第9题》『程序填空」(2分)(题号:498)【程序填空】功能本程序执行功能为,命令按钮单击一次后,窗体上输出结果为:362516,9PrivateSubCommandl_ClickDimxx6AsIntegerDimk%OpenApp.Path〃\al.dat〃ForOutputAs#1ForI=1To6**********space**********Print#1jNextIClose#1OpenApp.Path〃\al.dat〃ForInputAs#2k=0DoWhileNotEOF2**********SPACE**********k=[]Input#2xxkLoopClose#2**********SPACE**********ForI=kTok/2Step[]Forml.PrintxxINextIEndSub答案.I*I或「
2.k+1或1+k._1K第10题H『程序填空」2分题号:508【程序填空】功能用Circle方法在图片框正中画出许多不同颜色的同心圆’且不能画出图片框PrivateSubPicturel一ClickDimCXCYRadiusLimitSealeMode=3**********SPACE**********CX=[]CY=Picturel.ScaleHeight/2**********SPACE**********IfCXCYThenLimit=CYElse[]**********SPACE**********ForRadius=0To[]Picturel.CircleCXCYRadiusRGBRnd*255Rnd*255Rnd*255NextRadiusEndSub答案.Picturel.ScaleWidth/
2.Limit=CX.LimitOpennc:\l.txtnFor[As#1Fori=1To5Print#lSpci;”*****Nextii**********space**********[]i**********Sp^\CE**********Opennc:\l.txtnFor[]As#lFori=1To5LineInput#1xPrintxNextiClose#1EndSubOutputClose#1或CloseInputK第5题』『程序填空」(1分)(题号:49)【程序填空】功能以下程序段用于求£n!PrivateSubForm_ClickDimsumAsIntegernAsIntegern=InputBox请输入一个正整数”sum=0Fori=1Ton,**********Sp^cE**********sumNextiPrintsumEndSubPrivateFunctionmulByValxAsIntegerDimsAsIntegeriAsIntegers=1,**********Spy^CE**********Fori=1To[]s=s*iNextii**********space**********[]EndFunctionsum*+*mulixmul=sK第6题H『程序填空」(1分)(题号:61),【程序填空】功能根据输入的学习成绩,分别显示优秀(90分以上),良好(75分以上),及格(60分以上),不及格几个等级PrivateSubCommand1_Clickx=VaiText
1.TextIfx=90ThenLabel
1.Caption=优秀i**********Spy^CE**********Elself[]ThenLabel
1.Caption=H良好”Elselfx=60Then,**********Sp^cE**********[1,**********Spy^CE**********[]Label
1.Caption=不及格”EndIfEndSub答案.x=75或75=X.Label
1.Caption=及格”或Label1=及格.ElseK第8题U『程序填空」(1分)(题号:46)【程序填空】功能从键盘输入学生分数,统计学生总人数和各分数段人数即优秀(90-100)、良好(80-89)、中等(70-79)、及格(60-69)、不及格(60以下)的人数PrivateSubForm_ClickDimscore%nl%n2%n3%n4%n5%msg=请输入分数-1结束”msgtitile=输入数据”score=ValInputBoxmsgmsgtitlei**********Spy^CE**********While[]total=total+1i**********Sp^cE**********SelectCaseCaseIs=90nl=nl+1CaseIs=80n2=n2+1CaseIs=70n3=n3+1CaseIs=60n4=n4+1CaseElsen5=n5+1,**********Spy^CE**********[]score=ValInputBoxmsgmsgtitleWendPrintnln2n3n4n5totalEndSub答案.score=0★And*score=100或0=score★And*score=100或0=score★And*100=score或score=0★And*100=score.score.EndSelectK第9题H『程序填空」(1分)(题号:56)【程序填空】功能输入数字1-7显示其对应是星期儿(例:输入1显示星期日如果输入其它内容,一律显示“输入错误”)PrivateSubCommand1_Clickdimxasintegerdimyasstringx=valtextl.text,**********Sp^CE**********[]y二”今天是星期日”y二星期一”y二星期二”y二“星期三”y二星期四”i**********Spy^cE**********[]y=星期六i**********Sp^\CE**********[]y二输入错谀endselectText
2.Text=yEndSub答案.selectcasex.y=“星期五”.CaseElseK第10题』『程序填空」(1分)(题号:41)【程序填空】下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值PrivateSubForm_ClickPrint”5个数
34、
124、
68、
73、352的最大值是”maxi=max3412468,**********Sp^cE**********maxi=[]Printmax1EndSubPublicFunctionmaxByVala%ByVaib%ByVaic%,**********SPACE**********If[]Thenm=aElsem=bEndIf,**********SCE**********If【?】Thenmax=mElsemax=cEndIfEndFunction答案
1.maxmax
1733522.
3.ab或bamc或cm(第11题H『程序填空」(1分)(题号43)【程序填空】功能下面的程序段用于实现以下功能利用冒泡法将一组整数从小到大排序PrivateSubForm_ClickConstn=15DimalTonAsIntegerworkAsBooleanDimiAsIntegerjAsIntegerxAsIntegerRandomizeFori=1Tonai=Int90*Rnd+10NextiFori=1TonPrintai;NextiPrinti**********Spy^CE**********Fori=nTo2[]work=TrueForj=1Toi-1Ifajaj+lThenx=aj:aj=aj+1:aj+1=x,**********Spy^CE**********[]EndIfNextji**********Spy^cE**********IfworkThen[]NextiFori=1TonPrintai;NextiEndSub答案
1.nm
2.p**★m
3.n二p。