在窗体上绘制一个文本框(名称为Text1)和一个命令按钮(名称为Cmd1，标题为 Display)。请编写Cmdl的Click事件过程，使得在程序运行后，按Esc键就调用这个事件过程且在文本框中显示Visual Basic，程序运行结果如下图所示。

注意：

在程序中不能使用任何变量：文件必须存放在考生文件夹中，工程文件名为 execise67.vbp，窗体文件名为execise67.frm。

[单选题]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click() 然后编写如下事件过程： Private Sub Command1_Click() Open "d：/temp/outf.txt" For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) If c＞="A" And c＜="Z" Then Pr

[单选题]在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。A．Private Sub Texl_Change() Commandl.Caption="计算机等级考试” End SubB．PrivateSubCommandl_Click() Caption="计算机等级考试"C．Private Sub Com

[试题]在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im a(10,10)As IntegerD．im i,j As IntegerF．or i=2 To 4F．or j=3 To 6Next iText1.Text=a(2,3)+a(4,6)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。

[单选题]在窗体（名称为Form1）上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是。A．Private Sub Tex1_Change() Command1.Caption="计算机等级考试" End SubB．Private Sub Command1_Click() Caption="计算机等级考试"C．Private Sub Com

[单选题]在窗体(名称为Form1)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是A．Private Sub Tex1_Change() Command1.Caption=“计算机等级考试” EndSubB．Private Sub Command1_Click() Caption="计算机等级考试”C．Private Sub Command1

[试题]在窗体上绘制一个命令按钮，其名称为Cmd1，标题为Display。编写适当的事件过程，使程序运行后，若单击命令按钮，则把窗体的标题修改为VisualBasic，程序运行结果如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise17.vbp，窗体文件名为 execise17.frm。程序中不得使用任何变量。

[单选题]在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Texttext = " " Call P1 (x,y,z) TextText = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后

[单选题]在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。A．输出n以内的奇数B．输出n以内的偶数C．输出n以内的素数D．

[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Commmand1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click () Dim array 1 (10, 10) As Integer Dim i, j As Integer for i = 1 To 3 for j = 2 To 4 array1(i, j)= i+ j Next j Next i Text1.Text= array1(2, 3) +array1(3, 4)End Sub程序运行后，单击命

[单选题]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) TextText＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End SubA．0B．