vb循环

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 2: B = 3
For N = 1 To 6
If N Mod 2 = 0 Then
B = Fun(N, A) + A
Else
A = Fun(B, N) + B
End If
Next N
Print N, A, B
End Sub
Private Function Fun(X As Integer, Y As Integer) As Integer
X = Y - 1 + N
Y = X + Y - N
Fun = X + Y
End Function

为什么是10 27 9
N不是最大就是6了吗？10是怎么得出来的啊
A,B又是怎么算出来的啊

因为你的fun是以byref形式，所以当你把N传进去的时候在fun里面对于对于函数值得改变N也随之变化了

其实你可以断点debug下就知道了

Private Function Fun(ByVal X As Integer, ByVal Y As Integer) As Integer
X = Y - 1 + N
Y = X + Y - N
Fun = X + Y
End Function

引用
因为你的fun是以byref形式，所以当你把N传进去的时候在fun里面对于对于函数值得改变N也随之变化了

其实你可以断点debug下就知道了

就是这个原因。
VB中，变量的传递默认是 ByRef 的。

vb循环

为什么C写DLL文件C、PB能调用VB不能调用

看到VB版那些芙蓉姐夫式的家伙我就恶心

VB 鼠标移动事件

vb 难题