Michael Mungovan, studying at Brunel University, was working a night shift with a track maintenance crew near Vauxhall station, south London, in October 2004, when he was struck from behind by an empty train and killed.
The court was told that Mr. Mungovan had been given only minimum training. He had worked a few shifts, but never on a live running line.
Why were two rail companies fined?
A.Because they asked young students to work at night.
B.Because their train was not safe.
C.Because they hired college students illegally.
D.Because their work practice system was unsafe.
第1题
单击一次窗体之后,下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b,C)End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End Function
A.21
B.23
C.19
D.35
第2题
单击一次命令按钮之后,下列程序代码的执行结果为______。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End Function
A.15
B.20
C.35
D.40
第3题
单击窗体时,下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x < 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub
A.23 47
B.5 11
C.10 22
D.23 29
第4题
单击一次命令按钮之后,窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End Sub
A.20 10
B.10 20
C.2 10
D.10 10
第5题
单击一次命令按钮之后,窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End Sub
A.1 4 9 16
B.1 3 5 7
C.3 6 9 12
D.2 4 6 8
第6题
单击一次命令按钮之后,窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub
A.24 6
B.24 0
C.12 6
D.12 0
第7题
单击一次命令按钮之后,下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S: End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function
A.20
B.35
C.115
D.135
第8题
单击一次命令按钮之后,在对话框中输入12,21,30,3,窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Next i Print s End Sub Sub per(a, ByValB)b = 1 For i = 1 To 3 a = a * i Next i End Sub
A.12 21 30 3
B.24 42 60 6
C.3 30 21 12
D.只能输入一个数
第9题
单击一次命令按钮之后,在对话框中输入12,2,34,23,窗体中的输出结果为______。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End Sub
A.14
B.71
C.48
D.37
第10题
单击一次命令按钮之后,在对话框中输入12,2,34,.23,窗体中的输出结果为______。 Private Sub Command1_ Click() a = 10: b = 20: c = 30 Call check(a, b * 2, (c)) Print "Name:"; a; b; c End Sub Private Sub check(a, ByVal b,C)Dim t As Integer a = a + 1: b= b + 1: c = c + 1 t = a a =b b = t End Sub
A.20 30 40
B.40 30 20
C.41 30 10
D.41 20 30
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!