单选题在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Text!.Text="":Text1.SetFocus
End Sub
Private Sub Form_Click()
Dim a As String, s As String
a=Text1.Text:s=""
Fork=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
Text1.Text=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容

A、与原字符串相同
B、与原字符串中字符顺序相同，但所有字母均转换为大写
C、为原字符串的逆序字符串，且所有字母转换为大写
D、为原字符串的逆序字符串

【正确答案】 C

【答案解析】[解析] Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。