Question

在线等，急需一个VB小程序，清除冒号右方的第一个数字

设计一个VB小程序，在文本框输入或粘贴一段数字，点击按钮后清除所有冒号（该冒号为英文输入法的冒号:不是汉字输入法的冒号：）右方的第一个数字（无论该冒号离第一个数字有多远，即允许冒号后面的数字有多个空格或下一行）。举例：
123:367:68904:3578: 5698:
2349:
123
则要清除的数字为363521，其它数字全部保留。要求自己验证通过！不要错误的还发！！万分感谢。
大虾们帮帮弟弟吧，我分不多，全给了

Answer 1

Private Sub Command1_Click()
Dim i As Long
Dim s As String
Dim r As String
Dim F As Boolean
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If s = ":" Then
F = True
End If
If Not (F = True And IsNumeric(s) = True) Then
r = r & s
Else
F = False
End If
Next i
Text1.Text = r
End Sub
'记得textbox的multiline属性是true，添加一个按钮即可