单选题阅读程序：Option Base 1Private Sub Form—Click()Dim Arr(3，3)As IntegerFor i=1 To 3For j=1 To 3Ⅱj=i Or j=3一i+1 ThenArr(i，j)=1ElseArr(i，j)=0End IfNext jNext iFor i=1 To 3For j=1 To 3Print Arr(i，j)；Next jPrintNext iEnd Sub程序运行后，如果单击窗体，则输出结果为( )。

A、 1 1 1 1 1 1 1 1 1
B、 0 0 0 0 0 0 0 0 0
C、 1 0 0 0 1 0 0 0 1
D、 1 0 1 0 1 0 1 0 1

【正确答案】 D

【答案解析】解析：第一个For循环给数组Arr赋值。第二个For循环打印数组各元素的值。在第一个For循环中，数组的下标用变量i表示，上标用变量j表示。If…Else语句对两种情况进行判断，在i等于j的时候或者i和j满足j=3一i+1关系的时候，Arr数组元素被赋值为1，其他情况被赋值为0。可以根据循环语句的执行，代入各变量值算得各元素的值。选D)。