在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文

25 查阅

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

End If

c = Chr$(Asc(c) 【8】 )

Wend

If s <> "" Then

Text1 = s

End If

End Sub

参考答案:

s&c -1

计算机二级