用公式A=Pi（1+i）n／［（1+i）n-1］来分析投资回收与投资回报，Pi就是投资者投入资本金后所获得的投资回收，Pi/［（1+i）n-1］就是投资者的投资回报。（）
第1题：
单击一次命令按钮后，下列程序的执行结果是( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function
A．15
B．25
C．35
D．45
第2题：
单击一次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() s=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 i P=Sum End Function
A．15
B．25
C．35
D．45
第3题：
A.等额多次支付年金终值公式：F=A{[(1+i)n-1]/i}
B.等额多次支付偿债基金公式：A=F{i/[(1+i)n-1]}
C.等额多次支付资金回收公式：A=P{[i(1+i)n]/[(1+i)n-1]}
D.等额多次支付现值公式：P=A{[(1+i)n-1]/[i(1+i)n]}
第4题：
若有如下程序： sub(p，n) int(*p)[3]，n； { int i； for(i=0；i＜=n；i++) printf("%d"，*(*(p+i)+n)); } main() {int s[3][3]＝{1，2，3，4，5，6，7，8，9}； sub(s，2)； } 则程序运行后的输出结果是( )
A．3 6 9
B．2 4 8
C．4 5 6
D．7 8 9
第5题：
单击一次命令按钮之后，下列程序代码的执行结果为 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
第6题：
在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
End sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
第7题：
把‘今天天气不错!’变为‘今天天气不错’是( )。
A．＜sup＞＜/sup＞
B．＜s＞＜/s＞
C．＜tt＞＜/tt＞
D．＜sub＞＜/sub＞
E．＜i＞＜/i＞
第8题：
单利本利和计算公式为( )。
A．F＝P(1+i)n
B．F=P(1+i·n)
C．F=P·in
D．F=P·i·n
第9题：
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．6
B．12
C．24
D．47
第10题：
下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End Sub
A．15
B．16
C．2O
D．25