//Variable declaration is required
Option explicit
//define a form-level local character variable putword.
Dims the input word as a string.
//Click event of the form
Private Sub-Form _click ()
//Define character variables phrase and nextword, and shape variable Blankposition.
Dim phrase is a string, nextword is a string, and Blankposition is an integer.
//Use the input dialog box to enter an English assignment for the phrase.
Phrase=InputBox (please enter an English sentence)
//Find the position of the space in the phrase and assign it to the Blankposition.
Blankposition=InStr( 1, phrase, "")
//loop, provided that Blankposition is not 0, that is, the phrase still contains spaces and more than one word.
While Blankpositon & lt& gt0
//Assign the character before the first space, that is, the first word to the nextword.
newtword=Left(phrase，Blankposition- 1)
//& amp； Used to connect characters, put the leftmost character of nextword at the rightmost position, and add putword.
putword = putword & ampright(net word，Len(NEX word)- 1)& amp； Left(nextword， 1)& amp； " "
//Intercept the characters after the first space of the phrase.
Phrase=Right(phrase, Len(phrase)- blank position)
//Get the space position in the new phrase.
Blankposition=Instr( 1, phrase, "")
ring
//Make the above adjustments to the last remaining word without spaces.
Nextword = phrase
Print news
putword = putword & ampRight(nextword，Len(next word)- 1)& amp； Left(nexword， 1)& amp； ""Print words.
End joint
Is there anything you don't understand?