设选取的基准收益率为ic,如果某投资方案在财务上可行,则有()
第1题:
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
第2题:
有以下程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(i)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击命令按钮,输出结果为______。
A. 2 4 6 8
B.5 6 7 8
C.10 12 14 6
D.出错
第3题:
互斥型方案经济效果评价的准则有( )。
A.增量投资收益率大于基准收益率,则投资额大的方案为优选方案
B.增量投资回收期小于基准投资回收期,则投资额小的方案为优选方案
C.增量投资内部收益率大于基准收益率,则投资额大的方案为优选方案
D.内部收益率大于基准收益率,则内部收益率大的方案为优选方案
E.投资收益率大于基准收益率,则投资收益率大的方案为优选方案
第4题:
设有如下程序: Private Sub search(a()As Variant,ByVal key As Variant,index%) Dim I% For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21,64,92,15,72,38,45,72) Call search(b, 45, n) Print n End Sub 程序运行后,输出的结果是
A.2
B.6
C.10
D.12
第5题:
阅读程序: Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序,单击命令按钮,输出结果为。
第6题:
如果两个互斥方案的差额内部收益率大于基准收益率,则原始投资额小的方案为较优方案。( )
第7题:
有以下程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击命令按钮,输出结果为( )
A.2 4 6 8
B.5 6 7 8
C.10 12 14 16
D.出错
第8题:
执行下面的程序段,x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
第9题:
A.方案2与方案1相比,增量投资收益率为10%
B.方案2与方案1相比,在经济上可行C.方案2比方案1投资高出50%,超过基准收益率,经济上不可行
D.当基准投资收益提高为15%时,方案2优于方案1
E.当基准投资收益率降低为8%时,方案1优于方案2
第10题:
有过程如下:Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下:Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5,运行结果为 ______。
A.100
B.120
C.200
D.50