📄 21254.html
字号:
<html> <head> <title>拿去用吧 (自行改良一下会比较好用)...</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>拿去用吧 (自行改良一下会比较好用)...</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 安宝 on November 11, 1999 at 15:44:27:<p>In Reply to: <a href="21247.html">该如何取得 bit 值 ??????</a> posted by 月光仙子 on November 11, 1999 at 11:23:35:<p>Public Function AsctoBin(ByVal AscInt As Integer)As String<br>Dim I, J, k As Integer<br>Dim gsStr As String<br>Dim gnLen As Integer<br>Dim nData As Integer<br> nData = AscInt<br> gsStr = ""<br> I = -1<br> While I <> 0<br> I = Int(nData / 2)<br> J = nData Mod 2<br> gsStr = J & gsStr<br> nData = I<br> Wend<br> AsctoBin = gsStr<br>End Function<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 21254--></ul><!--end: 21254--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -