随机生成2-5阶方阵：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d(,) As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
Randomize()
n = Int(4 * Rnd() + 2)
ReDim d(n, n)
Label1.Text = ""
For i = 1 To n
For j = 1 To n
d(i, j) = Int(Rnd() + 0.5)
Label1.Text = Label1.Text & d(i, j) & " "
Next
Label1.Text = Label1.Text & vbCrLf
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024