下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 [电脑基础知识]VB模拟题库

[电脑基础知识]VB模拟题库.doc

[电脑基础知识]VB模拟题库

蔺ming珠
2017-09-17 0人阅读 举报 0 0 暂无简介

简介:本文档为《[电脑基础知识]VB模拟题库doc》,可适用于综合领域

电脑基础知识VB模拟题库保存问问分下面一述问哪个叙正确的,D的问程非常问问~只要上的控件问置好~再控件的性按要求问置可完成程序的问制。将窗体将属即VB的特点中的可问化问程是指问可使用打印问问看一下效果。随VB的特点中的事件问问机制是系问已问问制好的一些问问控件的程序~可以直接问用。VB系问提供了据问管理功能数。VBP保存问问分下面一述问哪个叙问问的,DVB的问程非常问问~因问系问提供了多问制好的控件~可直接放到界面上使用。很VB是面向问象的程序问问~且具有问化的程序问问问言。并构VB的特点中的事件问问机制是系问可以感知一些问作~问问作问生问自问去问行问问的事件问程。当VB系问有提供据问管理功能没数。P保存问问分下面一述问哪个叙正确的,BVB源程序有工程文件、文件、模问文件等~工程文件包含所有的文件~源程序问只需要问工程文件可。窗体份份即VB源程序有工程文件、文件、模问文件等~工程文件包含所有的文件~源程序问需要问所有相问文件窗体份份。VB源程序有工程文件、文件、模问文件等~源程序问只需要问文件和模问文件可。窗体份份窗体即VB源程序如果有多文件~有模问文件~源程序问只需要问文件可。个窗体没份份窗体即保存问问分AVB窗体问问器的主要功能是,建立用问界面问程序代问写画出问形控件问示问准控件保存问问分下面一述问哪个叙正确的,A在安有装VB系问程序的问算机上~修改一以前问制的个VB源程序~只需要问双工程文件即可。在安有装VB系问程序的问算机上~修改一以前问制的个VB源程序~只需要问文件问可。双窗体即在安有装VB系问程序的问算机上~修改一以前问制的个VB源程序~只需要问模问文件可。双即在安有装VB系问程序的问算机上~修改一以前问制的个VB源程序~问源程序中的任何文件都不能打问源程序。双保存问问分什问是问象,AP问象是具有特殊性和行问方式的问属体。问象是控件的性。属问象是控件的方法。问象是控件的事件。保存问问分下面问于问象的性问置~问法是属哪个正确的,C问象的所有性问都可以在性口中修改。属属窗问象的所有性问都不可以在性口中修改。属属窗问象只有部分的性问可以在性口中修改属属窗。问象的性问只能在程序代问中修改。属保问问分存以下述中叙正确的是,AP窗体的Name属窗体称来个窗体性指定的名~用问问一。窗体的Name属窗体性的问是问示在问问问中的文本Caption可以在行期问改问运NamivateSubCommandClick()LabelBackColor=Int(Rnd*)EndSub"D"PrivateSubCommandClick()mcolor=Int(Rnd*)Ifmcolor=LabelForeColorThenLabelBackColor=mcolorEndSub"问问如果成问,分问问问示框问秀~成问,并且,问示及格~成问,且,问示不及格~下面段程序正,哪确=""="",问秀A"Ifcj=ThenLabelCaption="""",及格Ifcj=ThenLabelCaption="""",不及格Ifcj=ThenLabelCaption=""""",B"Ifcj=Then不及格LabelCaption="""",ElseIfcj=Then及格LabelCaption="""",ElseIfcj=Then问秀LabelCaption=""""EndIf",C"Ifcj=Then问秀LabelCaption="""",ElseIfcj=Then及格LabelCaption="""",ElseIfcj=Then不及格LabelCaption=""""EndIf",D"Ifcj=Then不及格LabelCaption="""",ElseIfcj=Then及格LabelCaption="""",ElseIfcj=Then问秀LabelCaption=""""EndIf"问问问算到的问~下面问问问问使用问命令,划哪"() ForJ=to()NextJPrintS"A"()S=()S=S*"B"()S=()S=S*"C"()S=()S=S*J"D"()S=()S=S*J"问问下面的程序功能是什问,"S=,Whiles  PrintInt(Rnd*)  s=sWend"打印个以的机整。内随数A打印个以的机整。内随数B打印到之问的偶数。C什问也没做。D问问下面的程序功能是什问,"S=,Whiles  PrintInt(Rnd*)  s=sWend"打印个以的机整。内随数A打印个以的机整。内随数B打印到之问的的倍数。C什问也没做。D问问如果问注是退学~成问~如果问注是缺考~成问~如果问注是问考~成问。下面段程序正,哪确(bz)""(cj)=""=""=退学A"Ifbz=""""Thencj=缺考Ifbz=""""Thencj=问考Ifbz=""""Thencj="退学缺考问考B"Ifbz="""","""",""""Thencj=,,"退学缺考问考C"Ifbz=""""And""""And""""Thencj=AndAnd"退学缺考问考D"Ifbz=""""Or""""Or""""Thencj=OrOr"问问如果问注是退学~成问~如果问注是缺考~成问~如果问注是问考~成问。下面段程序正,哪确(bz)""(cj)=""=""=退学A"Ifbz=""""Thencj=缺考ElseIfbz=""""Thencj=问考ElseIfbz=""""Thencj=EndIf"退学缺考问考B"Ifbz="""","""",""""Thencj=,,"退学缺考问考C"Ifbz=""""And""""And""""Thencj=AndAnd"退学缺考问考D"Ifbz=""""Or""""Or""""Thencj=OrOr"问问如果成问,分问问问示框问秀~成问,并且,问示及格~成问,且,问示不及格~下面段程序正,哪确=""=""问秀及格不及格A"Ifcj=,,ThenLabelCaption="""","""",""""",问秀B"Ifcj=ThenLabelCaption="""",及格Ifcj=ThenLabelCaption="""",不及格Ifcj=ThenLabelCaption=""""",不及格C"Ifcj=ThenLabelCaption="""",及格Ifcj=ThenLabelCaption="""",问秀Ifcj=ThenLabelCaption=""""",D"Ifcj=Then不及格LabelCaption="""",ElseIfcj=Then及格LabelCaption="""",ElseIfcj=Then问秀LabelCaption=""""EndIf"问问如果成问,分问问问示框问秀~成问,并且,问示及格~成问,且,问示不及格~成问,或者,问问问示框数据问问~下面哪个不正确,=""="""",数据问问,问秀,及格,不及格数据问问A"LabelCaption=Iif(cj,"""",Iif(cj=,"""",Iif(cj=,"""",Iif(cj=,"""",""""))))",,数据问问,问秀,及格不及格B"LabelCaption=IIf(cjOrcj,"""",IIf(cj=,"""",IIf(cj=,"""","""")))",,C"IfcjOrcjThen数据问问LabelCaption=""""Else,问秀,及格不及格LabelCaption=IIf(cj=,"""",IIf(cj=,"""",""""))EndIf",,D"IfcjAndcjThen数据问问LabelCaption=""""Else,问秀,及格不及格LabelCaption=IIf(cj=,"""",IIf(cj=,"""",""""))EndIf"问问下面程序问行后~问出问果,会哪个"nl=SelectCasenlCase  Print,CaseIs=  PrintCaseto  PrintCase,,  PrintEndSelect"ABCD问问下面程序在行问不出问运框框内哪个消息~文本中的容是问问问目的问,"nl=val(texttext)SelectCasenl,Caseis=  问秀消息Msgbox"""",,"""",CaseIs=  良好消息Msgbox"""",,"""",CaseIs=  及格消息Msgbox"""",,"""",CaseIs=EndSelect"ABCD问问下面程序在行后~问量运的容是什问,内"xx=fori=to SelectCasei ,CaseIs  x=xi Case,  x=xI   EndSelectNextI"ABCD问问问算到的奇数划哪的和~下面问问问问使用问命令,"S=ForJ=to() ()NextJPrintS"A"()Step()S=S"B"()Step()S=S"C"()Step()S=SJ"D"()Step()S=SJ"问问问算到的偶数划哪的和~下面问问问问使用问命令,"S=For()Step ()NextJPrintS"A"()J=to()S=SJ"B"()J=to()S=SJ"C"()J=to()S=S"D"()J=to()S=S"问问下面的程序功能是什问,"S=,Whiles  PrintInt(Rnd*)  s=sWend"打印个以的机整。内随数A打印到。B打印个以的机整。内随数C什问也没做。D问问下面的程序功能是什问,"S=,Whiles  PrintInt(Rnd*)  s=sWend"打印个以的机整。内随数A打印个以的机整。内随数B打印个以的机整。内随数C什问也没做。D问问下面的程序功能是什问,"S=,Whiles  PrintInt(Rnd*)  s=sWend"打印个以的机整。内随数A打印个以的机整。内随数B打印到。C什问也没做。D问问下面的程序问问到的乘问~问问问下问问的命令,划"s=I=Do  s=s*I  I=ILoopWhilePrints",AI,BI,CI,DI问问下面哪个体内循问的问句次也有问行问,没A"ForI=toStepPrintiNextJ"B"ForI=toStepPrintiNextJ"C"ForI=toStepPrintiNextJ"D"ForI=toStepPrintiNextJ"问问问算到的奇数划哪的问~下面问问问问使用问命令,"()ForJ=to() S=S*JNextJPrintS"A"()S=()Step"B"()S=()Step"C"()S=()Step"D"()S=()Step"问问下面的程序问问到的乘问~问问问下问问的命令,划"s=I=Do  s=s*I  I=ILoopWhilePrints",AI=,BI=,CI=,DI=问问下面的程序问问到的求和~问问问下问问的命令,划"s=I=Do  s=sI  I=ILoopWhilePrints",AI=,BI=,CI=,DI=问问下面的程序问问到的求和~问问问下问问的命令,划"s=I=Do  s=sI  I=ILoopWhilePrints",AI,BI,CI,DI问问下面的程序问问到的求和~问问问下问问的命令,划"s=I=Do  s=sI  I=ILoopWhilePrints",AI,BI,CI,DI问问下面的程序问问到的乘问~问问问下问问的命令,划"s=I=DoWhile  s=s*I  I=ILoopPrints",AI,BI,CI,DI问问下面的程序问问到的和~问问问下问问的容,划内"s=()DoWhile()  s=sI  I=ILoopPrints"A"()I=,()I"B"()I=,()I="C"()I=,()I"D"()I=,()I="问问下面的程序问问到的和~问问问下问问的容,划内"s=()DoWhile()  s=sI  I=ILoopPrints",A"()I=()I",B"()I=()I=",C"()I=()I",D"()I=()I="问问下面的程序问问问入问问问入问据~问问入框数数当字符串问入问束~打印问入据的和~问问问下问问的容,数划内"end问问入据数问入据数msj=InputBox("":"","""")DoWhile()  ()  问问入据数问入据数msj=InputBox("":"","""")LoopPrints",,A"()UCase(msj)""END""()s=sval(msj)"B"()UCase(msj)=""END""()s=sval(msj)",,C"()UCase(msj)""END""()s=smsj"D"()UCase(msj)=""END""()s=smsj"问问下面的程序问问问入问问问入问据~问问入框数数当字符串问入问束~打印问入据的和~问问问下问问的容,数划内"问问入据数问入据数msj=InputBox("":"","""")DoWhile()  ()  问问入据数问入据数msj=InputBox("":"","""")LoopPrints",,A"()val(msj)()s=sval(msj)"B"()val(msj)=()s=sval(msj)",,C"()val(msj)()s=smsj"D"()val(msj)=()s=smsj"问问下面的程序~完成了什问功能,"Dima(,)ForI=Lbound(a,)ToUbound(a,)  Forj=Lbound(a,)ToUbound(a,)   a(I,j)=Int(Rnd*)   Printa(I,j)  Nextj  PrintNextI"问出了个到的数A问出了个到的数B问出了个到的数C问出了个到的数D问问数问的下问是从到~问中问问了数个随数机~下面程序完成什问功能,"aForI=To  Forj=ITo  ,Ifa(I)a(j)Then   mmm=a(I)   a(I)=a(j)   a(j)=mmm  EndIf  NextjNextI"将数数问中的据按问的大小升序排列好。A将数数问中的据按问的大小降序排列好。B将数数从问中的据问至尾问问了一下位置~第个到了最后个~第个数到了倒第个。C没有改问任何问序。D问问数问的下问是从到~问中问问了数个随数机~下面程序完成什问功能,"aForI=To  Forj=ITo  ,Ifa(I)a(j)Then   mmm=a(I)   a(I)=a(j)   a(j)=mmm  EndIf  NextjNextI"将数数问中的据按问的大小升序排列好。A将数数问中的据按问的大小降序排列好。B将数数从问中的据问至尾问问了一下位置~第个到了最后个~第个数到了倒第个。C没有改问任何问序。D问问数问的下问是从到~问中问问了数个随数机~下面程序完成什问功能,"aForI=To  s=  Forj=ITo   s=sa(j)  Nextj  a(I)=sNextI"将数数问中的据按问的大小升序排列好。A将数数问中本元素之后的所有元素中存放的据之和放入本元素中。B将数数从问中的据问至尾问问了一下位置~第个到了最后个~第个数到了倒第个。C将数数问中本元素问始往后的所有元素中存放的据之和放入本元素中。D问问数问的下问是从到~问中问问了数个随数机~下面程序完成什问功能,"aForI=To  s=  Forj=ITo   s=sa(j)  Nextj  a(I)=a(I)sNextI"将数数问中的据按问的大小升序排列好。A将数数问中本元素之后的所有元素中存放的据之和放入本元素中。B将数数从问中的据问至尾问问了一下位置~第个到了最后个~第个数到了倒第个。C将数数问中本元素问始往后的所有元素中存放的据之和放入本元素中。D问问下面的问句"d=,大于小于PrintIif(d,""d"",""d"")与条之等价的件问句是"A"d=,IfdThen小于Print""d""Else大于Print""d""EndIf"B"d=,IfdThen大于Print""d""Else小于Print""d""EndIf"C"d=,IfdThen大于Print""d""Else小于Print""d"""D"d=,IfdThen大于Print""d""Else小于Print""d""EndIf"问问下面问句正的是确,AIfaThena=a:b=ba:c=cb,B"IfaThena=a,b=ba,c=cb",CIfaThena=ab=bac=cb,DIfaThena=ab=bac=cb问问在问问件问句中~构条当问有多件问构内个条问~问IfTrue依次问行件问条的后面的问句问AVisualBasicTrue问行第一问个的件后面的问句问条BVisualBasicTrue问行最后一问个的件后面的问句问条CVisualBasicTrue问行任一问个的件后面的问句问条DVisualBasicTrue问问下面程序"x$=""a""y$=""b""z$=""c""ForI=to x$=y$:y$=z$:z$=x$NextIPrintx$y$z$运行后的问出问果是"AcabBbcaCbcbDcbc问问下面程序ForI=ToStepprintINextI的循问次问数ABCD问问运行以下程序后~问出的问果是"Fori=tostepClsPrint""i=""INextI"ABCi=i=i=Di=问问在循问中~假问ForNext,步问问正~初问大于问问当数,步问问问~初问小于问问当数,初问等于问问循问不问行的情是体将会况,,A,,B,,C,,,D问问问行下列问句后~在上问示的容是窗体内",,x=iif(iif(,true,false),iif(,,),iif(Abs()=Sqr(),,))Printx"ABCDTrue问问在上一命令按问~其名问窗体画个称~问如下事件问程,写"CommandPrivateSubCommandClick()ForI=ToForj=ToiPrintString(I,i)NextjNextiEndSub程序行后~问问命令按问~在问示的容是,运窗体内"ABBCCCCCBCCDBC问问命令按问~事件问程如下,CommandPrivateSubCommandClick()s=Do  s=(s)*(s),LoopUntils=PrintsEndSubABCD问问下面程序"I=n=,DowhileI I=(I)*(I) n=nLoopPrintn运行后的问果问"ABCD问问下面程序"ForM=to ForN=toM NextNNextM运内数行问循问问次是"ABCD问问下面程序"ForI=to ,ifI=Thena= ifI<=Thena= ifI<=Thena= PrintaNextIPrintI运行问问出的问果是"ABCD问问在上一命令按问~问如下事件问程,窗体画个写"PrivateSubCommandClick()ForI=tox=Forj=to x= fork=to  x=x NextkNextjNextIPrintxEndSub程序行后~问问命令按问~问出问果是运"ABCD问问下面的程序代问中~循问被问行的次是体数"n=Don=n,LoopWhileN"ABC无限D问问在上文本窗体画两个框和、一命令按问个~问如下事件问程写"TextTextCommandPrivateSubCommandClick()x=,DoWhilex x=(x)*(x) n=nLoopText=str(n)Text=str(x)EndSub问问命令按问~文本中问示的问分问是两个框"、A、B、C、D问问在上一命令按问~问代问,窗体画个写"PrivateSubCommandClick()Dimm()asIntegerFork=tom(k)=kNextkx=Printm(m(x))EndSub程序行后~问问命令按问~问出问果是运"ABCD问问以下问法正确的是问句中的问问表式可以是任何形式的表式达达ASelectCase问句中的问问表式只能是问表式或字符串表式达数达达BSelectCase在问行问句问~所有子句均按出问的次序被问序问行CSelectCaseCase如下问句中的表式是问问的,达D"SelectCaseCaseSelectCasexCaseto……EndSelect"问问下面程序段求中的大~两个数数不正确的是,A"Max=iif(xy,x,y)",B"ifxythenmax=xelsemax=yendif"C"max=x,ify=xthenmax=y",D"ify=xthenmax=ymax=x"问问以下正确的问是构For……NextA"Forx=toStep……Nextx"B"Forx=toStep……Nextx"C"Forx=tore:……NextxifI=thenGotore"D"Forx=tostep……Nexty"问问下列循问能正确问束循问的是A"I=DoI=I,LoopUntilI"B"I=DoI=ILoopUntilI="C"I=DoI=I,条真件问~问束条真件问~问行循问LoopUntilI"(loopuntilloopwhile)D"I=DoI=ILoopUntilI="问问不能分问正问示确、、、问的程序段是!!!!A"ForI=ton=Forj=toIn=n*jNextjprintnNextI"B"ForI=toForj=toIn=n=n*jNextjprintnnextI"C"n=forj=ton=n*jprintnnextj"D"n=j=,dowhilej=n=n*jprintnj=jloop"问问问有如下程序,"PrivateSubFormClick()a=ForI=ToSelectCaseICase a=aCase, a=aEndSelectNextIPrintaEndSub程序行后~问问~问在上问示的容是运窗体窗体内:"ABD问问问有如下程序,"PrivateSubFormClick()a=ForI=ToSelectCaseICase a=a,Caseis a=aEndSelectNextIPrintaEndSub程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问有如下程序,"optionbasePrivateSubFormClick()A=Array(,,,,)IfA()=A()AndA()=A()ThenPrintA()""A()""ElsePrint""A()=""A()EndSub程序行后问问~在上问出的问果是,运窗体窗体"AA()B"""A()"""CA()DA()=问问下面是问问事件中的代问,窗体"PrivateSubFormClick()DimA()AsStringIfA()=A()AndA()=A()ThenPrintA()""A()""ElsePrintA()""A()""EndSub程序行后问问~在上问出的问果是,运窗体窗体"A"A()""A()"""B"A()""A()"""CA()DA()问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,,If""""""""ANDTRUEThenPrint""xy""elseprint""""""""EndSub程序行后问问~在上问出的问果是,运窗体窗体"AFALSE,B"""xy""",C""""""""""DTRUE问问问有如下程序,"PrivateSubFormClick()A=Array(,,),IfA()A()Then  ,IfA()A()ThenPrintA()Else  ,IfA()A()ThenPrintA()  print""ok""EndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCDok问问问有如下程序,"PrivateSubFormClick()dima(),IfA()A()Then  ,IfA()A()ThenPrintA()Else  ,IfA()A()ThenPrintA()EndIfEndSub程序行后问问~在上问出的问果是,运窗体窗体"不能定确A出问BC没有问出D问问问有程序,"PrivateSubFormClick()a=Array(,,)temp=a():a()=a(),Ifa()=Then  问秀Print"""",ElseIfa()=Then  及格Print""""Else  不及格Print""""EndIfEndSub其行问果是,运"没有问出问果A问秀B不及格C及格D问问问有程序,"PrivateSubFormClick()a=Array(,,)temp=a():a()=a(),Ifa()=Then  问秀Print"""",ElseIfa()=Then  及格Print""""Else  不及格Print""""EndIfEndSub其行问果是,运"没有问出问果A不及格B及格C问秀D问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""""""""AndTrueThenPrintEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""""""""orTrueThenPrintEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""""""""AndTrueThenPrint""abc""print""ok""EndSub程序行后问问~在上问出的问果是,运窗体窗体"AabcokBabc出问CDabcok问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""""""""AndTrueThenPrint""abc""print""ok""EndSub程序行后问问~在上问出的问果是,运窗体窗体"AokBCabc出问D问问假定有以下循问问构" 条件DoUntil 循问体 Loop问正的描述是确"如果条件是一问个的常~问一次数体循问也不问行A""""""如果条件是一问个的常~问数体无限次问行循问B""""""如果条件是一不问个的常~问至少问行一次数体循问C""""""不问条件是否问真~至少要问行一次循问体D""""""""""问问假定有以下程序段"ForI=To Forj=ToStep  PrintI*jNextj,i问问句的问行次是数Printi*j"ABCD问问以下程序段的问出问果问"  x=  y=  ,DoUntily  x=x*y  y=y  Loop  Printx"ABCD问问问行下面的程序段后~的问问"x: x= Fori=ToStep  x=xi NextI"ABCD问问程序问出问果是":Fori=To x= Forj=To  x=  Fork=To   x=x  Nextk NextjNextIPrintx"ABCD问问问问下面的程序段,"  Fori=To Forj=Toi Fork=jTo a=a Nextk Nextj  Nexti问行上面的三重循问后~的问问a"ABCD问问在上一文本窗体画个框其属性问~然后问如下事件问程,写"(NameText) PrivateSubFormLoad()  TextText=""""  TextSetFocus  Fori=To   Sum=Sumi  Nexti  TextText=Sum EndSub上述程序的行问果是运"在文本框中问出AText在文本框中问出BText出问C在文本框中问出不定问DText问问"PrivateSubCommandClick() x= ,DoWhilex  x=(x)*(x)  n=n Loop TextText=Str(n) TextText=Str(x)EndSub程序行后~问问命令按问~在文本中问示的问分问问运两个框"和A和B和D问问程序行后~如果问问命令按问~问在上问示的容是运窗体内"PrivateSubCommandClick() ForI=To ForJ=ToI  PrintChr$(I) NextJ Print NextIEndSub"A"BBCCCDDDDEEEEE"B"ABBCCCDDDD"C"BCCDDDEEEE"D"AABBBCCCCDDDDD"问问程序行后运窗体上问示的是",Dima(,)AsInteger Fori=To  Forj=To   a(I,j)=(I)*j   Printa(I,j)  Nextj  Print NextI"A"      "B"      "C"      "D"      "问问下列程序段问行后问出的问果是" n=Fork=nTox=k^NextkPrintx"ABCD问问下列程序段问行后问出的问果是" i=Fork=ToStepi=iNextkPrintI"ABCD问问问行下面的程序段后~的问问"ss=ForI=ToStep s=sNextI"ABCD问问以下程序段的问出问果是"num=,Whilenum= num=num PrintnumWend"A""B""C""D""问问问有以下的循问,"x=Do  x=x  PrintxLoopUntil程序行后~要求问行运次循问~问空。体填",Ax,Bx,Cx=Dc=问问程序行后~问问~问出问果问运窗体"PrivateSubFormClick() Dimk,n,rnAsInteger n= m= k= ,DoWhilek=n  m=m*  k=k Loop PrintmEndSub"ABCD问问以下循问的问行次是数"k=,DoWhilek= k=kLoop"ABCD问问程序行后~问出问果是运" a= ForI=To  Forj=To   ,,IfjModThen    a=a   EndIf   a=a  Nextj NextI Printa"ABCD问问程序行问果是,运"x=xFori=To  Forj=ToI   IfjMod=Then    PrintChr$(i)   Else    PrintChr$(i)   EndIf  Nextj  Print NextI"A"BbCcCDdDd"B"AaBbBCcCc"C"AbAbCAbCd"D"bBcCcdDdD"问问程序行问果是,运"PriveSubCommandClick() Dims:DimflagasBoolean s=:i ,WhileiAndflag  s=s:i=i  IfsMod=Then   flag=False  EndIfWendPrintsEndSub"ABCD问问下面程序的行问果是运": Fori=To Forj=ToI  Fork=jtoI   s=s  Nextk Nextj s=s NextI TextText=Str$(s)"ABCD问问下面程序的行问果是运" Dima(),b()AsInteger k= Fori=To  a(i)=I NextI Fori=To  b(i)=a(i*i) NextI Fori=To  s=sb(i) NextI prints"ABCD问问程序行后~上问示的信息是, 运窗体"Fori=To  Forj=ToI   PrintString(I,i)  Nextj NextI"ABBCCCCCBCCDBC问问下面程序的行问果是运":PrivateSubFormLoad()TextText=""""TextSetFocus,Whilei  s=sI  i=iWendTextText=sEndSub"在文本框中问出AText在文本框中问出BText在文本框中问出CText程序出问D问问程序行后~问问命令按问~上问示的信息是,运窗体"PrivatrSubCommandClick()Dimarr(To)Fori=To arr(i)=i*iINextI  Printarr(Lbound(arr,))arr(Ubound(arr,))EndSub"ABCD问问程序行后~上问示的信息是,运窗体" Dimi,j i=:j=o Do  Do   s=sj   j=j   i=i  ,LoopWhileJ=  s=sI  i=i ,LoopUntili Prints"ABCD问问下列不于属中出口问句的是,VisualBasicAExitForBExitWhileCExitSubDExitDo问问程序行后~问问命令按问~上问示的信息是运窗体":PrivateSubCommandClick() x=Mod OnxGoTo,,,, x=x:x=x:x=x:x=x:x=x:x=x printxEndSub"ABCD问问在中~下列形式的问句不能形成多重循问的是,VisualBasicA"Fori=…Forj=…Fork=………NextNextNext"B"Fori=…Forj=…Fork=………Nextk,j,I"C"Fori=…Forj=…Fork=………NextkNextjNextI"D"Fori=…Forj=…Fork=………NextiNextjNextk"问问程序行后~问问命令按问~上问示的信息是,运窗体"PrivateSubCommandClick()dimarrarr=Array(,,,)i=Forj=To s=arr(j)*is i=i*NextjPrintsEndSub"ABCD问问下列循问中的循问至少问行一次的是体AFor…NextBWhile…WendCDoWhile…LoopDDo…LoopUntil问问以下程序段中循问问行的次是,体数"k=Dok=k,LoopWhilek="ABCD问问下面程序的行问果是运"SubMysub(b())Fori=To b(i)=*INextEndSubPrivateSubFormClick()Dima(To)a()=:a()=:a()=:a()=Mysuba()Fori=To Printa(i)NextIEndSub"A""B""C""D""问问程序行后~问问命令按问~上问示的信息是,运窗体"PrivateSubCommandClick()s=Do  s=(s)*(s)  s=s,LoopWhilesPrintsEndSub"ABCD问问程序行后~问问命令按问~文本中问示的信息分问是运两个框":PrivateSubCommandClick()x=,DoUntilx=  x=(x)*(x)  n=nLoopTextText=str(x)TextText=Str(n)EndSub"和A和B和C和D问问程序行后~问问命令按问~上问示的信息是运窗体"PrivateSubCommandClick()Dima(),b()t=Fori=To  a(i)=IMod  b(i)=i*ii^tNextIPrinta(t)b(t)EndSub"ABCD问问程序行后~上问示的信息是运窗体":  Fori=To  Forj=ToI   s=s   i=i  Nextj  NextI  Prints"ABCD问问下面程序的行问果是,运"PrivateSubCommandClick()  s=  Do   s=(s)*(s)  ,LoopUntils=  PrintsEndSub"ABCD问问程序行后~问问命令按问~上问示的信息是,运窗体"PrintTab()Fori=To Forj=ToI  PrintChr$(i) Nextj Print PrintTab(i)NextI"A"BBCBCDBCDE"B"AABABCABCD"C"ABBCCCDDDD"D"BCCDDDEEEE"问问程序行后~问问命令按问~上问示的信息是,运窗体"Fori=To x= Forj=To  x=ij  Fork=To   x=x  Nextk NextjNextIprintx"ABCD问问程序行后~上问示的信息是运窗体" Dima(),p() k= Fori=To  a(i)=I NextI Fori=To  p(i)=a(i*i )NextI Fori=To  k=kp(i)* NextI Printk"ABCD问问下面程序的行问果是运":Dima(,)Fori=To  Forj=To   a(I,j)=(i)*j  NextjNextIFori=To  Forj=To   Printa(j,i)  Nextj  printNextI"A""B""C""D""问问程序行后~上问示的信息是,运窗体"Dimx,iRemx=xFori=To x=xNextIx=xPrintx"ABCD问问程序行后~文本中问示的信息是,运框"s=:a=Doa=a:s=sa,IfsThenExitDo,LoopUntilaTextText=Str(as)"ABCD问问程序行后~问问~问在上问示的运窗体窗体的是,个数""*"PrivateSubFormClick()Fori=To Forj=iToStep  Print""*"" NextjNextIEndSub"ABCD问问程序行后~次问问命令按问后~在上问示的问果是,运两窗体"PrivateSubCommandClick()StaticsAsIntegerFori=ToStep  s=sNextIPrintsEndSub"ABCD问问程序行后~问问命令按问~文本中问示的信息是运框":DimsAsIntegerDimFlagAsBooleanFlag=Tures=,WhilesAndFlag s=s IfsMod=ThenFlag=FalseWendTextText=Str(s)"ABCD问问程序行后~问问命令按问~上问示的信息是运窗体"PrivateSubFormClick()s=Fori=To  IfIMod=Then   ExitFor  EndIf  I=iNextIPrintIEndSub"ABCD问问程序行后~上问示的信息是运窗体"Dimarr(,),arr(,)Fori=To  Forj=To  arr(I,j)=I  arr(ji)=arr(I,j)  NextjNextIFori=To  Printarr(,i)NextI"ABCD问问程序行后~问问命令按问~上问示的信息是运窗体"Dimarr()PrivateSubCommandClick()ReDimarr()Fori=To  arr(i)=INextIReDimarr()ForEachxInarr  s=xsNextxPrintsEndSub"ABCD问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""x""""y""ThenPrint""xprint""ok!""EndSub程序行后问问~在上问出的问果是,运窗体窗体"Ax,BxyCok!,Dxyok!问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""x""""y""ThenPrint""x<y””EndSub程序行后问问~在上问出的问果是,运窗体窗体"AxBy不定确C,Dxy问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),Ifnot""x""""y""ThenPrint""x<y””print""ok!""EndSub程序行后问问~在上问出的问果是,运窗体窗体",Axyok!Bxy,CxyDok!问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),IfNot""x""""y""OrTrueThenPrint""x<y””print""ok!""EndSub程序行后问问~在上问出的问果是,运窗体窗体"Aok!,Bxy出问C,Dxyok!问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,IfNot""x""""y""AndTrueThenPrint""xy""print""ok!""EndSub程序行后问问~在上问出的问果是,运窗体窗体",AxyBy,Cxyok!Dok!问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,IfxyThenPrint""xy""EndSub程序行后问问~在上问出的问果是,运窗体窗体"AxBy,Cxy没数有问出据D问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,If""""""""orTrueThenPrint""xy""elseprint""x""<""y""EndSub程序行后问问~在上问出的问果是,运窗体窗体"Afalse,B"""x""""y""",C"""xy""",Dxy问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,,If""""""""AndTrueThenPrint""xy""elseprint""x""""y""EndSub程序行后问问~在上问出的问果是,运窗体窗体"出问A,B"""x""""y""",C"""xy"""Dtrue问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,If""x""""y""AndTrueThenPrint""xy""elseprint""x""<""y""EndSub程序行后问问~在上问出的问果是,运窗体窗体",A"""xy"""Btrue,C"""x""""y""",Dxy问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,If""x""""y""AndTrueThenPrint""xy""elseprint""x""<""y""EndSub程序行后问问~在上问出的问果是,运窗体窗体",A"""xy"""Btrue,C"""x""""y"""出问D问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),,If""x""""y""AndTrueThenPrint""xy""elseprint""x""<""y""endifEndSub程序行后问问~在上问出的问果是,运窗体窗体",A"""xy""",B"""x""""y""",Cxy出问D问问下面是问问事件中的代问,窗体"PrivateSubFormClick(),If""x""""y""AndTrueThen,Print""xy"",elseprint""x""""y""endifEndSub程序行后问问~在上问出的问果是,运窗体窗体"出问A,B"""xy""",C"""x""""y""",Dxy问问问有如下程序,"PrivateSubFormClick() x=:y= IfxMod=Then  A=Int(x)  IfA=Then   y=y  EndIf EndIf PrintyEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问问有如下程序,"PrivateSubFormClick() x=:y= IfxMod=Thenb=Int((x))  ,Ifb=Then   y=y  EndIf EndIf PrintyEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问问有如下程序,"PrivateSubFormClick() x=:y= IfxMod=Then    ,c=xIfc=Then   y=y  EndIf EndIf PrintyEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问问有如下程序,"PrivateSubFormClick()A=Array(,,),IfA()A()Then  ,IfA()A()ThenPrintA()Else  ,IfA()A()ThenPrintA()ElsePrintA()EndIfEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问问有如下程序,"PrivateSubFormClick()A=Array(,,),IfA()A()Then  ,IfA()A()ThenPrintA()Else  ,IfA()A()ThenPrintA()ElsePrintA()EndIfEndSub程序行后问问~在上问出的问果是,运窗体窗体"没有问出问果ABCD问问问有如下程序,"PrivateSubFormClick()A=Array(,,),IfA()A()Then  ,IfA()A()ThenPrintA()Else  ,IfA()A()ThenPrintA()ElsePrintA()EndIfEndSub程序行后问问~在上问出的问果是,运窗体窗体"ABCD问问问有如下程序,"PrivateSubFormClick()a=ForI=ToSelectCaseICasei a=aCasei a=aEndSelectNextIPrintaEndSub程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问有如下程序,"PrivateSubFormClick()a=ForI=ToSelectCaseICase, a=aCase, a=aEndSelectNextIPrintaEndSub程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=ForI=ToSelectCaseiCase a=aCase a=aEndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=int(),,b=TruebForI=To SelectCaseb Case<  a=a Case<  a=a EndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=int(),,b=TruebForI=ToSelectCaseb,Caseis<true a=aCaseelse a=aEndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=ForI=ToSelectCaseiCase a=aCase a=aEndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=int()ForI=ToSelectCaseICase a=aCase a=aEndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问问问问事件中代问如下,窗体"a=int()ForI=ToSelectCaseICase a=aCase a=aEndSelectNextIPrinta程序行后~问问~问在上问示的容是运窗体窗体内:"ABCD问问有如下问句":,PRINTIIF(""BDA""""ABCDE"",""OK"",""ERROR"")运行后的问果是,"AabcdeBbdaCokDerror问问有如下问句":,PRINTIIF("""""""",""OK"",""ERROR"")运行后的问果是,"ABCokDerror问问有如下问句":PRINTIIF(true,iif(false,,),""ERROR"")运行后的问果是,"问法问ABerrorCD问问有如下问句":PRINTIIF(false,iif(false,,),""ERROR"")运行后的问果是,"AfalseBCDerror问问有如下问句":,printIIF(false,iif(false,,),iif(,,))运行后的问果是,"AfalseBtrueCD问问有如下问句":PrintIIf(Not,Iif(False,,),""ERROR"")运行后的问果是,"不定确ABERRORCD问问有如下问句":PrintIIf(,IIf(True,,),""ERROR"")运行后的问果是,"AerrorBCD问问有如下问句":,,PrintIif(And""a""""b"",Iif(True,,),""ERROR"")运行后的问果是,"ABtrueCDerror问问有如下问句":,PrintIIf(Not,IIf(True,,),""okok"")运行后的问果是,"出问ABCokokD问问问有如下问句,",,PrintIif(Or""a""""b"",Iif(True,,),""ERROR"")运行后的问果是,"ABerrorC"""a"""

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/239

[电脑基础知识]VB模拟题库

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利