vb
来源:互联网 发布:java获取404源码 编辑:程序博客网 时间:2024/06/06 02:20
Private Sub Command1_Click()
Me.Font.Size = 60
Print erjinzhi(23)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 16
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 8) As Byte
Dim i As Byte
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i) & returnS
Wend
erjinzhi = returnS
End Function
Me.Font.Size = 60
Print erjinzhi(23)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 16
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 8) As Byte
Dim i As Byte
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returnS = yushu(i) & returnS
Wend
erjinzhi = returnS
End Function
0 0
- VB
- VB
- VB
- VB
- vb
- vb
- VB
- VB
- vb
- VB
- vb
- VB
- vb
- vb
- VB
- vb
- VB
- vb
- 玩玩微信雷达扫描布局
- u盘在linux系统上只读的处理方法
- x.SAXParseException; lineNumber: 1; columnNumber: 1; 文件提前结束。
- Mysql支持emoji 表情符号 升级编码为UTF8MB4
- 两位数乘以一位数
- vb
- Mysql常用语句
- c++ 带默认值的构造函数 定义与实现分离
- linux之sed用法
- 任意一个数的二进制表示
- git错误解决 -- 小结
- 二进制
- Java Web基础(一)(HTML、Servlet/JSP)
- 3.3V、5V稳压管芯片给IC 芯片供电的问题