依我國《勞動合同法》的相關規定，用人單位的下列做法合法的有哪些？
A.甲公司告知應聘人員因應聘者太多，公司決定在正式試用期前對擬錄用的12名人員實行末位淘汰試用制
B.乙因對上司不滿向公司提出辭職后，要求公司支付經濟補償金，公司予以拒絕
C.丙與公司簽訂3年勞動合同，約定如丙工作不滿3年的向公司支付違約金3萬元。1年后丙提出辭職，公司要求其依據合同承擔違約金
D.丁企業被宣告破產后，與其具有競爭關系的戊企業馬上雇用了丁企業的高級工程師
AI搜題
NEW
搜題
第1題
單擊一次窗體之后，下列程序代碼的執行結果為______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub
A．1 2 3 30 39 72
B．1 2 3 1 2 3
C．30 39 72 1 2 3
D．30 39 72 30 39 72
第2題
設有如下的子過程： Public Sub p1(ByRef x%, ByVal y%) x = 3 * x y = y + 1 End Sub Sub Command1_Click() Dim a%,b% a = 1: b = 2 Call p1(a, b) MsgBox("a=" & a & " b=" & b ) End Sub 則在Command1_Click中 MsgBox 顯示的結果是____________。
A、a=1 b=2
B、a=3 b=2
C、a=3 b=3
D、a=1 b=3
E、a=4 b=4
第3題
以下是某個窗體的模塊代碼，請分析單擊窗體后程序運行至"*"號位置時變量X、Y和Z的值分別是【 】。
DIM X AS INTEGER
DIM Y AS INTEGER
PRIVATE SUB FORM_CLICK()
DIM X AS INTEGER
X=1
Y=1
CALL AA(Y+1)
Z=BB(X)
'* * * * * * *
MSGBOX "X="&X&"/Y="&Y&"/Z="&Z
END SUB
PRIVATE SUB AA(BYVAL Z AS INTEGER)
Y=Z+X
Z=X+Y
END SUB
PRIVATE FUNCTION BB(BYREF Y AS INTEGER
Y=Y+1
BB=X+Y
END FUNCTION
第4題
運行下列程序：
Dim x, y
Private Sub Form_Click()
x = 1: y = 1: z = 1
fun1 (1)
Print x; y; z
End Sub
Private Sub fun1(a)
x = a + x: y = a + x: z = a + y
End Sub
單擊窗體后，則輸出結果是()。
A.1 1 1
B.2 3 1
C.2 3 4
D.2 2 1
第5題
下面程序：
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．顯示錯誤信息
第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 Pl(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 運行后的輸出結果為______。
A．0
B．12
C．Str(z)
D．顯示錯誤信息
第7題
下面程序： 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．顯示錯誤信息
第8題
下面程序： 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．顯示錯誤信息
第9題
下面程序： 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．顯示錯誤信息
第10題
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序運行后，單擊命令按鈕，則窗體下顯示的內容是______。
A．8
B．2
C．5
D．11
