物块M1和M2的质量分别为m1和m2,用弹簧连接如题8-9图(a)所示。已知物块M沿铅直
物块M1和M2的质量分别为m1和m2,用弹簧连接如题8-9图(a)所示。已知物块M沿铅直方向按x= Acoskt运动,其中A和k均为常数,物块M2放在水平支承面上。如果不计摩擦和弹簧质量,试求水平支承面对物块M2的动约束力。
![](https://lstatic.shangxueba.com/sxbcn/h5/images/tips_org.png)
物块M1和M2的质量分别为m1和m2,用弹簧连接如题8-9图(a)所示。已知物块M沿铅直方向按x= Acoskt运动,其中A和k均为常数,物块M2放在水平支承面上。如果不计摩擦和弹簧质量,试求水平支承面对物块M2的动约束力。
第1题
若有如下程序: int sub(int m) { if(m==1||m==0) return 2; else return(sub(m-1)*sub(m-2));} main() { int n; scanf("%d",&n); printf("%d",sub(n)); } 如果从键盘输入4<回车>,则程序运行后的输出结果是()。
A.8
B.16
C.24
D.32
第2题
有如下事件过程: Private Sub Command1_Click() Dim m AS Integer,n AS Integer m=2:n=1 Print "m=";m;"n=";n Call TOD(m,n) Print "m=";m;"n=";n End Sub Sub TOD(x,y) x=x^2 y=y^3 End Sub 程序运行后,输出的结果为
A.m=2,n=1 m=1,n=2
B.m=2,n=1 m=4,n=1
C.m=1,n=2 m=1,n=4
D.m=1,n=2 m=2,n=4
第3题
有如下程序: Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS() Dim x As Integer,m As String Static y,n X=X + 1 y=y + 1 m=m &"*”:n=n&"#" Print x,y,m,n End Sub 程序运行后,输出的结果是
A.1 1 * #
B.1 1 * #
C.1 1 * # 1 1 * # 1 2 * #
D.1 1 * # 1 1 * ## 1 2 * ##
第4题
有如下事件过程:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=2: n=1
Print "m="; m; "n="; n
Call TOD(m, n)
Print "m="; m; "n="; n
End Sub
Sub TOD(x, y)
x=x ^ 2
y=y ^ 3
End Sub
程序运行后,输出的结果为()。
A.m=2,n=1
m=1,n=2
B.m=2,n=1
m=4,n=1
C.m=1,n=2
m=1,n=4
D.m=1,n=2
m=2,n=4
第5题
运行以下程序后,输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
:A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第6题
请阅读程序:
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print”*”;
Next j
Next i
End Sub
程序运行后,单击窗体,则输出结果是()。
A.1**** 2*** 3** 4*
B.4* 3** 2*** 1****
C.**** *** ** *
D.* ** *** ****
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!