小弟刚刚学VB不是很懂，望高手指教。一个字串： E123IAD9912JAF8D （这个是随机的，A~Z 或者1~9都有。）如何把这个字串的英文都去掉？剩下数字？请求有详细代码，我菜 啊～～～～～～～～～～～
參考答案:编写成一个子函数，程序的通用性，可读性会更强
Private Function quzimu(str As String) '自定义函数，输入字符串，去掉字母后输出
Dim outstr As String '临时存放输出字符串
outstr = ""
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then
outstr = outstr + Mid(str, i, 1) '是数字则送输出字符串
End If
Next i
quzimu = outstr
End Function
程序中的调用方法举例：
Private Sub Command1_Click() '将text1输入的字符串去字母送text2输出
Text2.Text = quzimu(Text1.Text) '调用自定义函数
End Sub
运行效果图：
