圆管流动过流断面上的切应力分布为( )。

A．(A) 在过流断面上是常数

B．(B) 管轴处是零，且与半径成正比

C．(C) 按抛物线分布

D．(D) 管壁处是零，向管轴线性增大

在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command l的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x＝x*3n=n＋l Loop Textl．Text=Str(x) Text2．Text-Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。

A．9和2

B．27和3

C．195和3

D．600和4