VB表达式运算结果的类型不对

来源：蜘蛛抓取(WebSpider) 时间：2017-10-18 17:29 标签： 5 3的运算结果是
欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 2054 人关注过本帖
标题：新手求助vb 中进行算术运算显示“实时错误 13 类型不匹配 ”帮忙看看错在哪 ...
等　级：新手上路
&&已结贴√
&&问题点数：20&&回复次数：6&&&
新手求助vb 中进行算术运算显示“实时错误 13 类型不匹配 ”帮忙看看错在哪里了
刚刚接触到VB几天&&&
代码如下：&&&&&&
&&Dim Value As Single&&&
&&&&&Dim ret As Long&&&
&&& ret = GetVAValue(&流量A&, Value)&&&
&&& Text3.Text = Value&&&&&
&&&seddata(5) = Hex(Value \ 65536)&&&
&&& seddata(6) = Hex(Value \ 256)&&&
&&&seddata(7) = Hex(Value Mod 256)&&& 错误时显示seddata(6) = Hex(Value \ 256)这一行为黄色，
设计过程是这样的：例如 value的数值为250000 转换为16进制后为3D090
用value除以65536&&&&&&&&&&&&&&&&&&&&&则seddata(5)为16进制的03
用value除以65536后取余 在除以256&&&&&seddata（6）为16进制的D0&&
用value除以65536后除以256取余&&&&&&&&seddata（7）为16进制的90
现在value的数值在当前为3200 ，为什么会显示错误，数组定义为 Dim seddata(0 To 30) As Byte&&&不知道错在哪里了，希望高手来解释一下啊。
搜索更多相关主题的帖子:
等　级：新手上路
各位兄弟们&&不要只是路过啊&&&一定要留下点东西啊
来　自：神界
等　级：版主
威　望：363
帖　子：12336
专家分：48792
&流量A&, seddata 都是啥东东啊
DO IT YOURSELF !
等　级：新手上路
&&& ret = GetVAValue(&流量A&, Value)&&&&&这一句不用管 因为是直接引用的外部数据&&
等　级：贵宾
威　望：87
帖　子：4100
专家分：28049
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
除seddata(5)正确外，其他错误。
seddata(6)=(Value mod 6
seddata(7)=Value mod 256
这样才会得到正确值。hex函数返回的是字符串，正好你seddata(5)得数为03，系统自动转了，第二个数为3D0，系统就无法识别了，所以出错。版主说去掉hex是正确的。
[ 本帖最后由 lowxiong 于
12:25 编辑 ]
等　级：新手上路
解决了&&确实是把hex去掉就对了&&&感谢版主 感谢大家的支持。
版权所有，并保留所有权利。
Powered by , Processed in 0.066689 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights ReservedVB程序运行时显示的错误数字解释_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB程序运行时显示的错误数字解释
你可能喜欢VB6程序运行错误Run
我的图书馆
VB6程序运行错误Run
运行错误Run-time
: Tabctl32.ocx的解决办法［问题］&&& 最近一段时间与教研室的各位老师在做一个山东省一级OFFICE模拟软件时，前面的开发工作一切顺利，却在后面的运行阶段出现了一个似乎有些莫名其妙的错误，完整的错误提示如下：Run-time error '339':Component 'Tabcl32.ocx' or one of its dependencies no correctly registered: a fiel is missing or invalid［简要分析］&&& 乍从字面错误来看，是控件Tabcl32.ocx有关的问题。我所使用的安装软件是Inno setup，这是个轻量级的安装程序，特别适合于制作共享软件。因为你想开发共享软件的话，如果使用像INSTALL SHIELD这样的大型重量级安装软件（当然功能也更为齐全）的话，自然可能导致版权的问题，特别如果是你想在国外发行你的软件的话。所以，经网友推荐使用了轻量级的Inno setup。这个安装软件无论对于VC或是VB，或是DELPHI开发的软件的安装制作都支持得很好，仅是许多操作需要手工进行。正是这一点导致了上述错误。&&& 因为使用VB6开发软件时，VB本身需要各种各样的控件（.OCX），而这些控件在系统安装文件的后期制作过程中自然需要考虑在内，有些是必须由安装程序复制到目标机器的。但是，我们开发的这款软件，没有用到特别的OCX控件，更没有涉及到复杂的第三方控件。怎么会出现上述错误呢？&&& 在学校机房中在所有安装有VB6的XP机器上运行安装软件并实际使用软件没有任何问题。但是，有些老师在没有安装VB6的XP机上运行安装软件后，在具体进行系统后出现上述错误提示。［第一次试验］&&& 根据上述错误提示，我在Inno setup的脚本中添加了如下语句：[Files]Source: C:\WINDOWS\system32\tabctl32. DestDir: {sys}; Flags: regserver resta结果错误依然如上，？？？［第二...N次试验］&无奈之下，只好打开了。根据老思路，先使用中文GOOGLE，也找到许多类似的疑问，但是都没有理想（或者说是可行的方案）。在无奈之下，只好又进入了英文GOOGLE，输入几乎全部上述错误提示，终于在如下地址找到了一种解决办法：/archive/index.php/t-483366.html&&& 于是，我重新修改了在Inno setup的脚本，并结合自己的系统进一步添加了如下完整的语句：Source: C:\WINDOWS\system32\richtx32. DestDir: {sys}; Flags: regserver restaSource: C:\WINDOWS\system32\comdlg32. DestDir: {sys}; Flags: regserver restaSource: C:\WINDOWS\system32\mscomctl. DestDir: {sys}; Flags: regserver restaSource: C:\WINDOWS\system32\tabctl32. DestDir: {sys}; Flags: regserver resta重新编译上述脚本，生成新的安装文件SETUP.EXE。一切OK了！！！［截图欣赏］&&& 下面是我主持开发的拙作的一个典型快照：唉，真是苦尽甘来，这真是个硬道理啊！
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢

我要回帖

更多关于 5 3的运算结果是 的文章

 

随机推荐