阅读下面的程序；
Function Func(x As Integer，y As Integer)As Integer
Dim n As Integer
Do While n ＜ = 4
x=x + y
n = n + 1
Loop
Func=x
End Function
Private Sub Command1_Click()
Dim x As Integet, y As Integer
Dim n As Integer，z As Integer
x=1
y=1
For n = 1 To 6
z=Func(x，y)
Next n
Print z
End Sub
程序运行后，单击命令按钮，输出的结果为．
A．16
B．21
C．26
D．31
