传动带所能传递的最大有效圆周力Fmax与（）、（）、（）等因素有关，它们的值越大，Fmax就越大。当传递的外载荷超过（）时，带在带轮上发生打滑现象；而且在传动比大于1的情况下，打 滑总是先从小带轮上开始的，其原因是（）

（ 12 ）在窗体中有一个名为 Command12 的命令按钮， Click 事件的代码如下：该事件所完成的功能是：接受从键盘输入的 10 个大于 0 的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。

Private Sub Command12_Click( )

max=0

max_n=0

For i=1 To 10

num=Val(InputBox(" 请输入第 "& i &" 个大于 0 的整数： "))

If (num>max)Then

max= ___________

max_n= ___________

End If

Next i

MsgBox(" 最大值为第 "& max_n&" 个输入的 "& max)

End Sub

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

A．Function f1(By Valn%)

B．Sub f1(n%)As Integer

C．Function f1%(f1%)

D．Sub f1(ByValn%())

A.Sub fib(ByRef i%())

B.Sub fib(j%) As Integer

C.Functionf%(f%)

D.Function f1!(ByValn%)

此题为判断题(对，错)。

Sub过程与Function过程最根本的区别是

A．Sub过程名称与Function过程名称的格式不统一

B．Function过程可以带参数，Sub过程不可以

C．两种过程参数的传递方式不同

D．Sub过程的过程参数名称不能有返回值，而Function过程能通过过程名称得到返回值

Sub过程与Function过程最根本的区别是

A．Sub过程不能返回值，而Function过程能返回值

B．Function过程可以有形参，Sub过程不可以

C．Sub过程可以使用Call语句直接使用过程名调用，而Function过程不可以

D．两种过程参数的传递方式不同

（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 If x(k)>x(Max)Then End If Next k y=_______ Print Max,y End Sub

A、Sub f1(ByVal n%())

B、 Sub f1(%)As integer

C、 Function f1%(f1%)

D、 Function f1(ByVal n%)

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。

Private Sub Command2_Click()

max＝0

max_n＝0

For i＝1 To 10

num＝Val(InputBox("请输入第"& i &"个大于0的整数："))

If num＞max Then

man＝【 】

max_n＝i

End If

Next i

MsgBox("最大值为第"& max_n &"个输入的" & max)

End Sub