有如下函数：
Private Function firstfunc(x As Integer, y As Integer) As Integer
Dim n As Integer
Do While n<= 4
x = x + y : n = n + 1
Loop
firstfunc = x
End Function
调用该函数的事件过程如下：
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,n As Integer,z As Integer
x = 1: y = 1
For n = 1 To 3
z = firstfunc(x, y)
Next n
Print z
End Sub
该事件过程的执行结果为（）。
（A）1
（B）3

自考考试 成人高考 远程教育 研究生考试 英语类 外语类 大学本科考试 大学专科考试 继续教育类 大学考试 学历类