在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m The

admin2020-04-18  36

问题 在窗体上画1个命令按钮,并编写如下事件过程:
    Private Sub Command1_Click()
    Dim a(3,3)
    For m=1 To 3
    For n=1 To 3
    If n=m Or n=4-m Then
    a(m,n)=m+n
    Else   
    a(m,n)=0
    End If
    Print a(m,n);
    Next n
    Print
    Next m
    End Sub
    运行程序,单击命令按钮,窗体上显示的内容为

选项 A、2 0 0 0 4 0 0 0 6
B、2 0 4 0 4 0 4 0 6
C、2 3 0 3 4 0 0 0 6
D、2 0 0 0 4 5 0 5 6

答案B

解析 本题通过一个嵌套的For循环为二维数组a的各元素赋值,该二维数组对应矩阵的主对角线上的元素(即满足条件m=n)和副对角线上的元素(即满足条件m+n=4)其值为m+n,即主对角线上的元素从左上至右下依次为2、4、6,副对角线上的元素均为4,而其它元素均为0。
转载请注明原文地址:https://jikaoti.com/ti/7wx0FFFM
0

最新回复(0)