神马品牌网ps注册机怎么使用:VB求助~!!对高手来说应该很简单的~~!!
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 17:01:42
建立一个工程文件,在窗体的Click事件中编写代码实现:在键盘上输入5个数,回车后窗体中显示这5个数的升序排序结果(用选择法).
原题地址:
http://photoimg61.qq.com/?pid=D90207AA07ACAEAF8CF4DABB8C3F2B3E
原题地址:
http://photoimg61.qq.com/?pid=D90207AA07ACAEAF8CF4DABB8C3F2B3E
Dim x(5) As Integer
x(1) = 5
x(2) = 8
x(3) = 2
x(4) = 10
x(5) = 7
For i = 1 To 5
k = i
For j = i + 1 To 5
If x(j) < x(k) Then k = j
Next j
If (k <> i) Then
t = x(i)
x(i) = x(k)
x(k) = t
End If
Next i
For i = 1 To 5
Print x(i)
Next i
不会