VB6 不支援这种做法。 简单一点都是先宣告一个超过型别的变数，例如 4 bytes 整数。 法 a. 用 If 叙述判断是否超过 32767 ，是就减掉 65536 ，再利用型别转换函数转回 2 bytes 整数。 法 b. 算完後用记忆体拷贝复制前 2 bytes 。 ==> 本文由 "要研不要延 <[email protected]>" > 於 news:4WTIGJ%246fe%40ptt.cc 发表 > > 在VB6.0中如果产生溢位的话 会跳出错误的讯息 > 但是我想照样把值算出来 > 请问有办法处理吗?? > code====== > Private Sub Command1_Click() > Dim c As Integer > a = Val(Text1.Text): b = Val(Text2.Text) > c = a + b > Text3.Text = c > End Sub > ==== > 最後计算 32767+1 希望得到 -32768(溢位值) > -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.7 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14 TechNet: http://forums.microsoft.com/technet-cht/default.aspx?siteid=23 -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language