Question

VB题：使用随进函数产生0~9之间的随机整数形成一个5阶矩阵元素，计算矩阵元素之和

使用随机函数产生0-9之间的随机整数
形成一个5阶矩阵的元素
并把该矩阵存放到一个二维数组A
并在一个文本框中显示出来。 急急急

Answer 1

Private Sub Command1_Click()Dim a(1 To 5, 1 To 5)
Text1.Text = ""For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Randomize
a(i, j) = Int(10 * Rnd)
Text1.Text = Text1.Text & Str(a(i, j))
Next j
Text1.Text = Text1.Text & vbCrLf
Next iEnd Sub

Answer 2

代码

Sub trygo()
Dim A(4, 4) As Integer, str As String
Dim i As Integer, j As Integer
For i = 0 To 4
For j = 0 To 4
A(i, j) = Int(10 * Rnd)
str = str & A(i, j) & " "
Next j
str = str & vbCr
Next i
Debug.Print str
End Sub
输出成果
4 4 6 1 4
5 8 5 4 5
2 6 4 6 8
3 3 2 1 5
2 5 3 8 4