要在文本框Text1中显示“欢迎使用VB”，以下（）语句是正确的。

A:Text1.text=欢迎使用VB B:Text1=”欢迎使用VB” C:Text1.text=’欢迎使用VB’ D:Text1.caption=”欢迎使用VB”

在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form Load（　）
Open "C:/dat.txt" For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As integer)
If______=13 Then
If UCase(Text1.Text=______)Then
Close 1
End
Else
Write#1,Text1.Text
"Text1.Text=""
End If
End If
End Sub
程序的功能是，存C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句( )。

A:KeyAscii "END" B:Text1.Text "END" C:Text1.Text 13 D:KeyAscii 13

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于 500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。 Private Sub Text1_LostFocus（　） Call CheckInput(Text1,500) End Sub Private Sub Text2_LostFocus（　） Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then MsgBox "请重新输入！" End If End Sub

A:Text B:SelText C:Control D:Form

在窗体上画一个文本框，其名称为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中的文本不可编辑，应当使用的语句是______。

A:Text1.Clear B:Text1.Locked=True C:Text1.Visible=False D:Text1.Enabled=True

在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combol和Text1，然后编写如下事件过程： Private Sub Form_Load（　） Combol.AddItem "AAAAA" Combol.AddItem "BBBBB" Combol.AddItem "CCCCC" Combol.AddItem "DDDDD" Combol.AddItem "EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目，"CCCCC"。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为______。

A:Text1．Text=ComboList(2) B:Text1．Text=ComboText C:Text1．Text=ComboList(3) D:Text1．Text=ComboListIndex

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于 500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。 Private Sub Text1_LostFocus（　） Call CheckInput(Text1,500) End Sub Private Sub Text2_LostFocus（　） Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then MsgBox "请重新输入！" End If End Sub

A:Text B:SelText C:Control D:Form