题目内容
（请给出正确答案）
在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1)，程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。
A．Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Text))End Sub
B．Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Text))End Sub
C．Private Sub Text1_ Change() Labell.Caption =Text1.TextEnd Sub
D．Private Sub Label1_ Change() Labell.Caption=Str(Len(Text 1. Text))End Sub
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画—个文本框（名称为Text1)和—个标签（名称为L…”相关的问题
在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。
A．Visual Basic
B．程序设计
C．A程序设计
D．Visual Basic程序设计
（11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：
Private Sub Form_Load()
Open"d:\temp\dat.txt"For Output As#1
Text1.Text= “ “
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf 【 13 】 =13 Then
If UCase(Text1.Text)= 【 14 】 Then
Close 1
End
Else
Write#1 , 【 15 】
Text1.Text=" "
End If
End If
End Sub
以上程序的功能是：在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回
车键（回车符的 ASCII 码是 13 ）都把当前文本框中的内容写入文件 dat.txt ，并清除文本框中的内容 ； 如
果输入 “ END ” ，则结束程序。请填空。
A．Private Sub Hscroll1_Change（）
Text1.Text=HScroll1.Value
End Sub
B．Private Sub Hscroll1_Click（）
Text1.Text=HScroll1.Value
End Sub
C．Private Sub Hscroll1_Change（）
Text1.Text=Hscroll1.Caption
End Sub
D．Private Sub Hscroll1_Click（）
Text1.Text=Hscroll1.Caption
End Sub
A) Option1. value = False
Check1. value = True
B) Option1. value = True
Check1. value = 0
C) Option1. value = True
Check1. value = 2
D) Option1. value = True
Check1. value = 1
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10，10)As Integer，i，j As Integer For i=1 To 3 For j=2 To 4 arr(i，j)=i+j Next Next Text1.Text=an(2，3)+arr(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
设有如下通用过程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStrEnd Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click() Dim S1 String S1="ABCDEF" Text1.Text=LCase(Fun(S1))End Sub 程序运行后，单击命令按钮，文本框中显示的是 ______。
A．ABCDEF
B．abcdef
C．defdef
D．defabc
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click()
Dim x，y，z As Integer
x=5
y=7
z=0
Text1.Text=""
Call Fun1(x，y，z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示
A． Visual
B．Basic
C．Program
D．出错
在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。
.jpg)
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
