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