跪求 VB程序代码 随机产生13个元素的数组，找出max，mix，并分别以逆序和顺序显示在两个标签内或文本框内

dim as a(12) as single,i as integer,j as integer
dim max as single,min as single,t as single
dim r as string
max=0
min=1
for i=0 to 12
randomize
a(i)=rnd()
if a(i)<min then min=a(i)
if a(i)>max then max=a(i)
next i
label1.caption="max="+str(max)
label2.caption="min="+str(min)
for i=0 to 11
for j=i+1 to 12
if a(i)>a(j) then
t=a(i):a(j)=a(j):a(j)=t
end if
next j
next i
for i=0 to 12
r=r+str(a(i))'升序
next i
text1.text=r
r=""
for i=12 to 0 step -1
r=r+str(a(i))'降序
next i
text2.text=r

Private Sub Command1_Click()
Cls
Randomize
Dim arr(12) As Integer
imax = 0
imin = 0
For i = 0 To 12
arr(i) = Int(Rnd * 90) + 10
If arr(imin) > arr(i) Then imin = i
If arr(imax) < arr(i) Then imax = i
Print arr(i);
Next i
Print
Print arr(imax)