更多"在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对"的相关试题:
[单项选择]在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
A. Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
B. Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
C. Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
D. Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
[单项选择]在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub
A. Focus
B. Crick
C. Chang
D. LostFocus
[单项选择]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑， 应当使用的语句：_______。
A. Text1.Clear
B. Text1.Locked=True
C. Text1.Visible=False
D. Text1.Enabled=True
[单项选择]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句： ______。
A. Text1.Clear
B. Text1.Locked=True
C. Text1.Visible=False
D. Text1.Enabled=True
[填空题]使文本框Text1获得焦点的代码是（）。
[单项选择]窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick（ ） Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub
A. 12
B. 34
C. 46
D. 1234
[单项选择]设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。
A. Text1. MaxLength=0
B. Text1. Enabled=False
C. Text1. Visible=False
D. Text1. Width=0
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。 设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。
A. Open"c:/Test29.dat"ForRandom As #1 Put#1，1，p Close#1
B. Open"c:/Test29.dat"ForRandomAs#1 Get#1，1，p Close#1
C. Open"c:/Test29.dat"ForRandomAs#1Len=Len( Put#1，1，p Close#1
D. Open"c:/Test29.dat"ForRandomAS#1Len=Len( Get#1，1，p Close#1
[单项选择]在窗体上画—个文本框（名称为Text1）和—个标签（名称为Label1），程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（）。
A. Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Tex)End Sub
B. Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Tex)End Sub
C. Private Sub Text1_ Change() LabelCaption =Text1.TextEnd Sub
D. Private Sub Label1_ Change() LabelCaption=Str(Len(Text 1. Tex)End Sub
[单项选择]
在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是（）。
A. Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
B. Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub
C. Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
D. Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
[单项选择]窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【 】
[单项选择]设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）。
A. Text1．Maxength=0
B. Text1．Enabled=False
C. Text1．Visible=False
D. Text1．Width=0
