十进制数??? 转换为二进制
2016-04-28 17:15
239 查看
Private Sub Command1_Click()
Print erjinzhi(???)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 2
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
Private Sub Form_Load()
Me.Font.Size = 50
End Sub
Print erjinzhi(???)
End Sub
Private Function erjinzhi(m As Byte) As String
Dim n As Byte
n = m
Const er As Byte = 2
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
Private Sub Form_Load()
Me.Font.Size = 50
End Sub
相关文章推荐
- 认识了个外国友人!
- csapp读书笔记-并发编程
- 指针、const和typedef
- jquery UI Datepicker时间控件的使用及问题解决
- x.SAXParseException; lineNumber: 1; columnNumber: 1; 文件提前结束。
- 使用git和TortoiseGit上传代码至GitHub
- 使用git和TortoiseGit上传代码至GitHub
- Hbase+Solr解决Hbase多条件查询
- 类在JVM中的执行过程
- 任意255以内的十进制数转化为16进制数
- 《JAVA并发编程实战---读书笔记1》
- OpenCV学习笔记_图像转换cvCvtColor、通道分割cvSplit以及通道合并cvMerge
- 机器学习&深度学习经典资料汇总
- (屏幕适配)鸿洋大神的Google百分比布局库 android-percent-support-extend
- 动态规划之最大矩阵路径
- 0428 团队2.0
- 浅析软件架构
- 对软件构造的认识
- spring session redis做session共享
- 计算2个坐标点之间的距离