产生Text 的字符内容动画，下列哪些方法可以实现？A．激活Source Text 的关键帧记录器，并修改字符内容B．添加Character Offset 属性动画C．添加Character Value 属性动画D．添加Tracking 属性动画

对文本框Text1编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim b As String

b = Chr(KeyAscii)

KeyAscii = Asc(UCaseB、)

End Sub

运行时，下列叙述正确的是( )。

A、 Text1中无法输入字符

B、 Text1中内容为"b"

C、 Text1中输入的字符都变为大写

D、 Text1中输入的字符都被转换成ASCII码

窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。

A．Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub

B．Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub

C．Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub

D．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是（ ）。

A.PasswordChar

B.需要编程来实现

C.Password

D.以上都不是

在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。

Private Sub Text1_ _________() TextText=Text1.Text End Sub

A．SetFocus

B．Change

C．GetFocus

D．Click

（ 10 ） 有如图所示的窗体 。 程序执行时先在 Text1 文本框中输入编号 ， 当焦点试图离开 Text1 时 ， 程序检查编号的合法性 ， 若编号合法 ， 则焦点可以离开 Text1 文本框 ； 否则 ， 显示相应错误信息 ， 并自动选中错误的字符，且焦点不能离开 Text1 文本框 （见图）。

合法编号的组成是：前 2 个字符是大写英文

字母，第 3 个字符是 “ - ” ，后面是数字字符

（至少 1 个）。下面程序可实现此功能，请

填空。

Private Sub Text1_Lostfocus()

Dim k%,n%

n=Len( [13] )

For k=1 to if (n>3,n,4)

c=Mid(Text1. Text,k,1)

Select Case k

Case 1,2

If c<"A" Or c>"Z" Then

MsgBox(" 第 "&k&" 个字符必须是大写字母！ ")

SetPosition k

Exit For

End If

Case 3

If c<>"-" Then

MsgBox(" 第 "&k&" 个字符必须是字符 "'"-"'")

SetPosition k

Exit For

End If

Case Else

If c<"0" Or c>"9" Then

MsgBox(" 第 "&k&" 个字符必须是数字！ ")

SetPosition k

Exit For

End If

End Select

Next k

End Sub

Private Sub SetPosition(pos As Integer)

Text1.SelStart=pos-1

Text.SelLength= [14]

Text1. [15]

End Sub

（17）在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是 A.PasswoedChar B.需要编程来实现 C.Password D.以上都不是

在窗体上画—个文本框(名称为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

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是（ ）。

A. PasswordChar

B. 需要编程来实现

C. Password

D. 以上都不是

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（ ）。

A.Private Sub Text1 Change（ ） Labe11．Caption=Str(Len(Text1．Text)) End Sub

B.Private Sub Text1 Click（ ） Labe11．Caption=str(Len(Text1．Text)) End Sub

C.Private Sub Text1 Change（ ） Labe11．Caption=Text1．Text End Sub

D.Private Sub Labe1 1_Change（ ） Labe11．Caption=Str(Len(Text1．Text)) End Sub