阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1 To 3 For i

admin2019-07-30  35

问题 阅读程序:
    Option Base 1
    Private Sub Form_Click()
          Dim Arr(3,3)As Integer
          For i=1 To 3
              For i=1 To 3
                  If j=i Or j=3-i+1 Then
                        Arr(i,j)=1
                  Else
                        Arr(i,j)=0
                  End If
              Next j
          Next i
          For i=1 To 3
              For j=1 To 3
                  Print Arr(i,j);
              Next j
              Print
          Next i
    End Sub
    程序运行后,如粜单击窗体,则输出结果为
   

选项 A、 
B、 
C、  
D、 

答案D

解析 本题是用一个二重循环为二维数组赋值,只有满足下标j=i或者j=3-i+1才将其设置为1,否则设置为0,如果写出这个二维数组可以看出,两个对角线的元素被设置成1
转载请注明原文地址:https://kaotiyun.com/show/nZUp777K
0

最新回复(0)