属于滑脉主病的是（）

A.实热

B.实寒

C.气郁

D.湿阻

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n=0
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。