VB编程问题，VB怎么编写筛选号码？

来源：百度知道 编辑：UC知道 时间：2024/07/07 14:15:35
怎么用VB编写筛选号码，QQ的，只分有带4和没有带4的号码
希望高手写出代码！！
初学VB，望见谅
由于财富不多，希望能在答案后追加分~谢谢
有两个文本框，第一个是导入QQ文本的，第二个是显示筛选结果的，
谢谢你们的回答，可惜太过于简单。

Private Sub Command1_Click() '加Command控件
Dim qqno As String
Dim i As Integer
qqno=InputBox("输入QQ号:"); '可以以其他方式获得QQ号
For i=0 To len(qqno)
If Mid(qqno,i,1)="4" Then '有"4"
....
Else
....
End If
Next i
End Sub

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "4" Then
Print "有四"
Exit Sub
End If
Next

Print "没事"
End Sub

循环啊，一个一个判断，是4就去除