Re: VB6.0 的溢位問題
VB6 不支援這種做法。
簡單一點都是先宣告一個超過型別的變數，例如 4 bytes 整數。
法 a. 用 If 敘述判斷是否超過 32767 ，是就減掉 65536 ，再利用型別轉換函數轉回 2 bytes 整數。
法 b. 算完後用記憶體拷貝複製前 2 bytes 。
==> 本文由 "要研不要延 <DRAGONLL.bbs@ptt.cc>"
> 於 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
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
2
9
Programming 近期熱門文章
PTT數位生活區 即時熱門文章