如图所示，在倾角为θ的斜面上放一质量为m的小球，小球被竖直的木板挡住，若斜面和木板都是光滑的，则（  ）

A．球对斜面的压力为mgcosθ

B．球对斜面的压力为

C．球对挡板的压力为mg tgθ

D．当挡板从竖直位置放到水平位置过程中，球对斜面的压力一直减小

在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下：
Private Sub Command1_Click()
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1．Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是( )。

A．6

B．12

C．18

D．21