VB：随机生成数组并分别计算主对角元素之和与副对角元素之和

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验1-6
作者：Caleb Sung

题目要求

参照教材例5.3，在通用声明段声明两个数组，利用随机函数形成两个4x4矩阵。

要求：

① 以下三角形式显示A数组、上三角形式显示B数组。
② 求A数组主对角线元素之和和B数组副对角线元素之和。

参考代码

（程序员职业病：不缩进得规规矩矩浑身难受系列）
这里画了三个Picture让输出的三段内容分别放在里面，以及三个按钮

Dim a(4, 4) As Integer, b(4, 4) As Integer

Private Sub Command1_Click()
    Picture1.Cls
    For i = 1 To 4
        For j = 1 To 4
            a(i, j) = Int(Rnd * 41 + 30)
        Next j
    Next i
    For i = 1 To 4
        For j = 1 To i
            Picture1.Print a(i, j);
        Next j
        Picture1.Print
    Next i
End Sub

Private Sub Command2_Click()
    Picture2.Cls
    For i = 1 To 4
        For j = 1 To 4
            b(i, j) = Int(Rnd * 41 + 100)
        Next j
    Next i
    For i = 1 To 4
        Picture2.Print Tab(5 * i - 4);
        For j = i To 4
            Picture2.Print b(i, j);
        Next j
        Picture2.Print
    Next i
End Sub

Private Sub Command3_Click()
    Picture3.Cls
    sum1 = 0
    For i = 1 To 4
        For j = 1 To 4
            If i = j Then sum1 = sum1 + a(i, j)
        Next j
    Next i
    sum2 = 0
    For i = 1 To 4
        For j = 1 To 4
            If i + j = 5 Then sum2 = sum2 + b(i, j)
        Next j
    Next i
    Picture3.Print "A数组主对角线元素和为："; sum1
    Picture3.Print "B数组主对角线元素和为："; sum2
End Sub

运行效果

（写的时候比较快，把学妹吓一跳hhh）
（好歹C也学了三四年，这点技术没有还好意思出来混么（滑稽））