请教：VB代码：输入10个数字，然后把这10个数字由大到小排列，然后最大最小数字互换，显示出现在的数字排

随便输入三个数字。从小到大 排序的VB代码~

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
s = b: b = c: c = s
End If
If a > b Then
t = a: a = b: b = t
End If
Print a; b; c
End Sub
这个方法虽然有点麻烦但是好理解，满意的话就给加几分吧，
谢谢啦...............

- -无语了，这个程序被你的无比复杂，不过看下来就知道没希望对了
pravite sub command1_click()
dim a(16) as integer
randomize
for i=1 to 16
a(i)=int(rnd*16+1)
print a(i)
next i
end sub
这个就行了，你复杂了，还在FOR里面参杂了DO，好多DO，脑子会晕了的

那我告诉你如何互换最大和最小值：

把10数存入数组a(0 to 9)
dim max,min，maxi,mini,temp,item
dim i as integer
max=a(0):min=a(0)
for i=0 to 9
if max<=a(i) then max=a(i):maxi=i'记录最大值和其下标
if min>=a(i) then min=a(i):mini=i'记录最小值和其下标
next
temp=a(maxi):a(maxi)=a(mini):a(mini)=temp'交换最大、最小值的位置
for each item in a
print item'输出数组中的每个元素
next

排序你会了，我就不写了！！

---

请教：VB代码：输入10个数字，然后把这10个数字由大到小排列，然后最大最小数字互换，显示出现在的数字排视频