填空题 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Comrnand1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String,s As String,c As String str=UCase(Text1) S="" C="Z" While c>="A" If lnStr(str,C)=0 Then s={{U}} 【7】 {{/U}} End If c=Chr$(Asc(C){{U}} 【8】 {{/U}}) Wend If s<>""Then Text1=S End If End Sub
  • 1、
【正确答案】 1、[7]S+C或s&c    
【答案解析】[8]-1 [评析] 题目要求把输入的字符串中没有的字符显示出来,InStr(sb,c):0就是指字符串中没有该字符,就要把该字符加入到变量s中,即s=s+c(或s=s & c):题目是从“z”~“A”循环查找的,找完一个,就找下一个,而从“Z”~“A”字符的ASCII码是逐渐减小的,所以c=ChrS(Asc(c)-1)。