程序题70道

程序题（01）Dimxx=Int(Rnd)+5SelectCasexCase5Print优秀Case4Print良好Case3Print通过CaseElsePrint不通过EndSelect该程序段显示的运行结果是_________。程序题（02）给定程序段：DimaAsInteger,bAsInteger,cAsIntegera=1:b=2:c=3Ifa=c-bThenPrint#####ElsePrint*****EndIf以上程序_________。程序题（03）PrivateSubForm_Click()A=3IfA=3ThenPrint3;EndIfIfA=4ThenPrint4;EndIfIfA=5ThenPrint5;EndIfIfA=6ThenPrint6;EndIfPrintEndSub程序运行结果为________.程序题（04）有如下程序，其输出结果为________。PrivateSubcommand1_click()x=Sqr(2)\2+Sgn(2)\2+Rnd(2)\2y=Sqr(3)\3+Sgn(3)\3+Rnd(3)\3IfxyThenPrintxyElseIfx=yThenPrintx=yElsePrintxyEndIfEndSub程序题（05）输入x和a的值，按分段函数：当-axa时，y=a-x当x=a或x=-a时，y=0当xa或x-a时，y=x-1，计算y的值，把下列程序补充完整PrivateSubCommand1_Click()Dimx!,a%,y#x=InputBox(x=)a=InputBox(a=)If___________Theny=0ElseIfx-aAndxaTheny=a-xElsey=x-1EndIfEndIfPrinty=;yEndSub程序题（06）下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox(x=)y=InputBox(y=)z=InputBox(z=)If___________Thent=x:x=y:y=tIfxzThent=x:x=z:z=tIfyzThent=y:y=z:z=tPrintx,y,zEndSub程序题（07）PrivateSubForm_click()A=0Forj=1To10A=A+j\2+jMod3NextjPrintAEndSub运行后，输出的结果是_______。程序题（08）指出下面关于多分支程序段中的错误aa=10SelectCaseaaCaseIs10PrintaaCaseIs10Printaa+1程序题（09）运行下面程序后输出的结果是_________PrivateSubForm_click()aa=5:bb=5aa=aa+1Ifaa=bbThenPrintaa;bbElsePrint再见EndIfEndSub程序题（10）下面事件过程的功能是打印图案*************************在横线上填上适当内容。PrivateSubform_Click()Dimi%,j%Fori=1To5PrintSpc(6-i);Forj=1to_____Print*;NextjPrintNextiEndSub程序题（11）PrivateSubForm_click()Dims%,i%s=0i=100DoWhilei=120If(i\3)*3=iThens=s+1i=i+1EndIfi=i+1LoopPrintsEndSub运行后，输出的结果是_______程序题（12）PrivateSubform_click()s=0i=1DoWhilei=100IfiMod100Thens=s+ii=i+1Elsei=i+1EndIfLoopPrintsEndSub运行后，输出的结果是_______程序题（13）下面事件过程的功能是打印图案@@@@@@@@@根据所给选择答案，把程序补充完整PrivateSubform_click()a=1Dowhile______Fori=1ToaPrint@;Nextia=a+2PrintLoopPrintEndSub程序题（14）建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整PrivateSubForm_click()Dima%(1to10,1to10),i%,j%RandomizeFori=1To10Forj=1To10a(i,j)=_________PrintTab(j*5);a(i,j);NextjPrintNextiEndSub程序题（15）运行下面程序后输出的结果是PrivateSubForm_click()K=1ForJ=1To3K=K*JNextPrintK+JEndSub程序题（16）建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整PrivateSubForm_click()Dima%(1to10,1to10),i%,j%RandomizeFori=1To10Forj____a(i,j)=Int(Rnd*9)+1PrintTab(j*5);a(i,j);NextjPrintNextiEndSub程序题（17）下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，并求a中的最小值及最小值在数组a中的位置，根据选择答案把程序补充完整PrivateSubform_Click()Dima(10)AsInteger,i%,min%,index%RandomizeFori=1To10a(i)=Int(91*Rnd+10)Printa(i);NextiPrintmin=a(1):index=1Fori=2To10If____Thenmin=a(i):index=iNextiPrint数组a中的最小值为：;minPrint最小值所在位置为：;indexEndSub程序题（18）有如下程序：OptionBase1PrivateSubform_click()DimA(1To9)AsSingleForK=1To9A(K)=K^2PrintA(K);NextKEndSub运行结果为________程序题（19）下面程序的功能是：根据给定数组，用选择排序法按从小到大递增的顺序排列并显示排序结果PrivateSubForm_click()Dima(),iMin%,i%,j%,t%a=Array(8,6,9,3,14,7,23)n=UBound(a)Fori=0Ton-1iMin=iForj=i+1TonIf___________TheniMin=jNextjt=a(i)a(i)=a(iMin)a(iMin)=tNextiFori=LBound(a)ToUBound(a)Printa(i);NextiEndSub程序题（20）在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=ABCDForn=1To4Print______NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在______处就填入内容将程序补充完整。程序题（21）下列VisualBasic程序段运行后，变量x的值为______。x=3y=77Dox=x+2LoopUntilxSqr(y)程序题（22）．下列VisualBasic程序段运行后，变量s、t的值为______。s=0:t=1Fork=2To4s=s+kt=t*kNextk程序题（23）下列VisualBasic程序段运行后，变量n的值为______。n=0Forx=3To11Step2n=n+1Nextx程序题（24）语句段s=0fori=1to5s=s+inexti执行后，s的值为________。程序题（25）执行下列程序段后，输出结果为x=1Fori=0To20Step5x=x+iMod5NextiPrintx程序题（26）．下列程序执行后，整型变量n的值为n=0fori=1to100ifimod4=0thenn=n+1nexti程序题（27）执行下面程序段后，X的值为X=5Fori=1To20Step2x=x+i\5Nexti程序题（28）.有如下程序：PrivateSubCommand1_Click()Forj=1To4a=a+1NextjPrinta+jEndSub程序输出后，输出的结果是__________。程序题（29）x=5:y=17IfxyThenm=x:x=y:y=mEndIfPrintx程序的输出结果是__________。程序题（30）x=70SelectCasexCase0To50:y=0.8*xCase50To100:y=0.7*xCaseElse:Print输入的数据出界！EndSelectPrintx;y程序的输出结果是___________。程序题（31）如下程序：DimaAsInteger,bAsInteger,cAsIntegerPrivateSubForm_Activate()a=5:b=3:c=3CallSub1Printc;CallSub2PrintcEndSubSubSub1()c=a*bEndSubSubSub2()c=a+bEndSub程序运行后，输出结果为________。程序题（32）下列程序执行后M,N,D的值分别为：PrivateSubForm_click()t=365M=tMod60N=Int(t/60)D=t\60PrintM;N;DEndSub程序题（33）以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值1。请填空将程序补充完整Dimx()AsIntegerPrivateSubCommand1_Click()ReDim___________ForI=1To20x(I)=1Printx(I);NextEndSub程序题（34）输入一串字符，统计各字母出现的次数，请填空将程序补充完整PrivateSubCommand1_Click()Dima(1To26)AsInteger,cAsString*1le=Len(Text1)'求字符串的长度ForI=1Tolec=UCase(______________________)'取一个字符，转换成大写Ifc=AAndc=ZThenj=Asc(c)-65+1'将A~Z大写字母转换成1~26的下标a(j)=a(j)+1'对应数组元素加1EndIfNextIForj=1To26'输出字母及其出现的次数Ifa(j)0ThenPicture1.Print;Chr$(j+64);=;a(j);NextjEndSub程序题（35）编写一个过程,求一个数的正整数次幂。请填空使程序完整PrivateFunctionff1&(ByValx%,ByValy%)Dimt&,i%t=1Fori=1Toyt=t*xNext_________________EndFunctionPrivateSubForm_Click()Dima%,b%a=Val(inputbox(a=?))b=Val(inputbox(b=?))Printff1(a,b)EndSub程序题（36）下面程序是输出如下矩阵，请填空123234345PrivateSubForm_click()Fori=1To3Forj=1To3Print_______________;NextPrintNextEndSub程序题（37）下面程序是求0-20之间的奇数和，请填空PrivateSubForm_click()S=0A=1_______________S=S+AA=A+2LoopPrintS=+Str(S)EndSub程序题（38）下列程序的功能是通过字符串变量操作竖向显示“程序设计”，请填空Pr