13问答网 > vb编程随机产生16个1 位整数,存入4行4列二维数组中,求对角线上个元素的和并输出

vb编程随机产生16个1 位整数,存入4行4列二维数组中,求对角线上个元素的和并输出

2025-03-07 05:03:54

推荐回答（1个）

回答1：

Private Sub Command1_Click()
    Cls
    Dim arInt(1 To 4, 1 To 4) As Integer
    Dim r As Integer, c As Integer
    For c = 1 To 4
        For r = 1 To 4
            arInt(r, c) = Int(Rnd * 10)
            Print arInt(r, c);
        Next
        Print
    Next
    Dim mun As Integer
    For r = 1 To 4
        mun = mun + arInt(r, r) + arInt(r, 5 - r)
    Next
    Print mun
End Sub

vb编程 随机产生16个1 位整数,存入4行4列二维数组中,求对角线上个元素的和并输出

vb编程随机产生16个1 位整数,存入4行4列二维数组中,求对角线上个元素的和并输出