1230转化成十六进制
来源:互联网 发布:先锋网络电视免费版 编辑:程序博客网 时间:2024/05/21 09:21
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Integer
a = 1230: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s
End Sub
Private Function f(yushu As Integer) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu
Case 10, 11, 12, 13, 14, 15
f = Chr(yushu + 55)
End Select
End If
End Function
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Integer
a = 1230: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s
End Sub
Private Function f(yushu As Integer) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu
Case 10, 11, 12, 13, 14, 15
f = Chr(yushu + 55)
End Select
End If
End Function
0 0
- 1230转化成十六进制
- 1230转化成十六进制
- 1230转化成十六进制
- 1230转化成十六进制
- 1230转化成十六进制
- 十六进制转化成十进制
- 十进制转化成十六进制
- 十六进制转化成十进制
- 文本转化成十六进制
- 2138转化成十六进制
- 十进制转化成十六进制
- 整数 转化成 十六进制 字符串
- 十进制转化成十六进制i
- 0060 十六进制转化成十进制
- java 十六进制转化成十进制
- 转化十六进制
- char *的十六进制字符串转化成long
- java byte[] 型 转化成十六进制输出
- Lucene从索引中搜索出Document
- table tr 移位排序 prev() before() next() after()
- Stanford 机器学习-Recommender Systems
- Activity设置android:windowIsTranslucent属性之后,点击按钮跳转到其他的Activity
- hdu5119(递推+滚动数组)
- 1230转化成十六进制
- KMP算法
- 关于oracle的监听响应速度过慢
- MySQL 开启FEDERATED 引擎
- u3d shader入门写法
- haskell之Functor、Applicative、Monad
- 自定义多行多列的RadioGroup
- 经典算法心得
- 小小冒泡法