单项选择题

下面过程运行之后,则变量J的值为( )。
Private Sub Fun()
Dim J As Integer
J=5
Do
J=J*2

A.3
B.10
C.9
D.7