做一个冒泡排序的界面

Question

我想做一个界面!
但不知道怎么做,请问一下各位高手!

Answer 1

排序程序你会不会编呀？
还有你的题目要求排序的数字个数是否确定？
如果确定
在对话框面版加入若干个edit控件。从edit控件中读取数字进行排序。
然后就是把最新数组的顺序显示在edit控件上就行了。

Answer 2

我的程序,但运行不出来!
Dim a(10) As TextBox
Private Sub Form_Activate()
Randomize
For i = 0 To 10
  Set a(i) = Text1(i)
  a(i).Text = Int(Rnd * 199) - 99
  a(i).BackColor = RGB(255, 255, 255)
Next i
Command1.Enabled = True
Frame1.Height = 1980
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
For i = 1 To 9
  Label2.Caption = " 从A(1)到A(" & Trim(11 - i) & _
     "),将相连两数进行比较，并将小者置前,A(" + Trim(11 - i) & _
      ")，将为A(1)至A(" & Trim(11 - i) & ")中的最大者。“"
For j = 1 To 10 - i
    a(j).BackColor = RGB(225, 0, 225): a(j + 1).BackColor = RGB(225, 0, 225)
  If Val(a(j).Text) > Val(a(j + 1).Text) Then
     MsgBox "交换A(" & Trim(j) & ")和A(" & Trim(j + 1) & ")", , "A(" & Trim(j) & ")>A(" & Trim(j + 1) & ")"
     t = a(j).Text: a(j).Text = a(j + 1).Text: a(j + 1).Text = t
  End If
   a(j).BackColor = RGB(225, 0, 225)
 Next j
 a(j).BackColor = RGB(0, 225, 0)
Next i
a(1).BackColor = RGB(0, 225, 0)
Label2.Caption = " "
Frame1.Height = 1000
End Sub
Private Sub Command2_Click()
 Form_Activate
End Sub

Answer 3

大哥,这是vb的程序阿再说你既然能 MsgBox "交换A(" & Trim(j) & ")和A(" & Trim(j + 1) & ")", , "A(" & Trim(j) & ")>A(" & Trim(j + 1) & ")" 这样
为什么不能 把 "交换A(" & Trim(j) & ")和A(" & Trim(j + 1) & ")", , "A(" & Trim(j) & ")>A(" & Trim(j + 1) & ")"  放到文本框里在加个vbCrLf呢?这样不就一目了然了?