单项选择题
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