VB FOR NEXT 试题.doc

1.运行下列程序段后，输出的“*”个数是For I = 1 to 2For j=0 to i-1Print “*”Next jNext i2.执行下列程序段后，输出的结果是（） For k1= 0 to4Y=20For k2=0 to 3Y=10For k3=0 to 2Y=y+10Next k3Next k2Next k1Print y3.在程序的空白处填写适当的语句，使程序完成相应的计算。程序的功能是：计算1+2+3.+10Sub form_click()S=0:k=1 S=s+k Next iPrint sEnd sub4.如下程序运行后输出的结果是（）X=0For k=3 to 5X=x+2S=s+kNext kPrint s5.下列程序运行结果是（）S=0： T=0： U=0FOR x=1 to 3 For y=1 to xFor z=y to 3S=s+1Next zT=t+1Next yU=u+1Next uPrint s;t;uA.3 6 14 B. 14 6 3 C. 14 3 6 D.16 4 35.有如下程序K=0 For j =1 to 2 For I =1 to 3K=i+1Next iFor i =1 to 7K=k+1Next iNext jPrint k6.有如下程序A=”12345867”D=left(a,1)For I = 2 to len(a)Z=mid(a,I,1)If zd then d=zNext iPrint d7. n=0For i= 1 to 3For j= 5 to 1 step -1N=n+1Next j;iPrint n;j;i8下列程序段的执行结果为（）X=6For k=1 to 10 step -2X=x+kNext kPrint k;x9.For m =1 to 4A=0For j=1 to 5A=1For k= 1 to 6A=a+3Next kNext jNext mPrint a 运行结果为： 10.在窗体上画上一个命令按钮command1，然后编写如下事件Private sub command1_click()X=0N=inputbox(“”)For I =1 to nFor j = 1 to iX=x+1Next jNext iPrint x End sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容为：11.执行下面的程序后， s的值为：S=5 For I =2.6 to 4.9 step 0.6S=s+1Next i12.下面的程序是冒泡法将数组a中的10个整数按升序排序，并将程序补充完整Private sub command1_click()Dim aDim tmp as integer A=array(“678”,”45”,”324”,”528”,”439”,”387”,”87”,”875”,”273”,”823”)For I = For j= If a(i) a(j) then Tmp =a (i)A(i)=a(j)A(j)=tmpEnd if Next jNext iFor I =0 to 9Print a(i)Next iEnd sub 13.以下程序的目的将多维数组a(1 to m, 1 to n)中的元素转移到一个名为b(1 to n*m)的一维数组中，完成改程序Option base 1Private sub command1_click(index as integer)Dim a(1 to 20 ,1 to 10)Dim b()Redim For I =I to 20 For j= j to 10 A(i,j)=i*jNext jNext iTran a ,20,10 ,bEnd subSub tran(a(), m,n,b()Dim I as integerFor I =1 to mFor j= 1 to n =a(I,j)Next jNext jEnd sub14.下列程序是将数组A的元素倒序交换，即第一个变为最后一个，第2个变为倒数第2个，设数组中有10 个元素，完成下列程序Private sub backward（a（）Dim I as integer , tmp as integer For I to 5 Tmp =a(i) Next I End sub 15.下列程序运行的结果是：Dim t as single ,s as single Dim n as integer S=0:t=1For n =1 to 5T=t*nS=s+1Next nDebug.print s16. 在一个窗体上画一个名称为command1的命令按钮，然后编写如下程序Private sub command1_clickDim m(10) as integer For k =1 to 10 M(k)=12-kNext kX=8Print m(2+m(x)运行程序，单击命令按钮，在窗体上显示的内容为：17.下面程序输出结果为（）Private sub command1_click()Ch=”ABCDEF”Proc chPrint chEnd sub Private sub proc(ch as string)S=”For k = len(ch) to 1 step -1S=s&mid(ch,ki,1)Next kCh=sEnd subA. ABCDEF B. FEDCBA C. A D. F18.设窗体上有一个文本框text1和一个命令按钮command1，并有以下事件过程Private sub command1_click()Dim s as string ,ch as string S=”For k=1 to len(text1)Ch=mid (text1.text,k,1)S=ch+sNext kText1.text=sEnd sub程序执行后，要文本框中输入“Basic”,然后单击命令按钮，则text1中显示的是（）A. Basic B. cisaB C. BASIC D.CISAB19.某人编写了如下程序，用来求10个整数（整数从键盘输入）中最大值Private sub command1_click()Dim a(10) as integer max as integer For k=1 to 10A(k)=inputbox(“请输入一个整数”)Next kMax=0 For k =1 to 10 If a(k)=max thenMax =a(k)End if Next kPrint maxEnd sub运行程序时发现，当输入10个整数时，可以得到正确的结果，但输入10个负数时结果是错误，程序需要修改，下面的修改中可以得到正确运行结果的是（）A.把ifa(k)max then 改为if a(k)max then B.把max=a(k)改为a(k)=max C.把第二个循环语句 for k=1 to 10 给我for k=2 to 10D.把max=0改为max=a(10)20.某人为计算N！（0n=12）编写下面的函数过程：Private function fun(n as integer )as long Dim p as long P=0For k=n-1 eo 2 step -1P=p*kNext kFun=pEnd function在测试时发现该函数过程产生的结果是错误的，程序需要修改，下面的修改方案中有三种是正确的，错误的方案是：A.把p=0改为p=1B.把for k=n-1 to 2 step -1 改为 for k= 1 to n-1C.把 for k=n-1 to 2 step -1 改为 for k=1 to nD .把 for k=n-1 to 2 step -1 改为 for k=2 to n21.为计算An的值，某人编写了函数power如下：Private function power（a as integer ,n as integer ） as longDim p as long P=a For k=1 to nP=p*aNext kPower =pEnd function调用时发现是错误的，例如print power（5,4）的输出应该是625，但实际输出的是3125，程序需要修改，下面修改方案中有三个是正确的错误的是一个是：A 把for k=1 r o n 改为for k =2 to nB 把p=p*a 改为p=pnC 把 for k =1 to n 改为 for k =1 to n-1D 把p=a 改为p=122.在窗体上画一个命令按钮，其名称为command1，然后编写如下程序：Private sub command1_click()Dim a(10) as integer Dim x as integer For i=1 to 10 A(i)=8+iNext x=2print a(f(x)+x)end subfunction f(x as integer)x=x+3f=xend function程序运行后，单击命令按钮，输出结果为（）A. 12 B. 15 .C. 17 D 1823 假定有以下函数过程Function fun(s as string) as string Dim s1 as string For i= 1 to len(s)S1=lcase(mid(s,I,1)+s1Next iFun=s1End function在窗体上面画一个命令按钮，然后编写如下程序 Private sub command1_click()Dim str1 as string , str2 as string Str1 =inputbox(“请输入一个字符串”)Str2=fun(str1)Print str2End sub程序结束后，单击命名按钮，如果再对对话框中输入字符串“abcdefg”，单击确定按钮在窗体上输出的结果是（）A. ABCDEFG B. abcdefg C. GFEDCBA D. gfedcba24.在窗体上画一个名称为command1的命令按钮，并编写程序Private sub command1_click()Print fun(“ABCDEFG”)End subFunction fun(st as string ) as string Stlen=len(st)Temp=”For k=1 to stlen/2Temp=temp +mid(st,k,1)+mid(st,stlen-k+1,1)Next kFun=tempEnd function程序运行时，单击命令按钮，则窗体上显示的是（）A.ABCDEFG B. AGBFCE C.GFEDCBA D. AGBFCED25.某人设计了如下程序用来计算并输出7！Private sub command1_click()T=0For k= 7 to 2 step -1T=t*kNextPrint tEnd sub 执行程序，发现结果是错误的，下面修改方案中能够得到正确结果的是（）A.把“t=0”改为“t=1”B.把 for k=7 to 2 step -1 改为for k=7 to 1 step -1C. 把 for k=7 to 2 step -1 改为for k=1 to 7 D.把next 改为next k 26.下面程序执行时，在窗体上显示的是Private sub command1_click()Dim a(10)For k=1 to 10 A(K)=11-KNext kPrint a(a(3)a(7)mod950)End subA. 3B. 15 C. 7 D 927.设窗体上有一个文本框text1和一个命令按钮command1，并有以下程序Private sub command1_click()Dim a as string ,ch as stringS=”For k=1 to len(text1)Ch=mid(text1,k,1)S=ch+sNext kText1.text=sEnd sub程序执行时，在文本框中输入Basic，然后单击命令按钮，则text1中显示的结果是A. Basic B. cisaB C. BASIC D CISAB28.在窗体上画一个命令按钮和一个标签，其名称为command1和label1，然后编写以下事件过程Private sub command1_click()Counter=0For I =1 to 4For j=6 to 1 step -2Counter=counter+1Next jNext iLabel1.caption = str(counter)End sub 程序运行后，单击命令按钮，标记中显示的是：A. 11 B. 12 C. 16 D. 2029.private subcommand1_click()A=0For i= 1 to 10A=a+1B=0For j=1 to 10A=a+1B=b+2Next jNext iLabel1.caption =ste(a)Label2.caption = str(b)End sub 程序运行后，单击命令按钮，标签1和标签2中显示的内容分别是：A. 10 和 20 B 20 和110 C 200和110 D 110 和2030.dim x as integer ,I as integerX=0For i=20 t o1 step -2X=x+i5Next iX 的值是（）31.private sub command1_click()Dim total as integerTotal=s(1)+s(2)Print tot