单选题 下面过程运行之后，则变量J的值为
Private Sub Fun( )
Dim JAs Integer
J=5
Do
J=J+2
Loop While J＞10
End Sub