VB验证Text1

来源：百度知道 编辑：UC知道 时间：2024/06/21 18:23:15
Form1中添加了Text1,输入代码，结果是:
在Text1输入了"kkkkkkssoVBdf",弹出对话框"此文本框中包含VB!"
如果在Text1输入了"kkkkkkssoVdfB",还是弹出对话框"此文本框中包含VB!"
怎样制作

Private Sub Command1_Click()
If InStr(UCase(Text1.Text), "VB") <> 0 Then MsgBox "包含VB"
End Sub

楼上不能解决VB不在一起的情况,用我这个,得分!哈哈

If Instr(Text1.Text,"V")<>0 And Instr(Text1.Text,"B") <>0 Then
Msgbox "此文本框中包含VB!"