小到大,
for (第一个到最后一个) {
if (现在 > 下一个) { 两个调换 }
}作者: silenus_hui 时间: 2010-2-1 11:05 PM
程式的方面我会
我不会dim as xxx 罢了 =.=!! 汗
请问要dim as 什么才有线条大小的东西出来em0010
我想了很久了
[ 本帖最后由 silenus_hui 于 2010-2-1 11:09 PM 编辑 ]作者: silenus_hui 时间: 2010-2-1 11:07 PM
Dim A(10) As Integer
Private Sub cmd1_click()
Dim i As Integer
Dim s As String
Randomize
For i = 1 To 10
A(i) = Rnd(i) * 100
s = s + Str(A(i)) & Space(5)
Next
List1.AddItem s
End Sub
Private Sub cmd2_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim temp As Integer
For i = 1 To 10
For j = 1 To i
If A(i) < A(j) Then
temp = A(i)
A(i) = A(j)
A(j) = temp
s = " "
For k = 1 To 10
s = s + Str(A(k)) & Space(5)
Next
List1.AddItem s
End If
Next
Next
s = " "
For i = 1 To 10
s = s + Str(A(i)) & Space(5)
Next
List1.AddItem s
End Sub
Private Sub Cmd3_click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim temp As Integer
For i = 1 To 10
For j = 1 To i
If A(i) > A(j) Then
temp = A(i)
A(i) = A(j)
A(j) = temp
s = " "
For k = 1 To 10
s = s + Str(A(k)) & Space(5)
Next
List1.AddItem s
End If
Next
Next
s = " "
For i = 1 To 10
s = s + Str(A(i)) & Space(5)
Next
List1.AddItem s
End Sub