下面过程运行之后，则变量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