15电气徐立立(十进制转为十六进制)
来源:互联网 发布:苏州市软件行业协会 编辑:程序博客网 时间:2024/04/30 00:59
打开软件,在command中进行编译。
当n=23时,
Private Sub Command1_Click()
Dim n As String
n = 23
Const shiliu As Byte = 16
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 3) As Byte
Dim i As Byte
i = 2
shang = n \ shiliu
yushu(i) = n Mod shiliu
returnS = yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ shiliu
yushu(i) = n Mod shiliu
returnS = yushu(i) & returnS
Wend
Print yushu(1); yushu(2)
End Sub
当n=230时
Private Sub command1_click()Me.Font.Size = 30
Print shiliujinzhi(230)
End Sub
Private Function shiliujinzhi(m As Byte) As String
Dim n As Byte
n = m
Const shiliu As Byte = 16
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 3) As Byte
Dim i As Byte
i = UBound(yushu)
shang = n \ shiliu
yushu(i) = n Mod shiliu
returnS = returnS & yushu(i)
While shang <> 0
i = i - 1
n = shang
shang = n \ shiliu
yushu(i) = n Mod shiliu
returnS = yushu(i) & returnS
Wend
shiliujinzhi = returnS
End Function
0 0
- 15电气徐立立(十进制转为十六进制)
- 15电气二班徐立立(十进制转为二进制)
- 15 电气 李少振 十进制化十六进制程序代码
- 十六进制转为十进制
- 十进制转为十六进制
- 十进制转为三十六进制
- 十进制转为十六进制
- 十进制转为十六进制
- 十进制转为十六进制
- 十进制转为十六进制
- 十六进制转为十进制
- 二进制、八进制、十六进制 转为 十进制
- 蓝桥杯备战-十六进制转为十进制
- 十进制数转为十六进制字符串
- c语言将十六进制转为十进制
- Objective-C十六进制字符串转为十进制
- 1.1进制转换:十进制转为十六进制
- 任意长度的十进制数转为二进制、十六进制,和大数除法算法(只有小半份)
- 第十周第十一周上机实践项目-项目3-1-警察和厨师
- Linux路径名查找
- Android 使用TabHost 无法显示图标
- 十六进制
- 10进制转换为16进制
- 15电气徐立立(十进制转为十六进制)
- HDU 4165 Pills (DP卡特兰数列)
- CSS rgb颜色产生原理 & 颜色对照表
- Cannot add or update a child row: a foreign key constraint fails (`tsproduct/product`, CONSTRAINT `F
- 关于while(geline(cin,s))语句执行解释
- 二叉树中所有节点的左右子树相互交换 递归与非递归程序
- 练习三 1003
- Android 中Textview字体加粗
- nyoj 148 fibonacci数列(二)