VB练习及参考案 10道大题.docVIP

[11] 生成一个由1位数字组成的大小为4*4的矩阵，并求出该矩阵的靠边元素之和。 Function Sum(b() As Integer, n As Integer, m As Integer) As Integer For i = 1 To n Sum = Sum + b(i, 1) + b(i, m) Next i For j = 2 To m - 1 Sum = Sum + b(1, j) + b(n, j) Next j End Function Private Sub Command1_Click() Dim a(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 10) Picture1.Print a(i, j); Next j Picture1.Print Next i Text1 = Sum(a, 4, 4) End Sub Private Sub Command2_Click() Text1 = Picture1.Cls End S