二进制
十进制
第1个数
10 000 0
32+0
第2个数
10 001 0
32+2
……
最后1个数
11 111 0
32+
Dim i As Integer, s As Integer
i = 0: s = 0
Do While
i = i + 1
Loop
Print s
微信扫码预览、分享更方便