论坛 › 『 提问交流 』 › 能帮忙吗

haihong0721 发表于 2008-10-21 14:27:30

能帮忙吗

#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
$min=$RandomNumArray
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 发表于 2008-10-21 14:32:06

#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
$min=$RandomNumArray
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 发表于 2008-10-21 14:49:00

好象和我的一样　　　我堪布出那不一样:face (34):

查看完整版本: 能帮忙吗