Question

利用随机函数生成元素为两位正整数的5阶方阵,然后以行的次序按递增排列所有的元素,用vb怎么写

Answer 1

Option Base 1

Private Sub Command1_Click()

Randomize

Dim a(5, 5) As Integer, b(25) As Integer

For x = 1 To 5'生成二维数组

For y = 1 To 5

a(x, y) = Int(10 + Rnd * 90)

Print a(x, y);

Next

Print

Next

Print

For x = 1 To 5'将二维数组赋值给一维数组

For y = 1 To 5

b((x - 1) * 5 + y) = a(x, y)

Next

Next

For i = 1 To 25'将一维数组中的数值排序

For j = 1 To i - 1

If b(i) < b(j) Then

t = b(i)

b(i) = b(j)

b(j) = t

End If

Next

Next

For i = 1 To 25’将排好序的一维数组赋值回给二维数组

a((i - 1) 5 + 1, ((i - 1) Mod 5) + 1) = b(i)

Next

For x = 1 To 5‘输出二维数组

For y = 1 To 5

Print a(x, y);

Next

Print

Next

End Su