vb数组练习题

第八章 数组 练习题1.用下面的语句所定义的数组的元素个数是（ ）Dim A(-3 to 5) as integerA.6 B.7 C.8 D.92.用下面的语句所定义的数组的元素个数是（ ）Dim arr(3 to 5,-2 to 2)A.20 B.12 C.15 D.243.控件数组的名字由名称属性指定，而数组中的每个元素 由 属性指定。4.由Array函数建立的数组的类型必须是 类型。DCIndexVariant5.在窗体上面画一个命令按钮，然后编写如下代码： 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 3P(i)=a(i*i) Next i For i=1 to 3K=k+p(i)*2 Next i End Sub 程序运行后，单击命令按钮，输出结果是（ ） A.35 B.28 C.33 D.37c6.在窗体上有一个命令按钮，然后编写如下代码：Private Sub Command1_Click( )Dim arr1(10) as Integer, arr2(10) as Integern=3For i=1 To 5arr1(i)=iarr2(i)=2*n+iNext iPrint arr2(n),arr1(n) End Sub 程序运行后，单击命令按钮，输出结果为（ ）A.9 3 B.3 11 C.13 3 D.3 13A7.在窗体上画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( )Dim aa=array(1,2,3,4)j=1For i=4 to 1 step -1S=s+a(i)*jj=j*10Next iPrint s End Sub 运行上面程序，单击命令按钮，其输出结果是（ ）A.4321 B.12 C.34 D.1234D8在窗体上画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( )Dim a(4,4)For i=1 to 4For j=1 to 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 to 4For j=3 to 4Print a(j,i);Next jprintNext i End Sub 程序运行后，单击命令按钮，输出结果为（ ）A.6 9 B.7 10 C.8 11 D.9 127 10 8 11 9 12 10 13D9.在窗体上画一个命令按钮，然后填写如下代码： Private Sub Command1_Click( )Dim n() as integerDim a as integer,b as intetgera=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)=kprint “n(“;k;”)=“;n(k)next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和 3，输出结果为 n(2)=2 n(3)=310.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click( )Dim m(10) as integerFor k=1 to 10m(k)=12-kNext kX=6Print m(2+m(x)End Sub 程序运行后，单击命令按钮，输出结果是 。4 11.在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click( )Dim a(5,5)For i=1 to 3For j=1 to 4a(i,j)=i*jNext jNext iFor n=1 to 2For m=1 to 3Print a(m,n);Next m Next n End Sub 程序运行后，单击命令按钮，输出结果是 。1 2 3 2 4 6