齿轮轴由一对圆锥滚子轴承“面对面”支承。轴向载荷Fa=2200N，径向载荷FR1=5400N、FR2=3600N，方向如图所示。试计算两轴承承受的轴向载荷。派生轴向力FS=FR/2Y，Y=0.9。

A、Sub f1(ByVal n%())

B、 Sub f1(%)As integer

C、 Function f1%(f1%)

D、 Function f1(ByVal n%)

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

若有以下变量和函数说明： #include＜iostream.h＞ charCh='*'； void sub(int x，int y,char ch，double*Z) { switch(ch) { case'+':*Z=x+y;break； case'-':*Z=x-y;break： case'*':*Z=x*y;break； case'/':*z=x/y;break： } } 以下合法的函数调用语句是( )。

A．sub(10，20，Ch，y)；

B．sub(1.2+3，2*2，'+'，&Z)；

C．sub(sub(1，2，'+'，&y)，sub(3，4'+'，&x)，'-'，&y)；

D．sub(a，b，&x,ch)；

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;

下列子过程语句的说明正确的是( )。

A．Sub f1(ByVal x()As Integer)

B．Sub f1(x%())As Integer

C．Function f1%(f1%)

D．Function f1%(x As Integer)

A、Public Sub Sum(x ; y)

B、Public Sub Sum(ByVal x, ByVal y)

C、Public Sub Sum(x As Integer,y As Integer)

D、Public Sub Sum(x%, y%)

下面各被调用函数首部书写正确的是( )

A．void sub(float x；float y)；

B．void sub(float x，y)

C．void sub(float x，float y)

D．void sub(float x，float y)；

下面子过程语句说明合法的是

A．Sub f1(s1 As String*8)

B．Sub f1(n()As Integer)As Integer

C．Function f1(f1 As Integer)As Integer

D．Function f1(By Val n As Integer)

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

下列程序运行后的输出结果是______。

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub