学VB也有2个星期了，我自己写了个小程序，但是觉得很烦琐
大家来看看，如何简化更好

Private Sub Command3_Click()
If m = 1 Then
Text1(0).SetFocus
End If
If m = 2 Then
Text1(1).SetFocus
End If
If m = 3 Then
Text1(2).SetFocus
end if
..........

Private Sub Command10_Click()
Select Case m
Case 0:
Text1(0) = Text1(0) - 10
Case 1:
Text1(1) = Text1(1) - 10
Case 2:
Text1(2) = Text1(2) - 10
Case 3:
Text1(3) = Text1(3) - 10
..........


以上2段程序虽然看上去挺简单，但是，如果textbox控件数组越大，那么程序就会越长
如果做大型工程的话，估计这样不太可行吧？
大家来一起看看，如何简化下更好呢？

i=0

for i to 10
Case i:
Text1(i) = Text1(i) - 10
enxt


不知道对不对

Private Sub Command3_Click()
m=m-1
text1(m).SetFocus
...........................

Private Sub Command10_Click()
text1(m)=text1(m)-10