VB数组练习题VB数组练习题.pptVIP

* 第八章 数组 练习题 1.用下面的语句所定义的数组的元素个数是（ ） Dim A(-3 to 5) as integer A.6 B.7 C.8 D.9 2.用下面的语句所定义的数组的元素个数是（ ） Dim arr(3 to 5,-2 to 2) A.20 B.12 C.15 D.24 3.控件数组的名字由名称属性指定，而数组中的每个元素由 属性指定。 4.由Array函数建立的数组的类型必须是 类型。 D C Index Variant 5.在窗体上面画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( ) Dim a(10) as integer,p(3) as integer k=5 For i=1 to 10 a(i)=i Next i For i=1 to 3 P(i)=a(i*i) Next i For i=1 to 3 K=k+p(i)*2 Next i End Sub 程序运行后，单击命令按钮，输出结果是（ ） A.35 B.28 C.33 D.37 c 6.在窗体上有一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) Dim arr1(10) as Integer, arr2(10) as Integer n=3 For i=1 To 5 arr1(i)=i arr2(i)=2*n+i Next i Print arr2(n),arr1(n) End Sub 程序运行后，单击命令按钮，输出结果为（ ） A.9 3 B.3 11 C.13 3 D.3 13 A 7.在窗体上画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( ) Dim a a=array(1,2,3,4) j=1 For i=4 to 1 step -1 S=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面程序，单击命令按钮，其输出结果是（ ） A.4321 B.12 C.34 D.1234 D 8．在窗体上画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( ) Dim a(4,4) For i=1 to 4 For j=1 to 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 to 4 For j=3 to 4 Print a(j,i); Next j print Next i End Sub 程序运行后，单击命令按钮，输出结果为（ ） A.6 9 B.7 10 C.8 11 D.9 12 7 10 8 11 9 12 10 13 D 9.在窗体上画一个命令按钮，然后填写如下代码： Private Sub Command1_Click( ) Dim n() as integer Dim a as integer,b as intetger a=inputbox(“enter data a:”) b=inputbox(“enter data b:”) redim n( a to b) for k=Lbound(n,1) to Ubound(n,1) n(k)=k print “n(“;k;”)=“;n(k) next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为 n(2)=2 n(3)=3 10.在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click(