求助：vb二维数组冒泡排序该怎么弄，都两天了还做不出来。。。

#2

绿野清风2012-06-09 20:27

好心人帮帮忙

#3

周扬天2012-06-10 10:40

5行10列，行标为0到4，列标为0到9
Private Sub Command2_Click()
Picture2.Cls
  Picture2.Print ; "排列后数据"
  Dim m, k, h As Integer
  Static c As Integer   '定义沉底个数的变量
  c = 0
   For k = 1 To 50 - c   '剩下比较的个数
     For h = 0 To 49 - k   '比较的轮数
        i = Int(h / 10)  '求出行标
        j = h Mod 10     '求出列标
        If j = 9 Then
          If A(i, j) > A(i + 1, 0) Then     '行尾与下一行的行首比较
           m = A(i, j)
           A(i, j) = A(i + 1, 0)
           A(i + 1, 0) = m
           End If
        ElseIf A(i, j) > A(i, j + 1) Then   '每一行行内的两个数比较
         m = A(i, j + 1)
         A(i, j + 1) = A(i, j)
         A(i, j) = m
         End If
       Next h
    c = c + 1                  'c个数已沉底
Next k

  For i = 0 To 4
    For j = 0 To 9
     Picture2.Print A(i, j) & " ";
    Next j
     Picture2.Print
  Next i

End Sub

#4

周扬天2012-06-10 11:24

选择法排序：

Private Sub Command3_Click()
  Picture2.Cls
  Picture2.Print ; "排列后数据"
  Static c As Integer
  c = 0
  Dim k, h, e, f As Integer
  Dim m As Integer
  For k = 0 To 48-c
        i = Int(k / 10)         '基准数行标
        j = k Mod 10            '基准数列标

    For h = k + 1 To 50
     e = Int(h / 10)        '对比数行标
     f = h Mod 10      '对比数列标

      If A(i, j) < A(e, f) Then    '与剩下数比较
      m = A(i, j)
      A(i, j) = A(e, f)
      A(e, f) = m
      End If
    Next h
    c = c + 1         '已得出大数的个数
   Next k
  For i = 0 To 4
    For j = 0 To 9
     Picture2.Print A(i, j) & " ";
    Next j
     Picture2.Print
  Next i
End Sub

[ 本帖最后由周扬天于 2012-6-10 11:39 编辑 ]

求助：vb二维数组冒泡排序该怎么弄，都两天了还做不出来 。。。