A.List1.AddItem"宋體",0 B.List1.AddItem"宋體" C.List1.AddItem0,"宋體" D.List1.AddItem"宋體",1
A.Text1.Caption=”” B.Text1.Text=”” C.Text1.Clear D.Text1.Cls
A.SelText B.SelLength C.Text D.SelStart