即使妳用的是VB中數據範圍最大的decimal，但他總是有限的。
而且妳乘法的最大可能結果太大，所以必須限制輸入數據。
當然還有壹個辦法就是做壹個錯誤處理，在溢出的時候給出錯誤提示，以免讓程序無法繼續運行。
代碼如下:
選項？明確的
私人？Sub？Command1_Click()
暗淡？n？作為？整數，？m？作為？整數，？k？作為？整數，？總和，？代表
開？錯誤？GoTo？錯誤處理程序
n？=?CInt(Text1。正文)
m？=?CInt(文本2。正文)
k？=?普通
SUM？=?CDec(1)
做什麽？什麽時候？k？& lt=?M
SUM？=?SUM？*?K
k？=?k？+?1
環
簡歷？cont2
續:
文本2。文字？=?k？-?1
cont2:
短信3。文字？=?總和
退出？潛水艇
錯誤處理程序:
代表？=?MsgBox("錯誤原因:"？& amp？呃。描述，？vbOKOnly，？呃。來源？& amp？“發生了壹個錯誤”)
簡歷？連續的
結束？潛水艇
私人？Sub？Text1_GotFocus()
Text1。SelStart？=?0
Text1。塞倫思？=?Len(Text1。正文)
結束？潛水艇
私人？Sub？Text2_GotFocus()
文本2。SelStart？=?0
文本2。塞倫思？=?Len(文本2。正文)
結束？潛水艇