Private Sub Command1_Click()
Dim m As Double, n As Double, t As Double
m = Val(Text1.Text)
n = Val(Text2.Text)
t = m
m = n
n = t
Text1.Text = m
Text2.Text = n
End Sub



Private Sub Text1_Change()
Text1.Text = 80
End Sub


Private Sub Text2_Change()
Text2.Text = 45
End Sub



请问我这么写。

两个数值为什么不交换呢？

因为你COMMAND1的CLICK事件发生时，文本框的内容就发生了变化，而这一变化又触发了文本框的CHANGE事件，而CHANGE事件又限定了文本框的值，所以就是你问的情况喽

按了按钮后交换了，但显示的时候出发了
Private Sub Text1_Change()
Text1.Text = 80
End Sub
 
 
Private Sub Text2_Change()
Text2.Text = 45
End Sub
所以又回到原来的状态

交换了，又重置了。

a和b在哪里？

Private Sub Text1_Change()
Text1.Text = 80
End Sub
 
 
Private Sub Text2_Change()
Text2.Text = 45
End Sub

你都这样了，还想要换什么？