选择题1、无条件转移GoTo语句后面是(A)A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达式取值为（A)A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为(A)时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为(A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的ExitDo语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时,条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时,条件为（A)终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制(D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时，步长为（A)A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A)A、负数B、负整数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A)A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后,s的值为（C）PrivateSubForm_Click(）StaticsAsIntegers=5Fori=1.4To2。1Step0。6s=s+1NextiPrintsEndSubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）PrivateSubCommand1_Click(）Form=1To10x=Int(Rnd*101+100)If（）ThenPrintx;EndIfNextmEndSubA、xmod5=0B、xmod5==0C、x/5=0D、x\5=024、设有如下程序：OptionBase1PrivateSubForm_Click（）Dima(10)，P(3）AsIntegerk=5Fori=1To10a（i)=iNextiFori=1To3P(i）=a(i*i）NextiFori=1To3k=k+P(i)*2NextiPrintkEndSub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1,然后编写如下事件过程：PrivateSubCommand1__Click()X=0N=val（inputbox（“n=?”))Fori=1tonForj=1toiX=x+1NextjNextiPrintxEndsub程序运行后、单击命令按钮，输入3，在窗体上显示的内容是(D）A、9B、44C、5D、626、以下能够正确计算n!的程序是(C)A、privatesubcommand1__click(）N=5：x=1DoX=x*1I=i+1Loopwhilei
nPrintxEndsub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程:Privatesubcommand1_click（）Fori=1to15X=2*i-1Ifxmod3=0thens=s+1NextiLabel1、caption=sEndsub程序运行后，单击命令按钮，标签中显示的内容是（B)A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程:Privatesubcommand1_click（）Fori=1to4Forj=0toiPrintchr$（65+i)NextiPrintEndsub程序运行后，单击命令按钮,窗体中显示的内容是（A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Privatesubcommand1_click（)Dimxasinteger,nasintegerX=1：n=0Dowhilex〈20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str（n）Endsub程序运行后，单击命令按钮,在两个文本框中显示的值分别是(B）A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：PrivateSubCommand1_Click(）Dima(5），b（5）Forj=1to4A(j)=3*jB（j)=a（j）*3NextjText1、text=b(j\2)EndSub程序运行后,单击命令按钮，在文本框中显示(B）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）Form=1To3Forn=0Tom-1NextnNextmA、6B、3C、0D、931、定义语句DimA(-3to3)asInteger，定义数组的元素个数是（D)A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5ForI=1to10Step2X=X+I\5NextIA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D）ForI=atobPrintINextIA、0B、1C、2D、334、下列关于dowhile…loop和do…loopuntil循环执行循环体次数的描述正确的是（D)A、dowhile…loop循环和do…loopuntil循环至少都执行一次B、dowhile…loop循环和do…loopuntil循环可能都不执行C、dowhile…loop循环至少执行一次，do…loopuntil循环可能不执行D、dowhile…loop循环可能不执行，do…loopuntil循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序：PrivateSubCommand1_Click()Fori=1To4a=1Forj=1To3a=2Fork=1To2a=a+6NextkNextjNextiPrintaEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是（A)A、14B、15C、16D、1736、设有如下程序：PrivateSubForm_Click（）a=1Fori=1To3SelectCaseiCase1，3a=a+1Case2,4a=a+2EndSelectNextiPrintaEndSub程序运行后，单击窗体，则在窗体上显示的内容是(B）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序：subss(b（）asInteger）Fori=1To4b（i）=2*iNextiEndSubPrivateSubCommand1_Click（)Dima(1To4)AsIntegera(1）=5：a（2)=6a(3）=7:a(4）=8ssa（）Fori=1To4Printa(i）NextiEndSub运行上面的程序，单击命令按钮，则在窗体上显示的内容是(B）A、5678B、2468C、1234D、576838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Functionfun（xAsInteger)Staticzy=y+1：z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click（)DimxAsIntegerx=1Fori=1To2Printfun（x)NextiEndSub程序运行后，如果单击命令按钮，窗体中显示的内容是（B）A、33B、34C、35D、3639、若I、n均为整型变量,下列程序段的输出结果为(C)PrivateSubForm_Click（)n=0Fori=1To10IfiMod2=1Thenn=n+1NextiPrintnEndSubA、0B、4C、5D、340、在窗体中添加一个文本框(其中Name属性为Text1），然后编写如下代码:PrivateSubForm_click（)Text1、Text="”Text1、SetFocusFori=1To10Sum=Sum+iNextiText1、Text=SumEndSub上述程序运行后，单击窗体，则运行的结果（A）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码:PrivateSubCommand1_Click(）x=0DoUntilx=-1a=InputBox（”请输入A的值")a=Val（a）b=InputBox（"请输入B的值"）b=Val(b）x=InputBox("请输入X的值"）x=Val（x)a=a+b+xLoopPrintaEndSub程序运行后,单击命令按钮,依次在输入对话框中输入12〈CR〉345—1〈CR>，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：OptionBase1PrivateSubForm_Click()Dima（10）,P(3）AsIntegerk=5Fori=1To10a（i)=iNextiFori=1To3P(i）=a（i*i）NextiFori=1To3k=k+P（i)*2NextiPrintkEndSub程序运行后，单击窗体，则在窗体上显示的是（A)A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：FunctionF（aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click（）DimaAsIntegerDimbAsIntegera=2Fori=1To3b=F(a）PrintbNextiEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是（A）A、456B、123C、0123D、23444、在窗体上画一个命令按钮，名称为Command1.然后编写如下程序：PrivateSubCommand1_Click()Fora=1To4 Forb=0Toa PrintChr(65+a） Nextb PrintNextaEndSub程序运行后，如果单击命令按钮,则在窗体上显示的内容是(B）A、ABBCCCDDDDB、BBCCCDDDDEEEEEC、BCCDDDEEEED、BCDE45、循环是一组重复执行的指令，重复次数由（B）决定A、int（终值-初值）+1B、int（（终值—初值)/步长)+1C、int(（终值—初值）/步长）D、（终值-初值）/步长46、假定有以下程序段：Fori=1To3Forj=5To1Step-1Printi*jNextj，i则语句Printi*j的执行次数是（A)A、15B、16C、17D、1847、以下程序段的输出结果是（C）num=0Whilenum〈=2num=num+1PrintnumWendA、135B、234C、123D、01248、、在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码:PrivateSubCommand1_Click（)Dimn(）AsIntegerDima,bAsIntegera=InputBox（”Enterthefirstnumber”)b=InputBox（”Enterthesecondnumber"）ReDimn(aTob)Fork=LBound（n,1）ToUBound（n，1)n(k）=kPrintn(k)NextkEndSub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为(D）A、01B、13C、12D、2349、在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮(其Name属性为Command1),然后编写如下事件过程：PrivateSubCommand1_Click(）x=0DoWhilex<10x=(x—2）＊(x+3）n=n+1LoopText1、Text=Str(n)Text2、Text=Str（x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（B)A、1和0B、2和24C、3和50D、4和6850、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程：PrivateSubCommand1_Click（）StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后,窗体上显示的是（B）A、42B、1218C、1230D、4651、设有如下程序段：x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是（B)A、26B、27C、38D、5752、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click（）Dimaa=Array(1，2，3,4，5）Fori=1ToUBound（a）a(i)=a(i）+i-1NextPrinta(3）EndSub程序运行后,单击命令按钮，则在窗体上显示的内容是(B)A、4B、5C、6D、753、阅读程序OptionBase1PrivateSubForm_Click(）Dimarr,SumSum=0arr=Array(1，3，5,7，9,11，13，15，17,19）Fori=1To10Ifarr(i）/3=arr（i）\3ThenSum=Sum+arr（i)EndIfNextiPrintSumEndSub程序运行后,单击窗体，输入结果为（C)A、13B、14C、27D、1554、执行以下程序段a＄="abbacddcba”Fori=6To2Step-2X=Mid(a,i，i)Y=Left(a,i)z=Right（a,i)z=UCase（X&Y&z)NextiPrintz输出结果为(B)A、ABAB、BBABBAC、ABBABAD、AABAAB55、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click(）DimaAsVarianta=Array(1，2，3，4，5）Sum=0Fori=1To5Sum=sum+a（i）Nextix=Sum/5Fori=1To5Ifa（i）>xThenPrinta(i)；NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是（D)A、12B、123C、345D、4556、以下程序段的输出结果是（A）num=0Whilenum〈=5num=num+1WendPrintnumA、6B、2C、5D、157、PrivateSubForm_Click(）DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体,输出结果是(A）A、814B、563C、281D、243558、有如下程序:PrivateSubForm_Click（)DimiAsInteger，sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为（A)A、12B、30C、24D、1859、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）Dimarray1(10,10)AsIntegerDimiAsInteger，jAsIntegerFori=1To3Forj=2To4array1(i，j)=i+jNextjNextiText1。Text=array1(2,3）+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（A）A、12B、3C、14D、1560、在窗体上画一个命令按钮,其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima1（4，4)，a2（4，4）Fori=1To4Forj=1To4a1（i,j)=i+ja2(i，j）=a1（i，j)+i+jNextjNextiPrinta1(3,3）;a2（3，3)EndSub程序运行后，单击命令按钮，在窗体上输出的是（D）A、66B、105C、721D、61261、有如下程序：OptionBase1PrivateSubForm_Click()Dimarr，SumSum=0arr=Array（1，3,5,7,9，11,13，15,17,19）Fori=1To10Ifarr(i）/3=arr（i）\3ThenSum=Sum+arr（i)EndIfNextiPrintSumEndSub程序运行后,单击窗体，输出结果为(C)A、25B、26C、27D、2862、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（)Dima（5)AsStringFori=1To5a（i）=Chr（Asc（"A”)+（i—1））NextiForEachbInaPrintb；NextEndSub程序运行后，单击命令按钮,输出结果是（A)A、ABCDEB、12345C、abcdeD、出错信息63、设有以下函数过程：Functionfun（mAsInteger）AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10）调用此函数，则s的值为（A）A、30B、26C、27D、2864、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写)，单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommand1_Click（)DimstrAsString,sAsString,cAsStringstr=UCase(Text1）s=””c="Z”Whilec〉=”A”IfInStr(str,c）=0Thens=CEndIfc=Chr$(Asc（c)-1）WendIfs〈〉”"ThenText1=sEndIfEndSubA、1B、sC、s＆cD、065、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n—r）！.窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中,请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/C/fun(r)EndSubFunctionfun(nAsInteger）aslongDimtAsLongt=1Fork=1Tont=t*kNextfun=tEndFunctionA、fun(n）B、fun（m）C、fun(n—r)D、fun（r—n）66、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。PrivateSubCommand1_Click（)DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1（0）max=Text1(0）min=Text1（0）Fork=__A___To6Ifmax〈Text1(k）Thenmax=Text1（k)EndIfIfmin〉Text1(k)Thenmin=Text1(k）EndIfsum=sum+Text1(k）NextkText2=(sum-max—min)/5EndSubA、0B、1C、—1D、267、在列表框List1中已经有若干人的简单信息,运行时在Text1文本框输入一个姓或姓名，单击“查找”按钮,则在列表框中进行查找，若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click（)DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len（____A______)k=0Whilek10C、CaseIs〉10andIs〈50D、Case3,5，Is〉1075、在窗体中添加一个命令按钮Command1，然后编写如下事件过程:PrivateSubCommand1_Click（)C=123C1=Trim（str(C））Fori=1to4Print____________NextEndsub程序运行后，单击命令按钮,下划线上填（B）时在窗体上显示的值是1121231234A、right（c1，i）B、left(c1，i）C、mid(c1，I，1）D、mid（c1,i）76、在窗体中添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程：PrivateSubCommand1_Click（）N=val（text1.text）Fori=2tonForj=2tosqr（i）IfImodj=0thenexitforNextjNextiEndsub该事件过程的功能是（C）A、输出n以内的奇数B、输出n以内的偶数C、输出n以内的素数D、输出n以内的整数77、
浙公网安备 33021202002483