2.3 数组.docVIP

2.3 数组练习 一、选择题 1、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j AS Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（A） A、12 B、13 C、14 D、15 提示：即把下标相加赋值勤=给这个对应的数组。 2、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i AS Integer,j AS Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i–1)*3+j Print a(i,j); Next j Print Next I End Sub 程序运行后，单击命令按钮，窗体上显示的是（D） A、 1 2 3 2 4 6 3 6 9 B、 2 3 4 3 4 5 4 5 6 C、 1 4 7 2 5 8 3 6 9 D、 1 2 3 4 5 6 7 8 9 3、设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i AS Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5–i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（C） A、4 3 2 1 B、5 4 3 2 C、6 5 4 3 D、7 6 5 4 4、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array(北京,上海,天津,重庆) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（D） A、空白 B、错误信息 C、北京 D、上海 5、设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是（C）  For i=0 To 5–1\2 tmp=b(i) b(i)=b(5–i–1) b(5–i–1)=tmp Next B、 For i=0 To 5 tmp=b(i) b(i)=b(5–i–1) b(5–i–1)=tmp Next C、 For i=0 To 5\2 tmp=b(i) b(i)=b(5–i–1) b(5–i–1)=tmp Next D、 For i=1 To 5\2 tmp=b(i) b(i)=b(5–i–1) b(5–i–1)=tmp Next 6、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d－c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（C）。 A、89 B、99 C、23 D、77 7、以下有关数组定义的语句序列中，错误的是（D） A、 Static arr1(3) arr1(1) = 100 arr1(2) = Hello arr1(3) = 123.45 B、 Dim ar