在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Show Text1.Text＝"" Text1.SetFocusEnd SubPrivate Sub Form_Click() Dim a As String， s As String a＝Text1.Text s＝"" For k＝1 To Len(a) s＝UCase(Mid(a， k， 1))＋s Next k Text1.Text＝sEnd Sub程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容( )。