一根轻弹簧原长为X0,当挂一质量为m1的砝码静止时,其总长为X1,求: (1)该弹簧的劲度系数K为多少? (2)当改挂质量为m2的砝码静止时,其总长为多少?
第1题:
以下程序用来建立一个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
第2题:
单击命令按钮,下列事件过程的执行结果为 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
第3题:
假定有如下的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
第4题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As Integer Private Sub Commandl Click( )x=10 Call slCall s2MsgBox x End Sub Private Sub sl( )x=x+20 End Sub Private Sub s2( )Dim x As Integer x=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
A.10
B.30
C.40
D.50
第5题:
下列程序的运行结果是( )。 #include<stdio.h> void sub(int*s,int*y) {static int m=4: *y=s[m]; m--; } void main() {int a[]={1,2,3,4,5},k,x; printf("\n"); for(k=0;k<=4;k++) {sub(a,&x); printf("%d,",x); } }
A.5,4,3,2,1,
B.1,2,3,4,5,
C.0,0,0,0,0,
D.4,4,4,4,4,
第6题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序: Public x As Integer Private Sub Commandl_click() x=10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x=x+20 End Sub Private Sub
A.10
B.30
C.40
D.50
第7题:
有如下程序: Private Sub Command1 Click() Dim a As Single Dim b As Single a=5:b=4 Call S(a,B)End Sub Sub S(x As Single,y As Single) t=x x=t\y y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B.1 1
C.2 2
D.1 2
第8题:
单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=50:y=78 Call PPP(x,y) Print x;y End Sub Public Sub PPP(ByVM n As Integer,ByVal m As Integer) n=n\l0 m=m\l0 End Sub
A.08
B.50 78
C.450
D.78 50
第9题:
( 35 )在窗体中添加一个名称为 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
第10题:
一根弹簧,在弹性限度内,悬挂15N重物时,弹簧长度为0.16m;悬挂20N重物时,弹簧长度为0.18m,则弹簧的原长为()m,劲度系数为()N/m。
第11题:
|e<SUB>d</SUB>|>1
|e<SUB>d</SUB>|=1
0<|e<SUB>d</SUB>|<1
|e<SUB>d</SUB>|=0
第12题:
<p>R<sub>s</sub>=9.99993kΩ,U<sub>95</sub>=0.10Ω,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.999931kΩ,U<sub>95</sub>=0.10Ω,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.99993kΩ,U<sub>95</sub>=102mΩ,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.999931kΩ,U<sub>95</sub>=102mΩ,k<sub>95</sub>=1.96</p>
第13题:
在窗体中添加一个名称为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
第14题:
在弹性限度内,弹簧伸长的长度与所挂物体的质量成正比。一根弹簧不挂物体时长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
第15题:
下列程序的运行结果是( )。 #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,
第16题:
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a; End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End Sub
A.2 2 2
B.0 0 0
C.2 4 8
D.2 4 6
第17题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序: Public x As IntegerPrivate Sub Commandl_Click0x=10CaU slCall s2MsgBoxXEndSubPrivate Sub sl0x=X+20EndSubPrivate Sub s20Dim xAs IntegerX=x+20EndSub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
A.10
B.30
C.40
D.50
第18题:
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() 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
第19题:
在窗体上面画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: 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 T0 3 S i,Z m=m+z Next i Label1.Caption=Str(m) 程序运行后,单击命令按钮,在标签中显示的内容是( )。
A.50
B.20
C.14
D.7
第20题:
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为,( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer) z=x^3*y^3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2,3,m) Print m End Sub
A.216
B.0
C.35
D.程序不能运行
第21题:
一根弹簧挂0.5N的物体时长12cm,挂1N的物体时长14cm,则弹簧原长为()cm,劲度系数k为()N/m。
第22题:
一根轻质弹簧,竖直悬挂,原长为10cm.当弹簧下端挂2.0N的重物时,伸长1.0cm;则当弹簧下端挂8.0N的重物时,弹簧的长度为()
第23题:
m<sub>0</sub><m<sub>e</sub><(x
m<sub>0</sub>=m<sub>e</sub>=(x
m<sub>0</sub>>m<sub>e</sub>>(x
m<sub>e</sub><m<sub>0</sub><(x