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 Sub Private Sub Command3_Click() End End Sub [12] 随机生成一个由两位随机整数构成的5行5列的矩阵，求该矩阵中所有不靠边元素之和。 Dim a(5, 5) As Integer Function sum(b() As Integer, n As Integer, m As Integer) As Integer For i = 2 To n - 1 For j = 2 To m - 1 sum = sum + b(i, j) Next j Next i End Function Private Sub Command1_Click() For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Text1 = Picture1.Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command4_Click() Text1 = sum(a, 5, 5) End Sub [13] 随机生成由10个两位正整数组成的数组，并使用冒泡法对该数组进行排序。 Option Base 1 Sub Sort(b() As Integer, n As Integer) For i = 1 To n - 1 For j = 1 To n - i If b(j) b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t End If Next j Next i Text2 = For i = 1 To 10 Text2 = Text2 b(i) Next i End Sub Private Sub Command1_Click() Dim a(10) As Integer Text1 = For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1 = Text1 a(i) Next i Call Sort(a, 10) End Sub Private Sub Command2_Click() Text1 = Text2 = End Sub Priva