Visual Basic程序问题

1.
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m = 0
i = 2
i = i + m + 1
m = i + a + b
Func = m

End Function

Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k = 4
m = 1
p = Func(k, m)
Print p
p = Func(k, m)
Print p

End Sub

这个程序输出的是两个8

Sub inc(a As Integer)
Static x As Integer
x = x + a
Print x
End Sub

Private Sub Command1_Click()
inc 2
inc 3
inc 4
End Sub

那么为什么这个程序输出的是 2 5 9？
请帮我分析下这两个程序~~

2. Private Sub Command1_Click()
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i

visual basic 的问题 visual basic问题 Visual Basic的问题 学习visual basic问题 Visual Basic 编程问题 Visual Basic 计算问题 Visual Basic问题 关于visual basic程序中数据类型的问题 visual basic 6.0一个简单的程序问题 Visual Basic程序设计的问题