VB.NET的题目 利用随机数生成两个4*4的矩阵A~紧急紧急

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Int(Rnd() * 10))
Dim n As Integer = 4
Dim i,a As Integer
Dim r As String
Randomize()
For i = 1 To n
r = Int(Rnd() * 10)
Label1.Text &= Space(n - i + 1) & StrDup(i,r) + vbNewLine
Next i
For i = n To 1 Step -1
r = Int(Rnd() * 10)
Label1.Text &= Space(n - i + 1) & StrDup(i,r) + vbNewLine
Next i
For Each c In Label1.Text
If IsNumeric(c) Then
a += 1
End If
Next
MsgBox(a) ‘主对角线和次对角线上各元素之和
End Sub
另一个矩阵也是用同样方法.
你说的是不是这样?