Dim $Array20, $End = “, $End2 = “, $End3 = “;随机产生 20 组 2 位数的数据For $i = 0 To 19$Array$i = RandomInt(2)Next;数组赋值与$end 显示For $i = 0 To UBound($Array) - 1$End 排序前的随机数组;MsgBox(0, “, $End);正向排序For $x = 0 To UBound($Array) - 1For $y = 0 To $xIf $Array$y RandomInt;数组显示MsgBox(0, “20 组数据排序“, “需要排序的数组:“ & CRLF & $End & CRLF & _“正向排序 :“ & CRLF & $End2 & CRLF & “反向排序 :“ & CRLF & $End3)
