单项选择题

阅读下列程序:
Function func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click ()
Dim a As Integer
a= 5
s = func (A)
Print s
End Sub
程序运行后,单击命令按钮,输出的结果为
A) 80 B) 60 C) 70 D) 15