binary.txt
来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 7 行
TXT
7 行
Function Bin(ByVal X As Long) As String
Do
Bin = (X And 1) & Bin
X = X \ 2
Loop While X
End Function
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?