题目内容（请给出正确答案）

[主观题]

沉没成本是指已经付出且不可收回的成本。沉没成本是由过去的决策或环境决定的，它所造成的成本是不

能由现在或将来的任何决策而改变的。根据上述定义，下列不涉及沉没成本的是（）。

A．某煤矿的煤炭已经开采完，矿井里的一些采掘设备由于无法取出，只好被废弃

B．小李花100美元买了一台二手台式电脑，回国时由于无法携带，只好忍痛将电脑丢弃

C．小陈如果在承包的山林中放养野鸡，比放养野兔的年收益更多，但管理更难，于是他选择了放养野兔

D．小张准备约小丽一起去看电影，因为小丽临时加班，又不能退票，小张只好将两张电影票充当了留言条

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“沉没成本是指已经付出且不可收回的成本。沉没成本是由过去的决策…”相关的问题

第1题

单击命令按钮时，下列程序代码的执行结果为（)。Private Function FirProc（x As Integer,y As Integ

单击命令按钮时，下列程序代码的执行结果为()。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End Sub

A．21

B．19

C．17

D．34

点击查看答案

第2题

单击命令按钮时，下列程序代码的执行结果为______。Private Function PickMid（xStr As String) As

单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub

A．abcdef

B．afbecd

C．fedcba

D．defabc

点击查看答案

第3题

单击一次命令按钮之后，下列程序代码的执行结果为private Sub Command1_Click（) S=P（1) +P（1)+P（2

单击一次命令按钮之后，下列程序代码的执行结果为 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

点击查看答案

第4题

单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click（)Print MyFunc（24，18) En

单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click() Print MyFunc(24，18) End Sub Public Function MyFunc(m As Integer，n As Integer)As Integer Do While m ◇ n Do While m>n：m=m—n：Loop DO While m＜n：n=n-m：Loop Loop My Func=m End Function

A．2

B．4

C．6

D．8

点击查看答案

第5题

单击一次命令按钮，下列程序代码的执行结果为（)。Private Sub Commandl_Click（)Dima As Integer,b

单击一次命令按钮，下列程序代码的执行结果为()。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，A) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function Priva

A．21

B．19

C．17

D．34

点击查看答案

第6题

单击命令按钮时，下列程序代码的运行结果为Private Sub Command1_Click（) Print MyFunc（20, 18)En

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End Function

A．0

B．2

C．4

D．6

点击查看答案

第7题

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click（) print MyFunc（20，1

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtion

A．0

B．2

C．4

D．6

点击查看答案

第8题

单击命令按钮时，下列程序代码的执行结果为（)。Private Sub Procl（nAs Integer,ByValmASInteger)n=

单击命令按钮时，下列程序代码的执行结果为()。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m\10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

点击查看答案

第9题

单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click（) Dim a As Integer，b As

单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A)End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End Function

A．21

B．19

C．17

D．34

点击查看答案

第10题

单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune（m As Integer，n As In

单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune(m As Integer，n As Integer) As Integer Do While m＜＞n Do While m＞n m=m-n Loop Do While m＜n n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub

A． 2

B．4

C．6

D．8

点击查看答案