Question

VB中，在一个文本框中输入一些数字，却在另四个框中显示有多少个？只是阿拉伯数并且以100，50，10，1分类

只是阿拉伯数字，并且以100，50，10，1分类。
补充：比如说在框1中输入一些阿拉伯数，在下面的另几个框中分别显示 在输入的数中100有多少个？，50有多少个？，10有多少个？，1有多少个？
下面是小生我编的，请高手指点下其中的错误，呵呵，谢了
Private Sub Command1_Click()
Dim m As Integer, n As Integer, x As Integer, y As Integer
Dim i As Integer, w As Integer
Text1.Text = w
Text2.Text = m
Text3.Text = n
Text4.Text = x
Text5.Text = y
w = Text1.Text
For i = 1 To Len(Text1.Text)
If IsNumeric(w) Then
If w = 100 Then
m = m + 1
If IsNumeric(w) Then
If w = 50 Then
n = n + 1
If IsNumeric(intw) Then
If w = 10 Then
x = x + 1
If IsNumeric(w) Then
If w = 1 Then
y = y + 1

End If
Print m
Print n
Print x
Print y
End If
End If
End If
End If
End If
End If
End If
Next
End Sub

Answer 1

大哥，你这样肯定不行的啦
假如我输入1000，按照你那样编程，四个框里都是0

Answer 2

请问这个分类什么意思 100 50 10 1？