vb中的十六进制
来源:互联网 发布:数据采集监控 编辑:程序博客网 时间:2024/06/18 13:31
Private Sub Command1_Click()
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 230: b = 16
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print yushu & s
End Sub
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 230: b = 16
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print yushu & s
End Sub
0 0
- vb中的十六进制
- VB 二进制,八进制,十进制,十六进制转换
- [VB]十进制/十六进制/二进制 间的转换
- 内存中的 double 与 十六进制
- php中的二进制、八进制、十六进制
- vb mscomm1串口通信接收发送十六进制数据
- 采用vb以十六进制的形式读取文本文档数据
- 求给定一个正整数的十六进制表示 vb
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 十六进制
- 第12周项目3 数组类运算的实现
- Pyhon2.7.8内建函数
- dubbo异步同步调用混合使用问题
- AIDL 进程间通信
- Hello World_Linux篇——测试gcc和g++是否可用
- vb中的十六进制
- java jar服务部署脚本编写
- CSV模块使用时的几个问题及解决方法
- c/c++原子操作 接口函数 自查文档
- idea编辑器注册方法
- 冒泡排序法---vb
- 添加shell命令别名
- Run Loop是什么,使用的目的,何时使用和关注点
- angularJs初学遇到的坑之directive