2. 计算机
  3. 阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3，3)As Integer For i=1 To 3 For i

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

admin2019-07-30  64
问题 阅读程序：
    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://www.kaotiyun.com/show/nZUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)