企业和事业单位和其他组织申请以红十字命名、冠名的，应当向县级以上红十字会提出申请，由受理申请的红十字会逐级报：（）

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
Dim j As Integer,s As Integer
s=1
Do
s=s+j
j=j+1
Loop Until j＞=5
Print s
End Sub
程序运行后，单击命令按钮，在窗体上输出的结果是( )。

A．11

B．1

C．16

D．7