一根轻弹簧原长为X0，当挂一质量为m1的砝码静止时，其总长为X1，求：（1）该弹簧的劲度系数K为多少？（2）当改挂质量为m2的砝码静止时，其总长为多少？

题目

一根轻弹簧原长为X₀，当挂一质量为m₁的砝码静止时，其总长为X₁，求：（1）该弹簧的劲度系数K为多少？（2）当改挂质量为m₂的砝码静止时，其总长为多少？

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

有如下SUB过程:

Sub s(x As Single,y As Single)

t=x

x=t / y

y=t Mod y

End Sub

在窗体上添加一个命令按钮,然后编写如下事件过程:

Private Sub Form_Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a,b

Print a,b

End Sub

则程序运行后,单击命令按钮,输出的结果为【】。

正确答案：1.251
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)

第2题：

以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。

该程序运行结果见下图。

Private Sub Form_ click()

Dim s(10, 10) As Integer

For n = 1 To 10

For m = 1 To 10

If【】Or【】Then

s (n, m) = 1

Else

s (n, m) = 0

End If

Next m

Next n

For n = 1 To 10

For【】。

Picturel. Print Tab(m * 3); s(n, m)

Next m

Next n

End Sub

正确答案：n=mn=11-mm= 1 To 10
n=m,n=11-m,m= 1 To 10

第3题：

单击命令按钮，下列事件过程的执行结果为

Private Sub Command1_Click（）

Dim x As Integer, y As Integer

x=40: y=72

Call PtoP（x, y）

Print x; y

End Sub

Public Sub PtoP（Byval n As Integer, ByVal m As Integer）

n=n ＼ 10+2

m=m ＼ 10+2

End Sub（）。

A．0 8

B．40 72

C．4 50

D．78 50

正确答案：B

第4题：

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

正确答案：D
解析：Visual Basic的函数参数默认的方式是传地址的，所以函数S对参数做的改变会反映到原来的变量里。

第5题：

单击命令按钮，下列事件过程的执行结果为 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n \ 10+2 m = m \ 10+2 End Sub

A．0 8

B．40 72

C．4 50

D．78 50

正确答案：B
解析：此题是函数过程的调用。在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在VisualBasic中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下：传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程PtoP中有两个形参，两者均为传值方式。主调过程分别把实参x、y传递给PtoP，所以当过程调用结束后，实参x、y的值都没有改变，最后输出的值应为4072。

第6题：

下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

正确答案：B
解析：在本题中，用Call过程名的方法调用过程P1，在P1中，将参数C的值改变为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。

第7题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。

第8题：

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：

Sub S(x As Integer，Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer，z As Integer

m=0

z=0

For i=1 To 3

S i，z

m=m+z

Next i

Label1．Caption=Str(m)

End Sub

程序运行后，单击命令按钮，在标签中显示的内容是

A．50

B．20

C．14

D．7

正确答案：B
解析：当i=1时，z=1*1+0=1，当i=2时，z=2*2+1=5，当i=3时，z=3*3+5=14，然后将三次z的值求和得20，因此本题答案为B)。

第9题：

在弹性限度内，弹簧伸长的长度与所挂物体的质量成正比。一根弹簧不挂物体时长15厘米；所挂物体质量为3千克时，弹簧长16.8厘米，求弹簧总长y（厘米）与所挂物体质量x的（千克）之间的函数关系式。

根据题意：函数经过点（0, 15）（3, 16.8）两点。

设一次函数为：y= kx+b

将上述两点代入到函数关系式中得：

15=b； 16.8=3k+b。解得：b=15，k=0.6. 则y=0.6x+15

第10题：

下列程序的运行结果是()。includevoid sub(int*s,int*y){static int m=4;*y=s[0];m＋＋;}

下列程序的运行结果是( )。 #include＜stdio.h＞ void sub(int*s，int*y) {static int m=4； *y=s[0]； m++； } void main() {int a[]={1，2，3，4，5}，k； int x； printf("\n")； for(k=0；k＜=4；k++) {sub(a，&x)； printf("%d，"，x)； } }

A．1，1，1，1，1，

B．1，2，3，4，5，

C．0，0，0，0，0，

D．4，4，4，4，4，

正确答案：A
解析：本题中sub(int*s，int*y)函数的参数是两个指针型变量，在函数体内将数组s的第一个元素赋给y。主程序内，首先定义了一维数组并赋初值，然后通过for循环，5次调用sub(a，&x)函数，每一次调用都是将数组a的第一个元素1赋给x，并输出。

一根轻弹簧原长为X<sub>0</sub>，当挂一质量为m<s

题目

相似问题和答案

更多相关问题

相关内容