VB作业
来源:互联网 发布:资源站源码 编辑:程序博客网 时间:2024/05/14 11:35
Private Sub Command1_Click()
Me.Font.Size = 60
Print erjinzhi(230)
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 '11
yushu(i) = n Mod er '1
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
returnS = yushu(i) & returnS
Wend
erjinzhi = returnS
End Function
Me.Font.Size = 60
Print erjinzhi(230)
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 '11
yushu(i) = n Mod er '1
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
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作业
- 灰帽子Python 学习记录 6
- 在子线程中Toast
- Failed to install *.apk on device *: timeout
- JVM垃圾回收(GC)原理
- 样式重置
- VB作业
- Libcurl多线程crash问题
- ios layout机制相关方法
- 将具体的秒数转换为几天几小时几分钟
- 蓝桥杯 危险系数 DFS
- php面向编程入门之封装-继承-多态(第一部分)
- ebp与esp讲解
- html5的<meta>全部标签及作用
- 【数据结构】图形的多种表示方法及其java实现之相邻表法