帮我看看，为什么会溢出呢？

Private Sub Text1_Change()
a = Val(Text1.Text)
Text1.Text = a + 10
End Sub

我想在text1中输入1，就变成11，输入100就变成110，咋不行呢？提示溢出�

59.172.160.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

你再加一句 :
if msgbox(text1.text, ,vbyesno)=vbno then end

画多一个文本框text2：
Private Sub Text1_Change()
a = Val(Text1.Text)
Text2.Text = a + 10
End Sub
原来那个进死循环了，输入“1”，引发Text1_Change事件，a=1，Text1.Text = 1 + 10=11；这又引发Text1_Change事件，Text1.Text =21……，如此循环下去。至于为什么报的是“堆栈空间溢出”错误，就不太懂了。

222.94.9.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

在加个if就行了，碰见死循环，在加个IF一般都能解决！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六