Private Sub Command1_Click()MsgBox myFun '这里调用了myFun这个函数End Sub Private Function myFun()Dim i As LongFor i = 0 To 100 myFun = myFun + i ‘在For循环中,函数myFun被赋值101次NextEnd Function
比如一开始X=5后来过程中有类似于X=X+Y就已经被重新赋值了