VB中任意输入十个数运用选择排序法运行

dim arr(9) as integer
for i = 0 to 9
arr(i)= inputbox("输入")
next i
for i = 0 to 9
k=i
for j = i + 1 to 9
if arr(k)>arr(j) then k=j
next j
if k<>i then
t=arr(k):arr(k)=arr(i):arr(i)=t
end if
print arr(i)
next i

请参看我的回答，有2个~~

这个问题很老了~~~，

1.输出最大和最小数字

text1 MultiLine 属性ture，在text1里面，输入一个数字后回车，再输入下一个
==============================================

Private Sub Command1_Click()
Dim NM() As String, Max As Integer, Min As Integer, S As String
Dim I As Integer

S = Replace(Replace(Replace(Text1.Text, vbCrLf, ","), " ", ""), ",,", ",")
If Right$(S, 1) = "," Then S = Left$(S, Len(S) - 1)

NM = Split(S, ",")
Max = NM(0)
Min = NM(0)
For I = 1 To UBound(NM)
If Max < NM(I) Then
Max = NM(I)
End If
If Min >