计算题：有一200吨天车起升机构电机转速930转/分，卷筒直径300mm，减速机速比

承包商为采购工程所需的材料和设备，与供应商签订的合同称为（）o

A.分包合同

B.加工合同

C.运输合同

D.供应合同

编写如下事件过程和函数过程：
Private Sub Form_Chck()
DimBum(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
Bum(4)=32:num(5)=-56:num(6)=100
Print
Pdnt p2(6,hum())
End Sub
Private Function p2(ByVal n As Integer,number()As Single)As Integer
p2=number(1)
Forj=2 Ton
lfnumber(j)＜p2 Thenp2=number(j)
Next j
End Function
程序运行后窗体上显示的值是( )。

A．-56
B．0
C．103
D．190

治疗急性泄泻的主穴是

A．天枢、支沟、足三里、中脘、太冲
B．天枢、支沟、下脘、关元、合谷
C．天枢、上巨虚、阴陵泉、水分
D．天枢、支沟、水道、归来、丰隆
E．天枢、神阙、足三里、公孙

根治原发性肝癌的最好的方法是（）

A.放射治疗

B.手术切除

C.免疫治疗

D.化疗

E.中药治疗

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim x As Integer，n As Integer

x=1

n=0

DoWhilex＜20

x=x*3

n=n+1

Loop

Text1.Text=Str（x）

Text2.Text=Str（n）

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）

A.15和1

B.27和3

C.195和3

D.600和4