要么你没说明白，要不我理解错了
回复 15# netegg
六副排都在一起，一切的排列概率，都有可能出现吧。
回复 17# 9922250
那还不容易
local $a = '', $i =0
while $i<=5
$w =random(1,13,1), $b =random(1,4,1)
$w = $w & $b
if not stringinstr($a, $w) Then $a &= $w & ','
$i+=1
wend
ConsoleWrite(StringTrimRight($a , 1) & @CR)
可能写的简单了点，不过大概思路没错
回复 18# netegg #include <array.au3>
Dim $a =
$fin = _Array_Random($a)
For $i = 1 To 6
For $n = 0 To UBound($fin) - 1
If$fin[$n] <> 0 Then FileWrite("312.txt", $fin[$n] & @CRLF);开始写入
Next
Next
Local $aNum
For $i = 0 To 312
$aNum[$i] = $i + 1
Next
For $i = 0 To 312
$r = Random($i, 312, 1)
$temp = $aNum[$i]
$aNum[$i] = $aNum[$r]
$aNum[$r] = $temp
Next
Dim $Ans
For $i = 0 To 311
$dangqian = FileReadLine ( "312.txt", $aNum[$i] )
FileWrite("按数字读取行打乱.txt",$dangqian & @CRLF)
Next
;~----------------------------------------
Func _Array_Random($Array)
Local $oD = ObjCreate('Scripting.Dictionary')
Local $i
For $i In $Array
If Not $oD.Exists($i) Then $oD.Add($i, 0);先去掉重复
Next
Local $outA = $oD.Keys()
$oD.RemoveAll;释放资源
$oD = ""
For $k = 1 To 7;据说"完美"的洗牌次数是7次
For $n = 0 To UBound($outA) - 1
_ArraySwap($outA[$i], $outA)
Next
Next
Return $outA
EndFunc ;==>_Array_Random
我想这样应该也是对的了。
对象操作我没什么概念，不清楚
另外，你这个根本没定义随机呀，那么多的牌你都定义好了，何来随机
回复 15# netegg
请教个问题，一个数组，找不到代码。
输入结果为
1 8 15
2 9 16
3 10 17
4 11 ..................
5 12 应该怎么写。
6 13
7 14
付上个小代码。元老帮我修改下。
Dim $Grid=[["Paul", "Jim", "Richard", "Louis"], ]
ReDim $Grid
For $i=0 To 3
$Grid[$i]=$avArray[$i]
Next
_ArrayDisplay($Grid, "new-$Grid")
Next
想做成什么样
本帖最后由 netegg 于 2014-10-26 09:29 编辑
local $a = '', $i =0
while $i<=5
;$w为点数，$b为花色， $c为次数
Local $w =random(1,13,1), $b =random(1,4,1), $c= random(1,6,1)
;格式化选中的花色点数
$u = stringformat('%02d', $w) & $b
;格式化选中的花色点数所原有所在的哪副牌
$v = $u & $c
;如果所在牌不同且所选中的花色点数不超过6次
if not (stringinstr($a, $v , 0 , 2)) and not(stringinstr($a, $u, 0, 7)) Then
$a &= $v & ', '
$i+=1
EndIf
wend
ConsoleWrite(StringTrimRight($a , 1) & @CR)
回复 23# 9922250
什么意思
回复 23# 9922250
local $ret = ''
for $i = 1 to 7
$ret &= $i & ' ' & $i+7 & ' ' & $i +14 &@crlf
next
msgbox(0,0,$ret)
回复 26# netegg
蛋蛋， 一看LZ弄的这些就烦感，一沾到扑克的东西绝没有好事情，建议自行解决
本帖最后由 netegg 于 2014-10-26 08:37 编辑
回复 23# 9922250
udf区有二维数组的操作，虚拟建立第三个元素，比如, 然后删除就是了
For $j = 0 To 10
main()
ConsoleWrite(@CRLF)
Next
Func main()
Local $a = '', $i = 0
Local $o = ['红桃', '黑桃', '草花', '方块']
Local $p = ['第一副牌', '第二副牌', '第三副牌', '第四副牌', '第五副牌', '第六副牌']
While $i <= 5
;$w为点数，$b为花色， $c为次数
Local $w = Random(1, 13, 1), $b = Random(1, 4, 1), $c = Random(1, 6, 1)
;格式化选中的花色点数
$u = StringFormat('%02d', $w) & $b
;格式化选中的花色点数所原有所在的哪副牌
$v = $u & $c
;如果所在牌不同且所选中的花色点数不超过6次
If Not (StringInStr($a, $v, 0, 2)) And Not (StringInStr($a, $u, 0, 7)) Then
$a1 = $v
ConsoleWrite($p & $o & Number(StringLeft($a1, 2)) & @CR)
$i += 1
EndIf
WEnd
EndFunc ;==>main