在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load()   Show   Text1.Text=""   Text1.SetFocus End Sub Private Sub Form_Click()  

admin2019-03-14  25

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

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

答案C

解析 程序中Mid函数从输入字符串左边开始逐一取一个字符转换为大写,并连接到上次取出的字符的前面,因此文本框中显示的将是原输入字符串转换为大写的并倒序排列的字符串。所以C正确。
转载请注明原文地址:https://jikaoti.com/ti/gTN0FFFM
0

最新回复(0)