在窗体上画一个文本框，名称为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程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容______。