VB中，怎么把输入的文本中的英文字母提取出来如在TEXT1中输入"12aA3b4B5",在text2中显示为aAbB,需要按顺序显示完善下面的代码：PrivateSubFormClick()dims$,y$s=trim()y=""fork=1tox=mid(s,k,1)if

Question

VB中，怎么把输入的文本中的英文字母提取出来如在TEXT1中输入"12aA3b4B5",在text2中显示为aAbB,需要按顺序显示 完善下面的代码： Private Sub Form_Click() dim s$,y$ s=trim( ) y="" for k=1 to _______ x=mid(s,k,1) if _______________ then y=________________ end if next text2.text=y end sub 请高手解决下，新人，没多的分，谢谢了

Answer 1

Private Sub Form_Click() dim s$,y$ s=trim(text2.text) y="" for k=1 to len(s) x=mid(s,k,1) if "A"<=x and x<="Z" or "a"<=x and x<="z" then y=y & x end if next text2.text=y end sub