在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的

admin2010-03-30  42

问题 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
   Private Sub Command1_Click()
     Dim  str  As  String,s  As  String,c  As  String
     str=UCase(Textl)
     s = " "
     c = "Z"
     While c>="A"
       If InStr(str,@C@=0 Then
         s = ______
       End If
         c = Chrs(Asc(C______)
       Wend
       If  s<>" "  Then
         Text1 = s
       End  If
   End  Sub

选项

答案s+c或s&c,-1

解析 本题是一个综合性题目,难度较大,需要仔细分析题意。首先应清楚UCase函数,InStr函数,Chr$函数和Asc函数的概念。UCase函数是返回以大写字母组成的字符串;InStr函数可以找到指定的字符串在另一字符串中最先出现的位置。Chr$函数将Ascii代码转换成字符串。Asc函数将字符串转换成Ascii代码值。程序首先将文本框中的字符串转换为大写,然后从A到Z循环,判断每个字符是否存在于文本框字符串中,如果有则循环,如果没有则将字符串连接起来赋给变量s,循环结束后,将s输出。
转载请注明原文地址:https://kaotiyun.com/show/ti1p777K
0

最新回复(0)