［二级VB试题天天练］VB考试试题16

发布时间：2019-02-04 19:05:42

20.过程函数练习（1）
上机试试看下列程序的运行结果，
然后把语句“Dim sum As Integer”换成“Static Sum As Integer”再试试看——
Private Sub Command1_Click()
Dim A As Long
A = P(1) P(2) P(3) P(4)
Print A
End Sub
Private Function P(N As Integer)
    Dim i As Integer
    Dim sum As Integer
    For i = 1 To N
        sum = sum i
    Next
    P = sum
End Function

阅读更多其他试题，请访问生活日记网用日志记录点滴生活！考试试题频道。