VB顺序查找和选择排序的代码·

用循环
好歹你也多写点信息啊,别人也好帮你
最简单,查找和排序都有了
form,一个按钮,开始

Private Sub Command1_Click()
Dim i, j, t, a(1 To 10)
Randomize
Print "原数组:"
For i = 1 To 10
a(i) = Rnd * 10
Print "a(" & i & ") =" & a(i) & Space(2),
If i Mod 2 = 0 Then Print
Next i
Print
For i = 1 To 9
For j = i + 1 To 10
If a(j) < a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print "从小到大排序后数组:"
For i = 1 To 10
Print "a(" & i & ") =" & a(i) & Space(2),
If i Mod 2 = 0 Then Print
Next i
End Sub

俺是路过
打酱油。