Question

vb题 Private Sub Command 1 _Click（）Dim x As Integerx=Val（Inpu

Answer 1

和你的fun()函数的传值方式有关

ByRef传的是X的地址,X的值会因为每次调用fun()而改变

Private Function fun（ByRef n As Integer）

Text1=Str（fun（x）+fun（x）+fun（x））

Text1=Str（4+16+256）

结果为276

如果改为

Private Function fun（ByVal n As Integer）

ByVal传值方式,X的值就不会因为调用fun()而改变

结果就会是你预期的12