阅读程序： Option Base 1 Private Sub Form_Click( ) Dim a(3)As Integer Print“输入的数据是：”； For i=1 to 3A (i)=Input Box(“输入数据”)Print a (i) Next Print If a(1)＜a(2)Thent=a(1)a(1)=a(2)a(2)= 【8】 End lf If a(2)＞a(3) Then m=a(2) Elself a(1)＞a(3) Then m= 【9】 Else m= 【10】 End lf Print“中间数是：”；m End Sub 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

如图所示，用滑轮组将重为G=1360N的金属打捞出水面，不计绳重、摩擦和水对金属块的阻力，作用在绳自由端拉力的功率始终保持1700W，金属块浸没在水中时匀速提起的速度为v₁=1m/s，金属块的密度为8×10³kg/m³，取g=10N/kg. 求：

（1）金属块未露出水面以前的机械效率η。

（2）金属块被提出水面后匀速提起的速度v₂（保留到两位小数）