Question

VBtext里输入一段字母和数字如何将数字挑出并显示在text2中

代码如何写

Answer 1

你可以通过将每个数据都设为同样长度来使数据对齐，并且每行放置相同个数的数据，这样既可保证长度一致。举个例子：比如1，12，123，可以写成001，012，123，可以用空格代替0。具体操作时你先确定一个最长数据长度，比如最长10位吧，然后长度短于10位的用空格补齐，对于每个数据n，先输出空格space(10-len(n))，再输出数据本身

Answer 2

for i=1 to len(text1.text) if asc(mid(text1.text,i,1)>47 and asc(mid(text1.text,i,1)<58 then msgbox "第" & i & "位是数字 " else msgbox "第" & i & "位是其它字符" endif next i 可以通过ascII码判断是数字还是... 然后放在另个temp变量里，赋值你应该会的。。。

Answer 3

Private Sub Command1_Click() Dim str1() As Byte Dim a Dim ss As String ReDim str1(Len(Text1.Text)) str1 = Text1.Text For Each a In str1 If a > 47 And a < 58 Then ss = ss & " " & Chr(a) Next Text1.Text = ss End Sub