在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
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
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容