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

Private Sub Command1_Click（ ）

D．im 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)

E．nd If

c = Chr$（Asc（c） (8) ）

Wend

If s <> "" Then

Text1 = s

E．nd If

E．nd Sub

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click() A=InputBox("请输入日期(1～31)") t="旅游景点:"_ & IIf(A＞0 And A＜=10, "长城"，"")_ & IIf(A＞10 And A＜=20，"故宫"，"")_ & IIf(A＞20 And A＜=30，"颐和园"，"") Text1.Text=t End Sub 程

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click() A=InputBox("请输入日期(1～31)") t="旅游景点:" & IIf(A＞0 And A＜=10,"长城","")_ & IIf(A＞10 And A＜=20,"故宫","")_ & IIf(A＞20 And A＜=30,"颐和园","") Text1.Text=t End Sub 程序运

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）D．im m As Integer, n As Integer, p As Integerm=3: n=5: p=0C．all Y（m, n, p）Print Str（p）E．nd SubSub Y（ByVal i As Integer, ByVal j As Integer, k As Integer）k=i + jE．nd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）D．im a（5） As StringF．or i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iF．or Each b In aPrint b;NextE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubcommand1_click()D．imaAsString,bAsStringa=InputBox("EntertheFirstinteger")b=InputBox("EntertheSecondinteger")Printb+aE．ndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果是( )A．456B．111C．567D．111456

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）s=1D．os=（s + 1） * （s + 2）Number=Number + 1Loop Until s >=30Print Number, sE．nd Sub程序运行后，输出的结果是（ ）。A．2 3B．2 56C．5 12D．10 20

[主观题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x=0D．o Until x=-1a=InputBox（"请输入第一个数字a的值"）a=Val（A）b=InputBox（"请输入第二个数字b的值"）b=Val（b）x=InputBox（"请输入第三个数字x的值"）x=Val（x）a=a + b + xLoopPrint aE．nd Sub在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 (9) 。

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a＝Array(1，3，5，7) s=O For i＝1 TO 3 S=S*10十a(i) Next i PrInt S End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753

[单选题]在窗体上画一个命令按钮，其名称为Command]，然后编写如下事件过程：程序运行后，单击命令按钮，消息框输出的是（ ）A． 48B． 72C． 96D． 128