Question

text随便输入数字,通过按钮 ,使label里的文字发生改变(text中输入的)

Answer 1

'其实不需要command，你可以把Text1_Change事件去除，结果是一样的
Private Sub Command1_Click()
Label1.Caption = Text1
End Sub
Private Sub Form_Load()
Text1 = 111
End Sub
Private Sub Text1_Change()
Label1.Caption = Text1
End Sub

Answer 2

不需按钮时，是通过text_change()事件实现的。即楼上的回答是正解。
如果非要通过按钮，可以如下：

Private Sub Command1_Click()
Label1.Caption = Text1.textEnd Sub