有如下事件过程：

Private Sub Form Click()

Dim n A s Integer

x=0

n=InputBox(“请输入一个整数”)

For i=1 To n

For j=1 To i

x=x+i

Next j

Next i

Print x

End Sub

程序运行后，单击窗体，如果在输入对话框中输入：则在窗体上显示的内容是（）。

A．13

B．14

C．15

D．16