'
    Public Function Resource()
        Dim i, j, k As Integer
        For i = 0 To 18
            If e(i).Enable = True Then
                For j = 0 To 22
                    If pe(j, i) = True Then
                        p(j).Status = False
                    End If
                Next
                For k = 0 To 22
                    If ep(i, k) = True Then
                        p(k).Status = True
                        p(k).LeftTime = p(k).SumTime
                    End If

                Next
            End If
        Next
    End Function

在这个自定义的函数中，我没有写明其函数类型，请问编译是否可以？？

谢谢帮助￥￥￥