yogod的个人资料 - RAT

yogod yogod

关注数: 9 粉丝数: 12 发帖数: 558 关注贴吧数: 8

上海移动依旧不好用上海移动依旧不好用

围棋入门的帖子，给个目录链接吧，谢谢围棋入门的帖子，给个目录链接吧，谢谢

十进制转换16进制溢出，求解 ' 用途：将十进制转化为十六进制 ' 输入：Dec(十进制数) ' 输入数据类型：Long ' 输出：D2H(十六进制数) ' 输出数据类型：String ' 输入的最大数为2147483647,输出最大数为7FFFFFFF Public Function D2H(Dec As Long) As String Dim a As String D2H = "" Do While Dec > 0 a = CStr(Dec Mod 16) Select Case a Case "10": a = "A" Case "11": a = "B" Case "12": a = "C" Case "13": a = "D" Case "14": a = "E" Case "15": a = "F" End Select D2H = a & D2H Dec = Dec \ 16 Loop End Function 上面是超过2147483647溢出的代码，下面是922337203685477以为不溢出的 Public Function DEC_to_HEX(Dec As Currency) As String Dim a As String DEC_to_HEX = "" Do While Dec > 0 a = CStr(Dec - 16 * Int(Dec / 16)) Select Case a Case "10": a = "A" Case "11": a = "B" Case "12": a = "C" Case "13": a = "D" Case "14": a = "E" Case "15": a = "F" End Select DEC_to_HEX = a & DEC_to_HEX Dec = Int(Dec / 16) Loop End Function 求解答，为什么，谢谢

十六进制4字节逆序排列实现及疑问 Dim Lba As Long Dim HexString As String Dim InvertedHex As String Lba = Val(Text1.Text) HexString = Hex(Lba) HexString = Replace(Format(HexString, "@@@@@@@@"), " ", "0") '按照十六进制4字节补0输出 Text2.Text = HexString InvertedHex = Mid(HexString, 7, 2) & Mid(HexString, 5, 2) & Mid(HexString, 3, 2) & Mid(HexString, 1, 2) '按长度分段读取 Text3.Text = InvertedHex 疑问1、hex函数是不是有长度要求，即使long改为double，3000000000左右至4294967295报溢出错误疑问2、在知道看到回答，用AND可以实现十六进制取高低位，用系统自带计算器能实现，可是在编写过程中，一直报类型错误，还没解决

近40岁的大叔，入门学VB，发帖做笔记兼激励自己刚刚看了一下VB发布的时候，1998年，也是我走出校门的时间。之后在单位学校徘徊过，作为非计算机专业的人员，计算机是近15年来，我赖以生存的工具。最近有点时间，我就学习VB了，让我重回上世纪的学习时光…… VB吧的帖子和人员可能随着计算机VB考试，每年沉淀更替，发帖量超过1000的估计都是大神了。我用了一本电子工业出版社的《Visual Basic 6 从入门到精通》，1999年版的，算是和我的学生时代相匹配。学习目的：说没有功利心是不现实的，但的确不用为了应付考试而去学习，我的想法是把我平时工作中积累下来的用其他软件需要手工处理的事情，通过自己的编程实现出来。这样我的学习侧重点就是：文件系统和存储设备的扇区操作。目前的学习进度：变量、常量、流程控制和循环

已经连续签到：188天从去年圣诞节开始至今………… 已经连续签到：188天

小学四年级数学题目，看看大家会做吗？求周长！！上图的角都是直角

我的新年第一帖，被吃掉了，再补一个祝大家新年快乐！

发帖纪念一下我的ID蓝名高亮显示！！明天就可以用橙色了

更新慢，没人气这里看了这么久，最近觉得越来越不给力了都不想追了

没有人气啊怎么没有人更新啊，我来做吧

加班中，发个水贴，等更新等更新

建个平房吧，挺官策近半年来，喜欢上了官场小说，前前后后看了几十本吧目前追着看的有4本，本人特不喜欢穿越题材的，甄选一下也没发现多少好看的初看官策，没有觉得有特吸引我的地方继续读下去，越来越觉得不像一本网络小说，作者有时候惜字如金，思维的跳跃很大不温不火的更新速度，更体现出作者的心态平和期待这本书更好的发展，这也要看作者了解的层次了按着作者的风格可能会戛然而止，不会狗尾续貂的

1 下一页