问题 填空题

在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的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= 【1】

End If

c=Chr$(Asc(C) 【2】 )

Wend

If s<>""Then

Text1=S

End If

End Sub

答案

参考答案:[1]S+C或s&c;[2]-1

解析:

[评析] 题目要求把输入的字符串中没有的字符显示出来,InStr(sb,c):0就是指字符串中没有该字符,就要把该字符加入到变量s中,即s=s+c(或s=s & c):题目是从“z”~“A”循环查找的,找完一个,就找下一个,而从“Z”~“A”字符的ASCII码是逐渐减小的,所以c=ChrS(Asc(c)-1)。

单项选择题
单项选择题