vb的一些問題2

编写一个程序，其功能是：单击“输出”按钮时，将文本框中的字符串反序显示在标签中，并删除原字符串中的数字字符。例如，输入字符串A1B2C3D，则输出字符串DCBA。窗体用A6.frm文件名保存，工程用A6.Vbp文件名保存。

Private Sub Command1_Click()
  Dim i As Long, n As Long, s As String * 1
  n = Len(Text1)
  Label2 = ""
  For i = n To 1 Step -1
    s = Mid(Text1, i, 1)
    If s >= "0" And s <= "9" Then
    s = ""
    Else
    Label2.Caption = Label2.Caption & s
    End If
  Next i
End Sub

private sub command1_click()

for i=len(text1.text) to 1 step -1

strtmp=mid(text1.text,i,1)

if isnumeric(strtmp)=false then label1.caption=label1.caption&strtmp

next

end sub

5177.035关注此问题， 望高手回答 QQ447186060 自动分类答题器 QQ问问专用