在窗体上画一个文本框,然后编写如下程序: Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i

admin2013-04-11  29

问题 在窗体上画一个文本框,然后编写如下程序:    Option Base 1    Private Sub Form_Click()    Dim Arr(10)As Integer       For i=6 To 10          Arr(i)=i-3       Next i       Text1.Text:Str(Arr(6)+Arr(Arr(6)+Arr(10)))    End Sub    程序运行后,单击窗体,在文本框中显示的内容是

选项 A、1
B、3     
C、6
D、10

答案8

解析 在本题中,定义了一个一维数组Arr,并为其开辟了10个元素的空间,然后通过For循环为该数组的后5个元素赋值。不难看出,数组Arr后5个元素的值分别为3、4、5、6、 7。最后一个语句是为文本框的Text属性赋值,这个值是Arr数组的两个元素之和,其中第一个元素是Arr(6),即3;第二个元素的下标是数组Arr第六个元素(3)和第十个元素(7)的和,即 Arr(3+7)=Arr(10),而该元素的值为7。因此, Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(10)=3+ 7=10
转载请注明原文地址:https://kaotiyun.com/show/rbQp777K
0

最新回复(0)