我写了9行代码来实现随机生成30个16进制数，可以精简一下么？我觉得我写的很累赘。

KLU3K

$rand = Int(Random(1000000000, 9999999999))
$rand2 = Int(Random(1000000000, 9999999999))
$rand3 = Int(Random(1000000000, 9999999999))
$rand4 = Int(Random(1000000000, 9999999999))
$result = Hex($rand, 8)
$result2 = Hex($rand2, 8)
$result3 = Hex($rand3, 8)
$result4 = Hex($rand4, 6)
MsgBox(0, "Debug", $result & $result2 & $result3 & $result4)

我是菜鸟，不会写，只能写成这样比较累赘的样子。能否精简一下啊？要是我想随机生成100个岂不是要累死？

netegg

$n = ""
$i = 0
do  
$i += 1
$n = $n & Hex(Int(random(1000000000, 9999999999)), 8)
until $i =4
msgbox(0, "Debug", $n)

不过不太明白你那个8，8，8，6是什么意思

newx

$nVal = ""
for $X=1 To 9
   $nVal &= aaa() & @CRLF
next
   msgbox(0,0,$nVal)

Func aaa()
   $val = Hex(Int(Random(1000000000, 9999999999)),8)
   Return $val
EndFunc

KLU3K

2# netegg


目的是生成一组由30个字符组成的16进制码！

就要30个字符，多一个都不要。所以。8+8+8+6=30

78391493

Dim $Hex
For $i = 0 To 3
        $Hex &= Hex(Int(Random(1000000000, 9999999999)), 8)
Next
$Hex = StringTrimRight($Hex, 2)

iftodo

#include <Array.au3>
Local $s = 100 ;要生成的个数
Dim $Hex[$s]
For $i = 0 To $s - 1
        $Hex[$i] = Hex(Random(1000000000, 9999999999, 1), 8)
Next
_ArrayDisplay($Hex)

顺便说一下我的观点.  行数并不是判断一段代码的惟一标准.  实用至上

KLU3K

5# 78391493

这位兄弟的方法不错。满足需求。感谢！

KLU3K

6# iftodo

感谢回复，虽然没打到题目要求，但是也非常感谢你。向高手致敬！