能帮忙吗

haihong0721

#include<Array.au3>
const $n=11
dim $RandomNumArray[$n]
dim $Num,$i,$j,$Flag,$t
$max,$min
$j=1
while $i<$n
        $Num=Random(1,10,1)
        $Flag=0
        $j=1
if $Flag=0 Then
        $RandomNumArray[$i]=$Num
        $i=$i+1
EndIf
WEnd
_ArrayDisplay($RandomNumArray," 随机不重复数组")
$max=$RandomNumArray[1]
$min=$RandomNumArray[1]
for $i =2 to $n
        if $RandomNumArray[$i]>$max Then
                $max=$RandomNumArray[$i]
        EndIf
        if $RandomNumArray[$i]<$min Then
                $min=$RandomNumArray[$i]
        EndIf
Next
msgbox(0,"最大值","最大值为："&$maxR&@CRLF&"最小值为："&$min)   
    帮看是那有问题　

lxz

#include<Array.au3>
const $n=11

Dim $Num,$i,$j,$Flag,$t,$max,$min,$RandomNumArray[$n]
$j=1
while $i<$n
        $Num=Random(1,10,1)
        $Flag=0
        $j=1
if $Flag=0 Then
        $RandomNumArray[$i]=$Num
        $i=$i+1
EndIf
WEnd
_ArrayDisplay($RandomNumArray," 随机不重复数组")
$max=$RandomNumArray[1]
$min=$RandomNumArray[1]
for $i =2 to $n
        if $RandomNumArray[$i]>$max Then
                $max=$RandomNumArray[$i]
        EndIf
        if $RandomNumArray[$i]<$min Then
                $min=$RandomNumArray[$i]
        EndIf
Next
msgbox(0,"最大值","最大值为："&$maxR&@CRLF&"最小值为："&$min)   

看行不行.

haihong0721

好象和我的一样　　　我堪布出那不一样