15电气二班徐立立(十进制转为二进制)
来源:互联网 发布:看美股行情软件 编辑:程序博客网 时间:2024/04/30 01:16
打开VB软件,在command中进行编译,程序如下:
当n=23时,
Private Sub Command1_Click()
Dim n As Byte
n = 23
Const er As Byte = 2
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 5
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
Print yushu(1); yushu(2); yushu(3); yushu(4); yushu(5)
End Sub
当n=230时,
Private Sub command1_click()
Me.Font.Size = 30
Print erjinzhi(230)
End Sub
-----------------------------------------------------------------
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 = 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
- 15电气二班徐立立(十进制转为二进制)
- 15电气徐立立(十进制转为十六进制)
- 15 电气 李少振 十进制化二进制程序代码
- java 二进制转为十进制,十进制转为二进制
- java 二进制转为十进制,十进制转为二进制
- 二进制转为十进制,十进制转为二进制
- 位操作+递归 (十进制转为二进制)
- 十进制小数转为二进制
- 十进制转为二进制
- 十进制小数转为二进制
- 十进制转为二进制
- 十进制转为二进制
- 十进制转为二进制
- 十进制转为二进制以及二进制转为十进制算法
- 十进制小数转为二进制小数
- 二进制、八进制、十六进制 转为 十进制
- 习题3.1二进制转为十进制
- 十进制数转为二进制数
- 数据结构中,“结点”的意思
- 在linux下安装tesseract-ocr
- 16
- HMAC加密算法
- dragger2 的使用详解
- 15电气二班徐立立(十进制转为二进制)
- 【问题解决】eclipse ‘Launching Hello'has encountered a problem
- easyUI使用准备
- 十进制转换成二进制
- BootStrap fileinput.js
- Linux系统负荷的概念 (load average)
- CircleProgressBar For Android(圆形进度条)
- python 编码小结
- iOS 证书更新,打包APP