单项选择题
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( ) Label1.Caption=Text1.Text End Sub
D.Private Sub Label1_Change( ) Label1.Caption=Str(Len(Text1.Text)) End Sub