运行下列程序：

Private Sub Command1_Click()
Dim x As Integer, n As Integer
n = 0
Do
n = n + 2
x = x + n
Loop While n＜ 10
Debug.Print x
End Sub
单击Command1命令按钮后，则在立即窗口上输出结果是是()。
A.2
B.10
C.12
D.30