在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。

A．abcdefg

B．不显示任何信息

C．ABCDEFG

D．出错

[单选题]（ 31 ） 在窗体上画一个命令按钮和一个文本框 （ 名称分别为 Command1 和 Text1 ） ， 并把窗体的Keyprewie w属性设置为 True ，然后编写如下代码：D．im SaveAll As StringPrivate Sub Form_Load ()ShowText1.Text= ” ”Text1.SetFocusE．nd SubPrivate Sub Command1_Click()Text1.Text=Lcase(SaveAll)+SaveAllE．nd SubPri

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

[试题]（ 11 ） 在窗体上画一个命令按钮和一个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写如下事件过程 ：Private Sub Command1_Click()D．im inData As StringText1.Text = ""Open "d:/myfile.txt" For ( 14 ) As #1D．o While ( 15 )Input #1, inDataText1.Text = Text1.Text + inDataLoopC．lose #1E．nd

[单选题]在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1），并把窗体的KeyPreview属性设置为True，然后编写如下代码：程序

[单选题]在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual

[单选题]在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()D．im i As Integer，n As IntegerF．or i=0 T0 50i=i+3n=n+1If i>10 Then Exit ForNextTextl．Text=Str(n)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是A．2B．3C．4D．5

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

[试题]在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：Private Sub Command1_Click（）D．im inData As StringText1.Text=" "Open "d:|| ML ） ||Myfile txt" for ________ As #1D．o While ________Input # 1,inDataText1.Text=Text1.Text+inDataLoopC．lose #1E．nd S

[单选题]在窗体上画一个命令按钮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 程序运