VBFORNEXT试题.docVIP

1.运行下列程序段后，输出的“*”个数是 For I = 1 to 2 For j=0 to i-1 Print “*” Next j Next i 2.执行下列程序段后，输出的结果是（） For k1= 0 to4 Y=20 For k2=0 to 3 Y=10 For k3=0 to 2 Y=y+10 Next k3 Next k2 Next k1 Print y 3.在程序的空白处填写适当的语句，使程序完成相应的计算。程序的功能是：计算1+2+3…….+10 Sub form_click() S=0:k=1 S=s+k Next i Print s End sub 4.如下程序运行后输出的结果是（） X=0 For k=3 to 5 X=x+2 S=s+k Next k Print s 5.下列程序运行结果是（） S=0： T=0： U=0 FOR x=1 to 3 For y=1 to x For z=y to 3 S=s+1 Next z T=t+1 Next y U=u+1 Next u Print s;t;u A.3 6 14 B. 14 6 3 C. 14 3 6 D.16 4 3 5.有如下程序 K=0 For j =1 to 2 For I =1 to 3 K=i+1 Next i For i =1 to 7 K=k+1 Next i Next j Print k 6.有如下程序 A= D=left(a,1) For I = 2 to len(a) Z=mid(a,I,1) If zd then d=z Next i Print d 7. n=0 For i= 1 to 3 For j= 5 to 1 step -1 N=n+1 Next j;i Print n;j;i 8下列程序段的执行结果为（） X=6 For k=1 to 10 step -2 X=x+k Next k Print k;x 9. For m =1 to 4 A=0 For j=1 to 5 A=1 For k= 1 to 6 A=a+3 Next k Next j Next m Print a 运行结果为： 10.在窗体上画上一个命令按钮command1，然后编写如下事件 Private sub command1_click() X=0 N=inputbox(“”) For I =1 to n For j = 1 to i X=x+1 Next j Next i Print x End sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容为： 11.执行下面的程序后， s的值为： S=5 For I =2.6 to 4.9 step 0.6 S=s+1 Next i 12.下面的程序是冒泡法将数组a中的10个整数按升序排序，并将程序补充完整 Private sub command1_click() Dim a Dim 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)=tmp End if Next j Next i For I =0 to 9 Print a(i) Next i End sub 13.以下程序的目的将多维数组a(1 to m, 1 to n)中的元素转移到一个名为b(1 to n*m)的一维数组中，完成改程序 Option base 1 Private 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*j Next j Next i Tran a ,20,10 ,b End sub Sub tran(a(), m,n,b()) Dim I as integer For I =1 to m For j= 1 to n =a(I,j) Next j Next j End sub 14.下列程序是将数组A的元素倒序交换，即第一个变为最后一个，第2个变为倒数第2个，设数组中有10 个元素，完成下列程序 Private sub backward（a（）） Dim I