dim n as integern=1sub command1_click()if n=1 thenlabel1.caption=“欢迎进入VB世界！按回车键继续……”n=2elselabel1.caption=“现在进入系统”n=1end ifend sub
