Public Class Form1
Public Sub c(ByRef _b As Integer)
Dim a, b As Integer
b = 1
For a = 1 To 5
b *= a
Next
_b = b
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j, _b As Integer
Call c(j)
Label1.Text = Label1.Text & ControlChars.CrLf & "5!的阶乘是:" & j.ToString
End Sub
End Class
还有就是为什么不能用(Byref sender As System.Object, ByVal e As System.EventArgs)