小弟知道这问题很简单，但是我刚学VB没两天时间，请大家不要见笑啊！
给定一个数组：33，42，17，68，9，12。 1找出数组中的最大值，2将数组按升序排列！
附带一个小问题，用UBOUND能找出数组的最大下标吗？

for i=lbound(array) to ubound(array)
for j=i to ubound(array)
if array(i)>array(j) then tempnum=array(i):array(i)=array(j):array(j)=tempnum
next
next
maxnum=array(ubound(array))

大侠，请问tempnum=array(i):array(i)=array(j):array(j)=tempnum 是什么意思？看不懂，解释下好吗？谢谢！

[CODE]Private Sub Command1_Click()
'33，42，17，68，9，12
Dim Mat(1 To 6) As Integer '//定义数组.
'//给数组各元素赋值.
Mat(1) = 33: Mat(2) = 42
Mat(3) = 17: Mat(4) = 68
Mat(5) = 9: Mat(6) = 12

Dim i As Integer
Dim iMax As Integer

iMax = Mat(1) '假设第一个是最大的.
For i = 2 To 6 '//循环跟第一个数比较
If (Mat(i) > iMax) Then
'//如果第i个大于iMax的话.

iMax = Mat(i) '//就将这个数赋给iMax
End If
Next

Print iMax '//输出最大的数
End Sub[/CODE]

谢谢大家的帮助，谢谢！