我想实现的具体功能是:一个打印的功能文本框中有数字100,
我输入,10,2, 就是打印10,2次. 还剩80
在输入5,5,就是打印5,5次  还剩数字(80-25)=55
在输入8,5        8,5次   还剩15
.......................谁有列子给我参考一下,谢谢了.可以在开贴给分.
给思路也行,

解决方案 »

  1.   

    简单测试了下,可以
    嘿嘿,继续写Dim a, b, c, d As String
    a = Trim(Text1.Text)
    c = Trim(Text3.Text)
    d = Trim(Text4.Text)b = a - c * dText2.Text = b
      

  2.   

    Option Explicit
    Dim cValue As LongPrivate Sub Form_Load()
            Text1.Text = 100
            cValue = 100
            Text2.Text = ""
    End SubPrivate Sub Text2_Change()
            On Error Resume Next
            Dim cV() As String
            cV() = Split(Text2.Text, ",")
            Debug.Print cV(0), cV(1)
            cValue = Val(Text1.Text) - Val(cV(0)) * Val(cV(1))
            If cValue >= 0 Then Text1.Text = cValue
    End Sub