[填空题] 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母

[填空题] 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后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 Instr(str，c)=0 Then

s= (6)

End If

c=Chr $ (Asc(c) (7) )

Wend

If s＜＞""Then

Text1=s

End If

End Sub

-1

本题考查的是字符串的操作。从题意来考虑，如果c在字符串中没有找到，即字符串不包含此字符，则将该字符赋给s，所以[6]应填入的内容是"s+c"；然后将c赋予其他字符进行检验，从该题来看，应该是按字母表逆序检验，所以其ASCII码值依次减1，故[7]处应填入的是"-1"。