假设有以下程序：PrivateSubCommand_Click()s=UCase(Text.Text)s=””Fori=Len(s)ToSteps=s+Mid(s，i，)NextiText.Text=sEndSub程序运行时，Text中输入“abc”，则Text中显示：