生成一个5*5形式的2维数组 要求在图片框中输出 然后在文本框排序后输出
来源:百度知道 编辑:UC知道 时间:2024/05/22 04:13:43
Option Explicit
Dim x(1 To 5, 1 To 5) As Integer
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim ii As Integer
Dim t As Integer
For a = 1 To 5
For b = 1 To 5
x(a, b) = Int(Rnd * 10)
Picture1.Print x(a, b)
Next b
Next a
For a = 1 To 5
For b = 1 To 5
For i = 1 To 5
For ii = 1 To 5
'If a = ii And b = i Then Exit For
If x(a, b) < x(i, ii) Then
t = x(a, b)
x(a, b) = x(i, ii)
x(i, ii) = t
End If
Next ii
Next i
Next b
Next a
For a = 1 To 5
For b = 1 To 5
Text1.Text = Text1.Text & x(a, b)
Next b
Next a
End Sub
不知道这样可不可以