单选题 在窗体上画一个文本框，名称为Textl，然后编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private 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=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容______。