这主要是定义的数据类型不能满足要求导到的如 integer是有符号数占两个节！最大表示65535，你的计算的值超过了它能装下的数据，就溢出了
成都创新互联是一家集网站建设,抚顺县企业网站建设,抚顺县品牌网站建设,网站定制,抚顺县网站建设报价,网络营销,网络优化,抚顺县网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
1、
虚拟内存
不宜设得过大，不能超过2G（2048M）
2、可试用
系统还原
解决。用它容易见效且不费时间。方法：右键“我的电脑”——属性——系统还原——设置——关闭其它盘监视
C盘
——确定。然后点“开始”——程序——附件——
系统工具
——系统还原。系统会提示你一步步恢复原点而恢复正常的。
这样就不会溢出了：
Private
counter(1)
As
Double
Private
Sub
Command1_Click()
Dim
a
As
Double
a
=
Val(Text1.Text)
counter(0)
=
a
MsgBox
"给数组中的一个元素赋值成功"
End
Sub
用VB编程时提示错误"溢出"是赋值超出目标（内存）的限制而产生的错误。
溢出（错误 6）
当赋值超出目标的限制时，就会发生溢出。此错误有以下的原因和解决方法：
赋值、计算或数据类型的结果的转换太大，以致于不能在变量类型所允许的范围内表示出来。
赋值给足够表示值的范围的类型的变量上。
给属性的赋值超过属性能接受的最大值。
确保赋值适合属性的范围。
试图在计算中使用一个数字，并且该数字被强制为一个整数，但是结果超过了整数的范围，例如：
Dim x As Long
x = 2000 * 365 ' 错误: 溢出
要解决这个问题，请按如下方式键入该数字：
Dim x As Long
x = CLng(2000) * 365
你好，你这样的问题我在做vb的时候也遇到，而且是经常，很容易解决，首先工程另存为你指定的位置，然后关闭软件，然后从新打开vb软件
在导航栏文件选项打开工程，找到你原先保存的那个保存了的作业，然后再重新生成工程组就行了。
