请各位大师帮忙给个能把100转化为42c80000的VB6.0代码!!!

alainchen1983 2012-11-13 01:08:09
请各位大师帮忙给个能把100转化为42c80000的VB6.0代码!!!
...全文
261 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2012-11-17
  • 打赏
  • 举报
回复
大家继续猜楼主真实想问的是什么,猜中有分可奖,哈哈.
王二.麻子 2012-11-16
  • 打赏
  • 举报
回复
引用 4 楼 zdingyun 的回复:
引用 楼主 alainchen1983 的回复:请各位大师帮忙给个能把100转化为42c80000的VB6.0代码!!! 是将100转换为Single数据类型的4个字节并以16进制字符串显示: Visual Basic code?123456789101112131415161718Option Explicit Private Declare Sub ……
我幻想到他可能是100转换成single,double之类 嘿嘿,还是你有心去验证了
zdingyun 2012-11-15
  • 打赏
  • 举报
回复
引用 楼主 alainchen1983 的回复:
请各位大师帮忙给个能把100转化为42c80000的VB6.0代码!!!
是将100转换为Single数据类型的4个字节并以16进制字符串显示:
Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Dim i As Long
Private Sub Command1_Click()
    Dim hexData As String
    Dim a As Single
    Dim Buffer(3) As Byte
    a = 100
    CopyMemory Buffer(0), a, 4
    For i = 0 To 3
        If Len(Hex(Buffer(i))) = 1 Then
            hexData = "0" & Hex(Buffer(i)) + hexData
        Else
            hexData = Hex(Buffer(i)) + hexData
        End If
    Next
    Debug.Print hexData
End Sub
贝隆 2012-11-15
  • 打赏
  • 举报
回复
引用 1 楼 yiguangqiang88 的回复:
Visual Basic code? 123 Dim s as Strings="100"Debug.Print "42c800" & Right(s,2)
  • 打赏
  • 举报
回复
这样提问,大侠们真的不好回答你。学习下提问的艺术吧。 锅搞笑一次,不用给分。哈哈哈哈
  • 打赏
  • 举报
回复
Dim s as String
s="100"
Debug.Print "42c800" & Right(s,2)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧