单项选择题

下面过程运行之后,则变量J的值为
Private Sub Fun( )
Dim J As Integer
J=2
Do
J=J*3
Loop While J<15
End Sub

A.2
B.6
C.15
D.18