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

短命女 2022-05-27 05:56 131阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：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

## 运行效果 ##

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

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220527/627ec8fbb1044a69b5bddfc044b75061.png