VB作业求助

CodePudding user response:

Add my qq: 527524938

CodePudding user response:

 Private Sub Command1_Click () 
Dim the find As String 
Dim the address As a String 

To find=InputBox (" please enter your search string ") 
Address=InStr (1, Text1. Text, find) 

If the address & lt;> 0 Then 
Text1. SelStart=address - 1 
Text1. SelLength=Len (find) 
Text1. SetFocus 
The Else 
MsgBox "could not find the string" 
End the If 
End Sub 

The next picture please computer screenshots, don't use their cell phones, mobile phone taps also please clear point