（10分）如图所示，光滑水平面上静止放着长L=1m，质量为M=3kg的

搜题请搜索小程序“爱下问搜题”

问题计算题

（10分）如图所示，光滑水平面上静止放着长L=1m，质量为M=3kg的木块，一个质量为m=1kg的小物体(可看作质点)放在木板的最右端，m和M之间的动摩擦因数μ=0.1，今对木板施加一水平向右的拉力F，（g取10m/s²）

（1）为使物体与木板不发生滑动，F不能超过多少？

（2）如果拉力F=10N恒定不变，求小物体离开木板时的速度大小？

答案

（1）4N(2)1m/s

题目分析：(1）物体与木板不发生滑动，则木块和物体有共同加速度，由牛顿第二定律得：

小物体的加速度由木块对它的静摩擦力提供，则有：

解得：

（2）小物体的加速度

木板的加速度

物体滑过木板所用时间为，由位移关系得：

物体离开木板时的速度

单项选择题

柴油发动机动力不足，转速不稳，置发动机怠速运转，用扳手分别旋松各缸高压油管接头，某缸断油后发动机（），说明该缸不工作或工作状态不佳。

A、转速上升

B、转速下降

C、转速变化不明显

D、转速变化较明显

查看答案

单项选择题

在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入Alp().txt文件中(无双引号界定符)。请选择横线处合适的语句( )。
Private Sub Form Load()
Dim Strln As String, StrOut AS String
Open "C: \Alph.txt" For Input As#1
______
Close
Text1.Text=StrIn
______
Text2.Text=StrOut
Open "C: \AIpO.txt" For Output As#2
______
Close
Fnd Sub
Private Function StrSort(s As String)As String
Dim sArr()As String *1, j As Integer, J As Integer, n As Integer
DimtAS String*1
n=Len(s)
ReDim sArr(n)
For i=1 To n
sArr(i)=Mid(s，i，1)
Next i
For i=1 To n. 1
For j=i+1 To n
If sArr(i)＞sArrj Then
t=sArr(i):sArr(i)=sArr(i):sArr(j)=t
EndIf
Next i, i
For i=1 To n
StrSort=StrSort＆sArr(i)
Nexti
End Function