资源描述：
《VB FOR NEXT 试题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1.运行下列程序段后，输出的“*”个数是ForI=1to2Forj=0toi-1Print“*”NextjNexti2.执行下列程序段后，输出的结果是（）Fork1=0to4Y=20Fork2=0to3Y=10Fork3=0to2Y=y+10Nextk3Nextk2Nextk1Printy3.在程序的空白处填写适当的语句，使程序完成相应的计算。程序的功能是：计算1+2+3…….+10Subform_click()S=0:k=1S=s+kNextiPrintsEndsub4.如下程序运行后输出的结
2、果是（）X=0Fork=3to5X=x+2S=s+kNextkPrints5.下列程序运行结果是（）S=0：T=0：U=0FORx=1to3Fory=1toxForz=yto3S=s+1NextzT=t+1NextyU=u+1NextuPrints;t;uA.3614B.1463C.1436D.16435.有如下程序K=0Forj=1to2ForI=1to3K=i+1NextiFori=1to7K=k+1NextiNextjPrintk6.有如下程序A=”12345867”D=left(a,1)
3、ForI=2tolen(a)Z=mid(a,I,1)Ifz>dthend=zNextiPrintd7.n=0Fori=1to3Forj=5to1step-1N=n+1Nextj;iPrintn;j;i8下列程序段的执行结果为（）X=6Fork=1to10step-2X=x+kNextkPrintk;x9.Form=1to4A=0Forj=1to5A=1Fork=1to6A=a+3NextkNextjNextmPrinta运行结果为：10.在窗体上画上一个命令按钮command1，然后编写如下事件
4、Privatesubcommand1_click()X=0N=inputbox(“”)ForI=1tonForj=1toiX=x+1NextjNextiPrintxEndsub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容为：11.执行下面的程序后，s的值为：S=5ForI=2.6to4.9step0.6S=s+1Nexti12.下面的程序是冒泡法将数组a中的10个整数按升序排序，并将程序补充完整Privatesubcommand1_click()DimaDimtmpasintege
5、rA=array(“678”,”45”,”324”,”528”,”439”,”387”,”87”,”875”,”273”,”823”)ForI=Forj=Ifa(i)a(j)thenTmp=a(i)A(i)=a(j)A(j)=tmpEndifNextjNextiForI=0to9Printa(i)NextiEndsub13.以下程序的目的将多维数组a(1tom,1ton)中的元素转移到一个名为b(1ton*m)的一维数组中，完成改程序Optionbase1Privatesubcommand1_c
6、lick(indexasinteger)Dima(1to20,1to10)Dimb()RedimForI=Ito20Forj=jto10A(i,j)=i*jNextjNextiTrana,20,10,bEndsubSubtran(a(),m,n,b())DimIasintegerForI=1tomForj=1ton=a(I,j)NextjNextjEndsub14.下列程序是将数组A的元素倒序交换，即第一个变为最后一个，第2个变为倒数第2个，设数组中有10个元素，完成下列程序Privatesub
7、backward（a（））DimIasinteger,tmpasintegerForIto5Tmp=a(i)NextIEndsub15.下列程序运行的结果是：Dimtassingle,sassingleDimnasintegerS=0:t=1Forn=1to5T=t*nS=s+1NextnDebug.prints16.在一个窗体上画一个名称为command1的命令按钮，然后编写如下程序Privatesubcommand1_clickDimm(10)asintegerFork=1to10M(k)=
8、12-kNextkX=8Printm(2+m(x))运行程序，单击命令按钮，在窗体上显示的内容为：17.下面程序输出结果为（）Privatesubcommand1_click()Ch=”ABCDEF”ProcchPrintchEndsubPrivatesubproc(chasstring)S=””Fork=len(ch)to1step-1S=s&mid(ch,ki,1)NextkCh=sEndsubA.ABCDEFB.FEDCBAC.AD.F18.设窗体上有一个文本框text1和一个命令按钮co
