在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下事件过程:
Private Sub Text1_Change0Label1.Caption = Right(Trim(Textl.Text), 3)End程序运行后，在文本框中输入"abcdef"，单击命令按钮，则在标签中显示的内容是 SubA
空
B
abcdef
C
abc
D
def

---