vb溢出错误，6，怎么解决？谢谢

Question

Private Sub Text2_change()
gbzcsj = Val(Text2.Text)
If gbzcsj < 0 Then
gbzcsj = 0
End If
gbzcf = gbqz * gbzcsj / gbzcmb
gbzcf.Caption = "此项得分：" & gbzcf

End Sub
变量全部定义的double，溢出是什么原因？
另外我是想让text中只能输入数值，可以有小数点，怎么写

Answer 1

这段代码不应该放在 change中吧？这样不是输一个字符计算一次？
溢出是因为 gbzcmb =0吧？试一下：
if gbzcmb<>0 then gbzcf = gbqz * gbzcsj / gbzcmb

如果只让text1输入 0-9和小数点，可以如下：
Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then Exit Sub
t = Asc(Right(Text1.Text, 1))
If Not (t = 46 Or (t > 47 And t < 58)) Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

追问

我想画2个text和一个label
text中只能输入数字，然后同时label中出结果
除数那个text可以在失去焦点时候在转换为数值型，怎么办..
帮我先设计这个吧，谢谢大神..

追答

新建工程，添加text1,text2,label1三个控件，代码如下：
text1与text2输入的处理差不多。都是输入一个处理一个。如果除数是0就不处理，你可以自己加提示。
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_Change()
'被除数
If Len(Text1.Text) = 0 Then Exit Sub
t = Asc(Right(Text1.Text, 1))
If InStr(Text1.Text, ".") 47 And t 0 Then
Label1.Caption = Val(Text1.Text) / (Text2.Text)
End If
End Sub

Private Sub Text2_Change()
'除数
If Len(Text2.Text) = 0 Then Exit Sub
t = Asc(Right(Text2.Text, 1))
If InStr(Text1.Text, ".") 47 And t 0 Then
Label1.Caption = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

追问

这个程序很好的解决了我的问题，谢谢
我想再请教下，我在最后
Label1.Caption = Val(Text1.Text) / Val(Text2.Text)

后边乘以15怎么结果变成0了

追答

text1里输入值了？text1,text2都不能是0

追问

输了 结果可以显示正确，但是怎么乘以一个数以后就变0了..
另外 我还想输入个负号怎么办..

追答

Private Sub Text1_Change()
'被除数
If Len(Text1.Text) = 0 Then Exit Sub
t = Asc(Right(Text1.Text, 1))
If InStr(Text1.Text, ".") 47 And t 0 Then
Label1.Caption = Val(Text1.Text) / (Text2.Text) * 15
End If
End Sub
text2的修改你参考修改吧。*15，你是这么输入的？应该没问题的。

追问

能给个邮箱么，我想让你看看我这个程序 问题出在哪里..十分感谢

追答

看了你的代码，变量的问题
dim zhiwei, gbqz As Integer 这个变量的定义只在它定义的模块内有用。按你的程序应该定义为全局变量。
Public zhiwei, gbqz As Integer
放到程序的最开始，不在任何子程序里。或者单建一个模块，放到模块中。
这样每次运行时，点一下职位一，给 gbqz 赋值为15，然后计算才有效。

Answer 2

单步调试，看看溢出时 gbzcf = gbqz * gbzcsj / gbzcmb 这些变量具体值是什么。

Answer 3

直接用
gbzcf.Caption = "此项得分："& gbqz * gbzcsj / gbzcmb

试试看呢

追问

还是溢出.

Answer 4

gbzcf是什么？是一个变量还是一个Label控件？

追问

gbzcf.Caption = "此项得分：" & gbzcf
前一个是控件 后一个是变量
是不是不能同名？

追答

是的！