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

B
abcdef
C
abc
D
def
出自:西南石油大学VB语言程序设计