VB6中textbox与label值运算出现类型不匹配问题如何解决？

错误原因 #

报错的核心是运算逻辑顺序错误：你当前的代码是先对两个字符串类型的属性（文本框的CTcash.Text、标签的CLtotaloutput.Caption）做减法运算，再将运算结果传入Val()转数值，字符串本身无法直接执行算术运算，因此触发类型不匹配错误。

修复方法 #

你需要先分别把两个控件的值转为数值类型，再执行减法计算，仅修改报错行即可解决问题：

bill = Val(CTcash.Text) - Val(CLtotaloutput.Caption)

优化后的完整代码 #

你后续对bill的判断重复调用了Val()，已经是数值类型的变量不需要重复转换，可直接简化逻辑：

Private Sub CTcash_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        ' 先分别转数值再做减法
        bill = Val(CTcash.Text) - Val(CLtotaloutput.Caption)
        If bill > 0 Then
            Change.CLchange.Caption = Format(bill, "Rp\. ###,###,###.-")
            Change.Show
        ElseIf bill < 0 Then
            MsgBox "Not Enough Money", vbOKOnly, "Invalid"
        End If
    End If
End Sub

补充说明 #

• 如果两个控件的值可能包含非数字字符，建议提前加合法性校验，避免Val()转数值得到0的异常结果
• 也可以根据业务精度需求改用CDbl()或CInt()做类型转换，适配不同的数值场景

内容的提问来源于stack exchange，提问作者Nevyllo Kalangi