Public Class Form1
Private Sub test(ByVal a As Integer)
a = 99 + 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, b As Integer
Call test(i)
TextBox1.Text = CStr(i)
End Sub
End Class
这段代码运行后TextBox1里显示的值是0,而不是100。