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

admin2017-04-25  64

问题 在窗体上画一个文本框,名称为Text1,然后编写如下程序:
    Private Sub Form Load()          Private Sub Form Click()
    Text1.Text="":Text1.SetFocus       Dim a As String,s As String
    End Sub                             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(字符串,起始位置[个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,UCase()函数用于将字符串中小写字母转化为大写字母,原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面,所以结果字符串是源字符串的逆序字符串。
转载请注明原文地址:https://jikaoti.com/ti/Ayy0FFFM
0

最新回复(0)