[单项选择题] 在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As IntegerFor i=6 To 10 Arr(i)=i-3Next iText1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1
B．3
C．6
D．10

参考答案： D

● 参考解析

[分析]在本题中，定义了一个一维数组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

当前位置：IT认证＞BASIC题库

[单项选择题] 在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As IntegerFor i=6 To 10 Arr(i)=i-3Next iText1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

相关题目: