Local $binarr[32],$n=0,$yu
$number=InputBox("输入", "输入要转换的数字", "正整数")
bin($number)
MsgBox(0,0,$yu)
Func bin($number)
Do
$binarr[$n]=Mod($number,2)
$number=Int($number/2)
$n+=1
Until $number=0
For $i=31 To 0 Step -1
$NumberToBinary=$binarr[$i]
If $NumberToBinary='' Then $NumberToBinary=0
$yu&=$NumberToBinary
Next
Return $yu
EndFunc