在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句： ______。

A．Text1.Clear

B．Text1.Locked=True

C．Text1.Visible=False

D．Text1.Enabled=True

[单选题]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。A．Text1.ClearB．Text1.Locked=TrueC．Text1.Visible=FalseD．Text1.Enabled=True

[单选题]在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（　　）。A.B.C.D.

[单选题]在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（　　）。A.Text1.ClearB.Text1.Visibl

[单选题]（ 17 ） 在窗体上画一个文本框 （ 其名称为 Text1 ） 和一个标签 （ 其名称为 Label1 ） ， 程序运行后 ， 如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是A． ） Private Sub Text1_Click()Label1.Caption = Text1.TextE．nd SubB． ） Private Sub Text1_Change()Label1.Caption = Text1.TextE．nd SubC． ） Pri

[试题]（ 10 ） 在窗体上画一个文本框 ， 其名称为 Text1 ， 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ，然后编写如下的事件过程：Private Sub Form_Click （）Open " d:/test/smtext1.Txt " For Input As #1D．o While Not ( 13 )Line Input #1, aspect$W hole$=whole$+aspect$+Chr$ （ 13 ） +Chr$ （ 10 ）LoopText1

[单选题]在窗体上画一个文本框（其名称为 Text1）和一个标签（其名称为 Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（ ）。A．Private Sub Text1_Click（）Label1.Caption=Textl.TextE．nd SubB．Private Sub Text1_Change（）Label1.Caption=Text1.TextE．nd SubC．Private Sub Label1_Ctrange（）La

[单选题]在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。A． Private Sub Text1 Click() Labell.Caption=Text1.Text End SubB．Private Sub Text1_Change() Labell.Caption=Text1.Text End SubC．Private Sub Labell_Change(

[单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D．im str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)E．nd Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

[单选题]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb

[试题]（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:/temp/dat.txt" For Output As #1Text1.Text=""E．nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= (14) ThenC．lose #1E．ndE．lseWrite #1, (15)