几进制的转换
2016-05-07 17:18
323 查看
Private Sub Command1_Click()
Me.Font.Size = 60
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 230: b = 2
While a <> 0
yushu = a Mod b
s = yushu & s
a = a \ b
Wend
Print s
End Sub
Me.Font.Size = 60
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 230: b = 2
While a <> 0
yushu = a Mod b
s = yushu & s
a = a \ b
Wend
Print s
End Sub
相关文章推荐
- html5新增加的表单元素-output
- HTML5网页打开摄像头,并拍照
- Bomb第三方支付
- 二叉数查找指定结点
- 一起学Netty(七)之 TCP粘包拆包基本解决方案
- 接口测试关注点、常用工具
- UVA, 820 Internet Bandwidth
- APP中缓存、加载与刷新机制设计
- html5新增加的表单元素-Keygen
- 2138的16进制简单的
- ContentProvider使用拾遗
- 十进制换成十六进制
- 一起学Netty(六)之 TCP粘包拆包场景
- 练习三 1003
- 一起学Netty(五)之 初识ByteBuf和ByteBuf的常用API
- MWC-MWC2.3代码RC数据接收代码理解
- 如何在github上展示作品——为你的项目生成一个快速访问的网址如(DaisyWang88.github.io)
- 韩信点兵(hanxin)
- 实验1--基于框架的应用系统开发框架选择原因及其说明
- 一起学Netty(四)之 ChannelHandler,ChannelHandlerContext,ChannelPipeline