运行下面程序代码后，变量J的值为______。
Private Sub Full ()
Dim j as Integer
J=10
DO
J=J+3
Loop While J<19
End Sub

A．10

B．13

C．19

D．21

城市环境容量中最基本的因素是( )。

A．经济技术条件
B．城市现状条件
C．自然条件
D．历史文化条件