一液压千斤顶小缸活塞面积F1=10mm2,大缸活塞面积F2=100mm2,当小缸施加100N的车,则在大缸上产生()的力。
第1题:
设有如下程序: Private Sub Form. Click( ) Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后,单击窗体,输出结果是( )。
A.32
B.33
C.34
D.35
第2题:
现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序,则窗体上显示的是( )。
A.38
B.49
C.61
D.70
第3题:
编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是
A.rehcaet
B.tahreee
C.themee
D.eerthea
第4题:
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch:Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch,k,1) Next k ch=s End Sub A.ABCDEF B.FEDCBA C.A D.F
第5题:
在窗体中添加一个名称为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
第6题:
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
第7题:
某液压千斤顶,小活塞面积为1cm2,大活塞面积为100cm2。当城小活塞上加10N力时,如果不计磨擦阻力等,大活塞可产生()的力。
第8题:
液压千斤顶为()。
第9题:
某液压千斤顶,小活塞面积为1cm2,大活塞为100cm2。当在小活塞上加10N力时,如果不计摩擦阻力等,大活塞可产生()N的力。
第10题:
液压千斤顶小活塞面积是大活塞面积的5分之1,那么小活塞上的作用力是大活塞上的几倍()。
第11题:
5
10
50
100
第12题:
第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题:
下面子过程语句说明合法的是
A.Sub f1(s1 As String*8)
B.Sub f1(n()As Integer)As Integer
C.Function f1(f1 As Integer)As Integer
D.Function f1(By Val n As Integer)
第15题:
写出程序运行的结果
Public class Base
Public virtual string Hello() {return “Base”;}
Public class Sub:Base
Public override string Hello() {return “Sub”;}
1. Base b = new Base(); b.Hello;
2. Sub s = new Sub(); s.Hello;
3. Base b = new Sub (); b.Hello;
4. Sub s = new Base(); s.Hello;
第16题:
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A.0
B.3
C.6
D.9
第17题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Privme Sub Command1_Click( )
n=5
f=1
s=0
For i=1 To n
f=f【 】
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算
的值。请填空。
第18题:
增压回路的增压比等于()。
第19题:
液压千斤顶,大小活塞的面积比为100:1,人作用在小活塞上的力F1=500N,则此千斤顶最多能撑起()N重的物体(忽略摩擦力及活塞重量)。
第20题:
某液压千斤顶,小活塞面积为1cm2,大活塞面积为100cm2。当城小活塞上加10N力时,如果不计磨擦阻力等,大活塞可产生()N的力。
第21题:
某液压千斤顶,小活塞面积为1cm2,大活塞为100cm2。当在小活塞上加10N力时,如果不计摩擦阻力,大活塞可产生()的力。
第22题:
第23题:
1
5
1/5