以下一段VB程序运行后，Y的值是（ ）

Dim Y As Integer

Y=0

Do While Y<30

    Y=(Y+2)*(Y+3)

Loop

A、60

B、72

C、34

D、156