单选题 有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim sum As Integer
n=1
Do
j=1
Do
sum = sum + j
j=j+1
Print j;
Loop Until j ＞ 3
n=n+2
Loop Until n ＞ 10
Print sum
End Sub
运行上述程序，外层Do循环执行的次数为( )。
A) 4 B) 5 C) 7 D) 10