Question

VB6中一数字每隔20另一个数字自动加1怎么编？

两个 text(text1和text2）
在text1中输入一个数字，如果这个数字每达到一个基数20，text2中自动加1
比如
输入text1=20 那么 text2=1
text1=35 text2=1
text1=68 text2=3
...

就是这样形式的，请问要怎么写代码？谢谢
.

.

Answer 1

Private Sub Text1_Change()
Text2 = Text1 \ 20
End Sub

说明“\”是整除