在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来

创建两个text控件 和一个command按钮控件 再输入以下代码 Private Sub Command1_Click() For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) If IsNumeric(a) = True Then Text2.Text = Text2.Text & a End If...