第一篇：VB期末考试题库及答案

试卷方案：201105 Visual Basic期末考试方案

一、单项选择_共50题（选：20题*1’=20分）第1题

以下有关对象属性的说法中，错误的是___________.A.工具箱中的控件并不是VB中所有的控件

B.若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C.对象的Name属性在运行时不能改变

D.对象的所有属性都可以在属性窗口中设置

第2题

xe3数学表达式 sin27的VB算术表达式为_______.|xy|A.Sin(27)+Sqr(x+Exp3)/(x+y)B.Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)C.Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y)D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3题

下列有关对象的叙述中,正确的是______ A.对象由属性，事件和方法构成

B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C.对象的事件一定就是由VB预先设置好的人工干预的动作 D.对象的方法是对象响应某个事件后执行的一段程序代码

第4题

表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___.A.1 B.-1 C.–2 D.–3

第5题

下列关于菜单的说法中,错误的是__________.A.每一个菜单项就是一个对象，并且可设置自己的属性和事件 B.菜单项不可以响应DblClick事件 C.VB6.0允许创建超过四级的子菜单

D.程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False 第6题

以下关于数组的说法中,错误的是__________.A.使用了Preserve 子句的Redim语句，只允许改变数组最后一维的上界 B.对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C.Erase语句的功能只是对固定大小的数组进行初始化 D.Lbound函数返回值是指定数组某一维的下界

第7题

设a=3,b=2,c=1,运行print a>b>c的结果是____________.A.True B.False

C.1 D.出错

第8题

以下说法不正确的是____________.A.使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B.使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 C.使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D.使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化

第9题

在列表框List1中有若干列表项,可以删除选定列表项的语句是__________.A.List1.text=“" B.List1.List(List1.ListIndex)=”“ C.List1.Clear D.List1.RemoveItem List1.ListIndex 第10题

x53数学表达式 e2lnxsin(2x)对应的VB表达式是__________.|sinxcosx2|A.(e^(2*π*x-5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))B.(Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))C.(Exp(2*π*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))D.e^(2*3.14159*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))第11题

以下有关数组参数的说明中，正确的是______ A.在过程中也可用Dim语句对形参数组进行说明

B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C.调用过程时，数组名不能作为实参 D.数组可以按地址传递也可以按植传递

第12题

下列有关过程的说法中,错误的是_____________.A.在Sub或 Function过程内部不能再定义其它Sub或 Function 过程

B.对于使用ByRef说明的形参,在过程调用时形参和实参只能按传址方式结合 C.递归过程既可以是递归Function过程,也可以是递归Sub过程 D.可以像调用Sub过程一样使用Call语句调用Function过程

第13题

要将焦点设置在某个控件上,以下四个选项中正确的是______.A.只能使用鼠标直接点击控件

B.只能使用Tab键将焦点移到该控件

C.只能在程序中调用该控件的SetFocus方法 D.A、B、C三选项中涉及的方法均可使用

第14题

以下Case语句中,能正确描述Y的绝对值大于6的是______.A.Case Abs(Y)>6

B.Case-6 To 6 C.Case Not(-6 To 6)

D.Case Is<-6,Is>6

第15题

以下关于变量作用域的叙述中,正确的是____________.A.窗体中凡用Private声明的变量只能在某个指定的过程中使用 B.模块级变量只能用Dim语句声明

C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量

第16题

以下关于数值常量的说法中,错误的是______ A.八进制数的表示方法是在数字前面加&O B.十六进制数的表示方法是在数字前面加&H C.在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D.32768是合法的数值常量

第17题

数学表达式 exsin330xy对应的VB表达式是___________.A.Abs(e^x+Sin(30)^3)∕Sqr(x+y))B.Abs(Exp(x)+Sin(30)^3)∕(Sqr(x+y))

C.Abs(e^x+Sin(30*3.14159∕180)^3)∕(Sqr(x+y))D.Abs(Exp(x)+Sin(30*3.14159∕180)^3)∕Sqr(x+y))

第18题

下面的4个表达式中,有关_________个能够对Single类型变量x(正数)的第3位小数正确地进行四舍五入计算.Format(x,″#.00″)Int(100*(x+0.005))/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005))/100 A.1个 B.2个 C.3个

D.4个

第19题

执行以下语句时,会出现错误提示的是__________.A.Print”2b3 “ +12.5 B.Print”12.5“+ 12

C.Print”12.5“ & 12.5

D.Print”2e3“+12 第20题

以下Case语句含有错误的是___________.A.Case 0 To 10 B.Case Is>10

C.Case Is>10 And Is<50

D.Case 3,5,Is>10 第21题

下列语句中,正确的是__________ A.Textl.SetFocus B.Forml.Clear C.Labell.SetFocus

D.Listl.Cls 第22题

下列选项中,所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________.①Val(Right(X,1)&Left(X,1))②Val(Right(Str(X),1)&Left(Str(X),1))

③Val(Right(CStr(X),1)&Left(CStr(X),1))④Val(Mid(X,2,1)+Mid(X,1,1))A.①② B.②③ C.②④

D.①③④

第23题

以下关于子过程或函数的定义中,正确的是______ A.Sub f1(n As String*1)

B.Sub f1(n As Integer)As Integer D.Function f1(ByVal n As Integer)

C.Function f1(f1 As Integer)As Integer 第24题

下列有关控件数组的说法中,错误的是______.A.控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程

D.控件数组中每个元素的下标由控件的Index属性指定

第25题

以下对数组参数的说明中,错误的是___________.A.在过程中可以用Dim语句对形参数组进行声明 B.形参数组只能按地址传递

C.实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D.只需把要传递的数组名作为实参，即可调用过程

第26题

要向文件datal.txt添加数据,正确的文件打开命令是_____________.A.Open”datal.txt“For Output As #1 B.Open”datal.txt“For Input As #1 C.Open”datal.txt“For Append As #5 D.Open”datal.txt“ For Write As #5 第27题

下面有关数组处理的叙述中，正确的是__________.A.在过程中使用ReDim语句可以改变动态数组数据的类型 B.在过程中，可以使用Dim、Private和 Static语句来定义数组

C.用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D.不可以用Public语句在窗体模块的通用处说明一个全局数组

第28题

下面的表达式中,运算结果为True的是__________.A.”abcrd“ <=”ABCRD“ C.3>2>1

B.Int(134.69)<=CInt(134.69)

D.Mid(”Visual“,1,4)=Right(”lausiV“,4)第29题

设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其________属性置为True,再将ScrollBar属性设置为3.A.MultiLine B.AutoSize

C.Alignment

D.RightToLeft 第30题

下面有关数组的说法中,正确的是______ A.数组的维下界不可以是负数

B.模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突 C.模块通用声明处有Option Base 1，模块中有Dim A(0 To 5),则A数组第一维维下界为0 D.模块通用声明处有Option Base 1，模块中有DimA(0 To 5),则A数组第一维维下界为1 第31题

下面有关数组的叙述中,不正确的是______.① 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 ② 数组作为形式参数时,传递的是每个数组元素的值

③ 在窗体模块的通用声明处可以用Public 说明一个全局数组

④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A.②③ B.①③④ C.①②③④

D.③④

第32题

下列关于对象SetFocus与GotFocus的描述中,正确的是_____ A.SetFocus是事件,GotFocus是方法

C.Setfocus和GotFocus都是方法

B.Setfocus和Gotfocus都是事件 D.SetFocus是方法,GotFocus是事件

第33题

创建一个名为”文件“的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入_________.A.文件($F)B.文件(&F)

C.文件(#F)

D.文件(%F)第34题

在下列属性中,属于CommandButton控件、ListBox控件共有的是______.A.Caption、Text B.Visible、Font

C.Caption、Visible

D.List、Visible 第35题

下列能够正确表示条件”X≤Y

C.X≤Y OR Y

D.X<=Y

以下关于Function过程的说法中,错误的是___________.A.Function过程名可以有一个或多个返回值 B.在Function过程内部不得再定义Function过程 C.Function过程中可以包含多个Exit Function语句 D.可以像调用Sub过程一样调用Function过程

第37题

下面的关系表达式中,运算结果为True的是______.A.CInt(1.5)=Int(1.5)B.Fix(1.5)=Int(1.5)C.Fix(-1.5)=CInt(-1.5)

D.Fix(-1.5)=Int(-1.5)第38题

已知XB,则下列表达式中,结果为True的是______ A.Sgn(X-Y)+Sgn(A-B)=-1

B.Sgn(X-Y)+Sgn(A-B)=-2 C.Sgn(Y-X)+Sgn(A-B)=2

D.Sgn(Y-X)+Sgn(A-B)=0 第39题

执行__________语句时,会出现出错提示信息.A.Print 5+7=14

B.Print 16384*2 C.Print 32768*2

D.Print ”14“+32 第40题

数学表达式 sin30logxy2exy对应的Visual Basic表达式是______.A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B.(Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))D.(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

第41题

在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________.A.Form2.Unload C.Form2.End

B.Unload Form2 D.Form2.Hide 第42题

Print方法可在______上输出数据.①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A.①③⑥ B.②③⑤

C.①②⑤

D.③④⑥

第43题

若要使逻辑表达式x>y Xor y

3、y=

3、z=4 C.x=

1、y=

3、z=2

B.x=

2、y=

1、z=2 D.x=

2、y=

2、z=2 第44题

下列____________是合法的变量名.A.abs B.–al

C.cdc d

D.Abe_10 第45题

下列______是正确的VB常量.A.D-6 B.E-6

C.5D

D.5E-6 第46题

若在模块中用Private Function Fun(A as Single,B as Integer)As Integer 定义了函数Fun.调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是___________.A.Fun 3.14,J B.Call Fun(I,365)

C.Fun(I),(J)

D.K=Fun(”24“,”35“)第47题

若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开.①TextBox ②PictureBox ③ Image ④ Frame A.①或② B.②或③

C.②或④

D.③或④

第48题

以下关于文件的叙述中，错误的是__________。

A.用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B.可以用Print #语句或 Write# 语句将数据写到顺序文件中

C.若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开

第49题

窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click事件过程,需要将该按钮的_________属性设置为True.A.Enabled B.Default

C.Cancel

D.Visible 第50题

数学表达式 x5cos29(elny)5x 对应的VB表达式是______ A.(x^5-Cos(29))/Sqr(e^x+In(y))+5 B.(x^5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)

C.(x^5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5)D.(x^5-Cos(29*3.14159/180))/(Sqr(e^x+Log(y))+5

二、填空_共20题（选：15空*2’=30分）——阅读理解：填写程序的输出结果 第1题

运行下列程序，单击Command1, 在窗体上显示的第一行内容是______【1】____, 第二行的内容是_____【2】____, 第三行的内容是_____【3】______。Option Explicit Private Sub Command1_Click()Dim s As String s=”Basic“ Call trans(s)End Sub Private Sub trans(s As String)Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,”a“)t=LCase(Right(s,j))s=Right(t,Len(s)-k)& Left(s,Len(t))k=k-1 Print s Loop Until k=0 End Sub 第2题

执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。Option Explicit Private Sub Command1＿Click()Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 第3题

执行下面的程序，单击Command1,窗体上显示的第一行是______【1】_____，第二行是______【2】____,第四行是______【3】_____。Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b)Print a, b End Sub Private Sub sub1(a As Integer, b As Integer)a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Call sub1(a, b)End If End Sub 第4题

运行下面的程序，单击Command1,在窗体上显示的变量a的值为____【1】______，变量b的值为_____【2】____,变量c的值为_____【3】______。Option Explicit Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c)Print a,b,c End Sub Private Function fun(x As Integer, y As Integer, z As Integer)As Integer z=x x=x+y y=y+z fun=x+y End Function 第5题

执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有 【1】 个元素；数组元素A(2)的值 【2】，A(4)的值是 【3】。Option Explicit Option Base 1 Private Sub Command1_Click()Static A()As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n)For i=k+1 To n A(i)=i*n+1 Next i

For i=1 To n Print A(i);Next i Print End Sub 第6题

运行下面程序，单击Command1，在窗体上显示的变量A的值为___【1】____,变量B的值为____【2】______。Option Explicit Dim a As Integer Private Sub Command1_Click()Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a)+ b Print a, b End Sub Private Function fun(n As Integer, k As Integer)n = n + a k = n2)Else Print ”OVER“ End If End Sub 第9题

运行下列程序，单击Command1，在窗体上显示的第一行内容是 【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】。（”A“的ASCII码是65，”Z“是90）Option Explicit Private Sub Command1_Click()Dim i As Integer, st As String, n As Integer, p As String * 1 p = ”B“ For i = 3 To 1 Step-1 n = Asc(p)j Else a(i, j)= jLen(s)s = ”0“ & s Next i '**********SPACE********** 【?】 End Function 第2题

'下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。'具体做法是：变量Left指向要被处理的数（从第2个元素开始），'Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，'就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；

'否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。'Right的值即为不同的数的个数。程序界面参见下图所示。Option Explicit Option Base 1 Private Sub Command1_Click()Dim A()As Integer, N As Integer, I As Integer Dim OP As Integer N = InputBox(”请输入数据个数“, , 10)ReDim A(N)Randomize For I = 1 To N A(I)= Int(Rnd * 10)+ 1 Text1 = Text1 & A(I)& ” “ Next I Call statistic(A, OP)Text2 = ”有 “ & OP & ” 个不同的数: “ For I = 1 To OP Text2 = Text2 & A(I)& ” “ Next I End Sub Private Sub statistic(A()As Integer, Right As Integer)Dim Left As Integer, K As Integer, I As Integer '**********SPACE********** Right=【?】 Left = 2 Do While Left <= Right '**********SPACE********** K= 【?】

For I = K To 1 Step-1 If A(Left)= A(I)Then Exit For Next I '**********SPACE********** If 【?】 Then

Left = Left + 1 Else A(Left)= A(Right)'**********SPACE********** 【?】 End If Loop End Sub 第3题

'下面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示。Option Explicit Private Sub Command1_Click()Dim p()As Integer,i As Integer,n As Integer Dim st As String,k As Integer Randomize k =InputBox(”元素个数；“，20)ReDim p(k)Do n =Int(Rnd*90)+10 '**********SPACE********** If 【?】 Then i =i+1 p(i)=n End If '**********SPACE********** Loop Until【?】 For i =1 To UBound(p)st =st & Str(p(i))If i Mod 10 =0 Then st =st & vbCrLf Next i Text1 =st End Sub Private Function prime(n As Integer)As Boolean Dim i As Integer Prime =True For i =2 To Sqr(n)If n Mod i =0 Then '**********SPACE********** 【?】 Exit For End If Next i End Function 第4题

'用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。

'程序界面和公式参考图片所示： Option Explicit Private Sub Command1_Click()Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = Text1 '**********SPACE********** If 【?】Then MsgBox(”x必须在-1～1之间“)Exit Sub End If fx = a1 * x8)'**********SPACE********** 【?】

For J = 1 To Len(Anw)'**********SPACE********** If 【?】Then Scor = Scor + 1 End If Next J

List2.AddItem StudId & ” “ & Scor Next I End Sub 第11题

'下面程序的功能是：输入一个n位的整数（n≤10）,求出由这n个数字组成的n位的 '最小整数和最大整数。Option Explicit 0ption Base 1 Private Sub Command1_Click()Dim n As Long,a()As String n=Text1 Call change(n,a)Call sort(a)For i=1 To UBound(a)large=a(i)& large '**********SPACE********** small=【?】 Next i Text2=large For i=1 To Len(small)'**********SPACE********** If 【?】 Then Exit For Next i If i<>1 Then small =Mid(small, i ,1)& Left(small,i-1)& Right(small,Len(small)-i)End If Text3=small End Sub Private Sub sort(a()As Integer)'冒泡法排序 Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=1 To UBound(a)-i '*********SPACE********** If 【?】 Then t =a(j)a(j)=a(j+1)a(j+1)=t End If Next j Next i End Sub '**********SPACE********** Private Sub change(【?】)Dim k As Integer Do k=k+1 ReDim Preserve a(k)

a(k)=n Mod 10 '**********SPACE********** n=【?】 Loop Until n=0 End Sub 第12题

'下面程序的功能是计算如图所示的值。请完善如下程序：

Option Explicit Private Sub Command1_Click()Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n=Text1 s=1 For i =2 To n '**********SPACE********** 【?】

For j =1 To i st=st & CStr(i)next j '**********SPACE********** k=【?】 s=s + k Next i Text2=s End Sub 第13题

' 在计算机中用一个字节(8位)来存储一个字符的ASCII码, ' 其中低7位二进制数对应字符的编码,每个字节的最高位一般保持为”0“，' 在数据传输时可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是，' 若7位ASCII码有偶数个1，则最高位为1。有奇数个1，则最高位为0。' 例如字母”A“的ASCII码十进制表示为65，二进制表示为01000001。

' ”A“的传输码则为”1100 0001“。本程序的功能就是把ASCII代码转换成这种传输码。' 程序参考界面如下图所示。Option Explicit Private Sub Command1_Click()Dim i As Integer, s As String Dim str As String, ch As String str = Text1.Text For i = 1 To Len(str)'**********SPACE********** 【?】

Call convert(ch, s)List1.AddItem ch & ”==>“ & s

Next i End Sub Private Sub convert(ch As String, s As String)Dim m As Integer, k As Integer, n As Integer, i As Integer '**********SPACE********** s= 【?】 n = Asc(ch)Do While n > 0 '**********SPACE********** 【?】 s = m & s If m = 1 Then k = k + 1 End If n = n 2 Loop For i = 1 To 71 sum = a(idx)+ a(j)If Int(Sqr(sum))= Sqr(sum)Then Exit For Next j '**********FOUND********** If j <= idx1 Else idx = idx + 1 End If Loop End Sub 第2题

'【题目】本程序的功能是生成一组（10个）两位的互质'数。

'一组互质数是指其中任意两个数之间都不存在除1以外'的任何公约数。

Private Sub Command1_Click()Dim i As Integer, k As Integer, num(10)As Integer Dim flag As Boolean, n As Integer num(1)= Int(Rnd * 90)+ 10 k = 1 Do '**********FOUND********** flag =flase n = Int(Rnd * 90)+ 10 For i = 1 To k If gcd(num(i), n)<> 1 Then flag = False Next i If flag Then k = k + 1 num(k)= n End If Loop Until k = 10 For i = 1 To 10 Text1 = Text1 & Str(num(i))Next i End Sub '**********FOUND********** Private Function gcd(ByVal m%, ByVal n%)As Integer Dim r As Integer Do r = m Mod n m = n n = r Loop Until r = 0 '**********FOUND********** gcd = m End Function 第3题

'【题目】本程序的功能是：把10～20范围内的数分别表示成若干个质因子连乘的形式。Option Explicit Option Base 1 Private Sub Command1_Click()Dim j As Integer, pf()As Integer, i As Integer Dim st As String For i = 10 To 20 Call prime_f(i, pf)st = CStr(i)& ”=“ '**********FOUND********** For j = 1 To UBound(pf)-1 st = st & Str(pf(j))& ”*“ Next j st = st & Str(pf(j))List1.AddItem st Next i End Sub

'**********FOUND********** Private Sub prime_f(ByVal n As Integer, a()As Integer)Dim i As Integer, k As Integer i = 2 Do If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k)a(k)= i n = n i Else i = i + 1 End If '**********FOUND********** Loop Until n <= 1 End Sub 第4题

'[题目]本程序的功能是：查找800-1200范围内的所'有具有两个相同数字的素数。

'例如811、877等都是符合要求的数据。Option Explicit Private Sub Command1_Click()Dim i As Integer For i = 800 To 1200 If validate(i)And prime(i)Then List1.AddItem i End If Next i End Sub '**********FOUND********** Private Function validate(n As Integer)As Boolean Dim num()As Integer, k As Integer Dim i As Integer, j As Integer Do k = k + 1 '**********FOUND********** ReDim preserve num(k)num(k)= n Mod 10 n = n 10 Loop Until n <= 0 k = 0 For i = 1 To UBound(num)1 For j = i + 1 To UBound(a)'**********FOUND********** If a(i)= a(j)Then Exit For Next j Next i fun = True

End Function 第6题

'[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数），'找出其中的最大元素并将它删除，再输出删除后的数组。Option Explicit Option Base 1 Dim a()As Integer, n As Integer Private Sub Command1_Click()Dim i As Integer n = InputBox(”请输入数组个数", , 10)ReDim a(n)For i = 1 To n a(i)= Int(Rnd * 100)+ 1 Text1 = Text1 & Str(a(i))Next i Call Lookup(a)'**********FOUND********** For i = 1 To n-1 Text2 = Text2 & Str(a(i))Next i End Sub Private Sub Lookup(a()As Integer)Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i)> Maxv Then Maxv = a(i): maxp = i End If Next i Call move_f(a, maxp)End Sub Private Sub move_f(a()As Integer, k As Integer)Dim i As Integer For i = k + 1 To UBound(a)'**********FOUND********** a(i-1)= a(i)Next i '**********FOUND********** ReDim preserve(UBound(a)1 For j = i + 1 To UBound(a)'**********FOUND********** If a(i)= a(j)Then Exit Function Next j Next i verify = True End Function

五、程序设计_共12题（选：共2题，1题为8分，另一题10分=18分）第1题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，生成一个4行5列的二维数组，其每''个数组元素是随机产生的两位数，' 求该数组的最大元素及其所在的行号、列号。'（若有多个相同的最大元素，则要一一标出其所在''行号、列号）

' [算法提示]首先找出最大元素，再将数组中的元素''与最大元素一一比较，' 若有相等元素则输出其所在位置。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1)运行程序，按“运行”按钮(Command1)，生成一个4行5列的两位随机整数数组，' 按参考界面格式显示在多行文本框Text1中，再调用求二维数组最大元素的通用过程，' 最后将结果输出到一个多行文本框Text2中；（注意代码中不得使用randomize语句）' 按“清除”按钮(Command2)，则将文本框与图片框清空；

' 2)程序中应定义一个名为maxele的通用函数过程，用于求二维数组的最大元素。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程maxele的程序代码以及Command2的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第2题

'--'【程序设计】

'--'【题目要求】

' 编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。' 例如，数组各元素的值依次为1，2，3，4，5，6，7，8，9，10； ' 位移3次后，各元素的值依次为8，9，10，1，2，3，4，5，6，7。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1)数组可定义为固定大小的10个元素的数组。

' 按“输入”按钮(Command1)，则用inputbox函数逐一输入 ' “1---10”10个数据，并显示在文本框Text1中。' 在文本框Text2中输入循环移位位数（请输入3）

' 按“移位”按钮，调用通用Sub过程rmove()，实现移位操作,同时将 ' 移位后10个数据显示在文本框Text3中。

' 按“清除”按钮Command2，则将3个文本框清空，将焦点置于Text2上； ' 按“退出”按钮Command3，结束程序运行

' 2)程序中应定义一个通用Sub过程rmove()，以实现移位操作。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等

'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间(1)先写出自定义Sub过程rmove()的程序代码

'(2)然后完成Command1_Click(),Command3_Click(),Command4_Click()过程代码。'(3)最后完善Command2_Click()过程代码 '！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除，否则无分。

第3题

'--'【程序设计】

'--'【题目要求】

' 编写程序，随机生成一个4行5列由两位整数组成的数组，并找出其中所有的谷点元素。' 所谓谷点元素是指在本行内为最小，在本列内也为最小的元素。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）按“生成数组”按钮(Command1)，生成随机数组并'显示到图片框(Picture1)中，' 按“查找谷点”按钮(Command2)，则找出谷点元素，' 并按图示的格式显示到多行文本框(Text1)中，' 按“清除”按钮Command3，清除图片框与文本框。' 2)程序中应定义一个名为cp的Sub过程，用于查找数组某行是否有谷点元素。

'（算法提示：先求出某行最小元素，再判断该元素是'否在该列也为最小，' 若是，则为谷点数，否则，谷点不存在。）'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程cp的程序代码以及Command1,Command3的代码 '(2)最后完善Command2_Click()事件过程代码。'！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第4题

'--'【程序设计】

'--'【题目要求】

'编写求前n项级数和的程序。求和公式参见已给出的参考图所示。

' 1）在文本框Text1中输入x值1，文本框Text2中输入n值5，' 按“计算”按钮(Command1)，则开始计算并在列表框List1中显示S1，S2，„，Sn；

' 按“清除”按钮(Command2)，则将两个文本框及列表框清空，焦点置于Text1上； ' 按“退出”按钮(Command3)，结束程序运行；

' 2）程序中应定义一个名为fact的函数过程，用于计算阶乘值。'【代码书写要求】

' 1)列表框、文本框、命令按钮的名称必须使用系统默认的名称，' 如List1，Text1，Command1等，否则扣分。' 2）窗体设计界面参见已给出的参考界面。

' 3)请在“****Program*****”与“****End*****”之间添加程序代码 ' 请在指定区间 1)先写出自定义函数fact及Command2,Command3的程序代码 ' 2)然后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第5题

'--'【程序设计】

'--'【题目要求】

'编写程序，以给定的方式标记出方阵中每一行最小元素'的位置。

'如果某一行有多个数值相等的最小元素，也要同时标记'出来。

'标记方式为每一行的最小元素为 0，其他元素为 1。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)在文本框Text1中输入 N 值（要求输入5），' 按“执行”按钮，则随机生成一个 N 行 N 列的由两位正整数组成的 N 阶方阵，' 并输出到多行文本框Text2 中，同时求出每一行的最小元素并生成标记矩阵 ' 输出到多行文本框Text3 中；

' 按“清除”按钮，则将3个文本框清空，将焦点置于文本框Text1上； ' 按“退出” 按钮，结束程序运行；

'2)程序中应定义一个求数组某一行的最小元素值的通用Sub过程minx()。'3)原始方阵数据由随机函数生成（注意：不要使用randomize语句）'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码

'3)请在指定区间(1)先写出自定义Sub过程minx()的程序代码以及Command2_Click()、' Commnad3_Click()的代码

'(2)最后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除，' 否则无分。

第6题

'--'【程序设计】

'--'【题目要求】

'从键盘上输入6名同学的成绩，分别为：87，72，56，89，92，66。将这些成绩 '显示在文本框Text1中（由Command1_Click()事件过程完成）。'然后按降序对这6个成绩进行排序，并将结果显示在文本框Text2中

'（由Command2_Click()事件过程完成）。窗体设计界面参见已给出的参考界面。

'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)用inputbox函数输入成绩。原始成绩必须为上面给出的数据，否则扣分。'3)请在“****Program*****”与“****End*****”之间添加程序代码

第7题

'--'【程序设计】

'--'【题目要求】

' 编写程序，找出随机生成的30个无重复数的三位整数中的降序数。' 所谓降序数是指百位数大于十位数、且十位数大于个位数。' 窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）单击“执行”按钮(Command1)，随机生产30个无重复数的三位整数，' 按10个数一行的格式显示在多行文本框Text1中，再找出其中的降序数输出到列表框List1； ' 要求程序代码中不得使用Randomize语句，否则扣分。

' 如果数据中无降序数存在，则使用msgbox输出“无降序数”信息，' 按“清除”按钮(Command2)，将文本框及列表框清空。

' 2）程序中应定义一个名为jx的函数过程，用于判断一个整数是否为降序。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程jx的程序代码以及Command2的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第8题

'--'【程序设计】

'--'【题目要求】

' 编写程序，找出100以内的所有素数，存放在数组P中，' 并将所找到的素数，按每行10个的形式显示在文本框'Text1中。

' 窗体设计界面参见已给出的参考界面。

'【编程要求】

'1)按“找素数”按钮(Command1)，则查找素数，并按格式要求显示在多行文本框Text1中。

'2)程序中应定义一个通用函数过程Prime(),以判断一个数是否为素数。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间(1)先写出自定义函数过程Prime()的程序代码

'(2)然后完善Command1_Click()过程代码 '！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第9题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，本程序的功能是：首先按给定格式（数据以逗号分隔，-1表示数据结束）' 将输入到文本框Text1中的数据(12,22,15,25,17,22,19,11,-1)依次存入一个数组p，' 然后为该组数据建立一个按从大到小次序排列的索引表并显示在文本框Text2中。' 文本框Text2中的第一个数据4表示文本框1中第4个数最大； ' 文本框2中的最后一个数据8表示文本框1中第8个数最小。' 2)窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）在文本框Text1中输入测试数据，按“处理”按钮(Command1)，' 则按题目要求得到结果并显示在文本框Text2中；

' 按“清除”按钮(Command2)，则将2个文本框清空，将焦点置于文本框Text1上； ' 按“退出”按钮(Commnad3)，结束程序运行。

' 2）程序中应定义一个通用Sub过程lnum,用于把Text1中的原始数据放入数组p中。' 3)程序中应定义一个根据数组元素的大小从大到小取其排列号的通用Sub过程Ind。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程lnum()和Ind()的程序代码以及Command2、Command3的代码'(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第10题

'--'【程序设计】

'--'【题目要求】

'编写程序，找出50以内的所有不可表示成两个平方数之和的整数。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)按“执行”按钮Command1，则开始运行程序，按参考界面格式将符合条件的数 ' 显示在多行文本框中，每行显示5个数； ' 按“清理”按钮Command2，则将文本框清空； ' 按“结束”按钮Command3，结束程序运行；

'2)程序需创建一个通用Sub过程Sub1，该过程的功能是判断一个数是否是平方数； '3)显示在文本框中的数据必须按参考界面中的形式对齐。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义Sub过程Sub1的程序代码以及Command2、Commnad3的代码 '(2)最后完善Command1_Click()过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第11题

'--'【程序设计】

'--'【题目要求】

' 1)编写程序，找出由1，2，3，4四个不同数字组成的四位整数中的素数。

' 2)窗体设计界面参见已给出的参考界面。

'【编程要求】

' 1）单击“开始”按钮(Command1)，生成（或筛选出）由1，2，3，4 四个数字

' 组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数。

' 2）单击“清理”按钮(Command2)，则将两个列表框清空； ' 单击“退出”按钮(Command3)，结束程序运行。

' 3）程序中必须包含一个判断某数是否为素数的通用函数过程Prime。

' 4)程序中必须包含一个判断某数是否仅由1--4构成且各数字仅出现1次的 ' 通用函数过程Compare。'【代码书写要求】

'1)列表框、命令按钮的名称必须使用系统默认的名称，如List1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

'(1)先写出自定义函数过程Prime的程序代码以及Command2、Command3的代码 '(2)最后完善Command1_Click()事件过程代码。'！！注意：

' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第12题

'--'【程序设计】

'--'【题目要求】

'编写程序，随机生成10个[10,99]区间的整数，并用选择法对这十个数进行排序。'窗体设计界面参见已给出的参考界面。

’【编程要求】

'1)按“生成”按钮(Command1)，则随机生成（注意：不要使用randomize语句）' 10个两位正整数组成的数列，并输出到文本框Text1中

' 按“排序”按钮(Command2)，则将10个数排序后显示在文本框Text2中 '2)程序中应定义一个通用Sub过程ssort(),以实现选择法排序过程。'【代码书写要求】

'1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间

(1)先写出自定义Sub过程ssort()的程序代码以及Command1_Click()过程代码 '(2)最后完善Command2_Click()过程代码。'！！注意：

' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，' 均不得删除，否则无分。

第二篇：财务管理期末考试题库

财务管理总复习

一、单项选择题（每小题1分，共15分）

1． 财务管理的最优目标是(B)A 利润最大化

B.每股利润最大化 C.风险最小化

D.企业价值最大化

2．某企业现在将1000元存入银行,年利率为10%,按复利计算。4年后企业可从银行取出的本利和为（C）

A 1200元

B 1300元

C 1464元

D 1350元 3．投资者甘愿冒着风险进行投资,是因为(C)A 进行风险投资可使企业获得报酬

B 进行风险投资可使企业获得等同于资金时间价值的报酬

C 进行风险投资可使企业获得超过资金时间价值以上的报酬

D 进行风险投资可使企业获得利润

4．下列各项中，不属于商业信用的是（D）

A 应付账款

B 应付票据

C 预收货款

D 应收账款

5．不存在筹资费用的筹资方式是（D）

A 银行借款

Ｂ 融资租赁

Ｃ 发行债券

D 利用留存收益

6．具有简便易行、成本相对较低、限制较少等优点的筹资方式是（A）

A 商业信用

B 发行股票

C 发行债券

D 长期借款

7．下列不属于信用条件的是（B）

A 现金折扣

B 数量折扣

C 信用期间

D 折扣期间

8．在存货ABC管理中，将存货金额很小，品种数量很多的存货划分为（C）

A A类

B B类

C C类

D AB类

9．某企业年的现金周转率为6次，则现金每次周转期为（D）

A 30天

B 40天

C 50天

D 60天

10．（D）指标不是评价企业短期偿债能力的指标

A 流动比率

B 速动比率

C 现金比率

D 产权比率

11．净现值与现值指数相比,其缺点是(D)A 考虑货币时间价值

B 考虑了投资风险性

C 不便于投资额相同的方案的比较

D 不便于投资额不同的方案的比较

12．下列各项中，属于长期投资决策静态评价指标的是（B）

A 现值指数

B 投资利润率

C 净现值

D 内部收益率

13．预计人工成本=（B）×单位产品工时×工时分配率

A预计销量

B 预计产量

C预计工时量

D 预计材料消耗量

14.下列各项中，运用普通股每股利润（每股收益）无差别点确定最佳资本结构时，需计算的指标是（A）。

A 息税前利润 B 营业利润 C 净利润 D 利润总额

15．利率升高对证券投资的影响表现为（C）

A 股票价格上升

B 债券价格上升

C 股票价格下降

D 对证券价格没有影响 16在下列各项中，能够反映上市公司价值最大化目标实现程度的最佳指标是（C）

A.总资产报酬率

B.净资产收益率 C.每股市价

D.每股利润17.某企业5年后需用20万元购置一设备，现在将钱存入银行,若年利率为10%,按复利计算。企业现在应存入银行的钱为（C）。[P/A,10%,5]=3.7908，[P/F,10%,5]=0.6209

A 120000元

B 130000元

C 124180元

D 135000元 18.作为企业财务管理目标，每股利润最大化目标较之利润最大化目标的优点在于（C）。

A 考虑了资金时间价值因素 B 考虑了风险价值因素 C 反映了创造利润与投入资本之间的关系 D 能够避免企业的短期行为

19.某企业每年向供应商购入100万元的商品,该供应商提供的信用条件为“2/10，N/40，若该企业放弃现金折扣，则其放弃折扣的资金成本为（B）。

A 22.36%

B 24.49%

C 26.32%

D 36.73% 20.不存在筹资费用的筹资方式是（D）。

A 银行借款

Ｂ 融资租赁

Ｃ 发行债券

D 利用留存收益 21.在其他条件不变的情况下，借人资金的比例越大，财务风险（A）。

A 越大

B 不变

C 越小

D 逐年上升

22.在存货ABC管理中，将存货金额很大，品种数量很少的存货划分为（A）。

A A类

B B类

C C类

D AB类 23.某企业年的现金周转率为6次，则其现金周转期为（D）。

A 30天

B 40天

C 50天

D 60天 24.某企业投资20万元购入一台设备，预计当年投产后每年可增加税前利润4万元，固定资产年折旧额2万元，经营期6年，不考虑所得税，则静态投资回收期为（C）。

A 6.7年

B 10年

C 3.33年

D 5年 25.净现值与现值指数相比,其缺点是(D)。

A 考虑货币时间价值

B 考虑了投资风险性

C 不便于投资额相同的方案的比较

D 不便于投资额不同的方案的比较 26.当某方案的净现值大于零时，其内部收益率（C）。

A 可能小于零

B 一定等于零

C 一定大于设定折现率

D 可能等于设定折现率

27.一般而言，下列证券的风险程度由小到大的顺序是（D）。

A 政府债券、企业债券、金融债券

B 金融债券、政府债券、企业债券

C 企业债券、政府债券、金融债券

D 政府债券、金融债券、企业债券 28.在证券投资中，因通货膨胀带来的风险是（C）。

A 违约风险

B 利息率风险

C 购买力风险

D 经营风险

29.下列各项中，运用普通股每股利润（每股收益）无差别点确定最佳资本结构时，需计算的指标是（A）。

A 息税前利润 B 营业利润 C 净利润 D 利润总额 30.极易造成股利的支付与企业盈利脱节的股利政策是（A）。

A 固定股利政策

B 剩余股利政策

C 固定股利支付率政策

D 正常股利加额外股利政策 31．财务关系是指企业在组织财务活动中与有关方面形成的(C)A货币关系

B.结算关系 C.经济利益关系

D.往来关系

32．某企业5年后需用10000元，若年利率为10%,按复利计算，现在企业应存入银行多少元？[P/A,10%,5]=3.7908，[P/F,10%,5]=0.6209（C）

A 6200元

B 6300元

C 6209元

D 6350元

33．财务管理是对企业(B)所进行的管理

A 经营活动

B 财务活动

C 资金运动

D 投资筹资活动

34．下列各项中，不属于商业信用的是（D）

A 应付账款

B 应付票据

C 预收货款

D 应收账款

35．不存在筹资费用的筹资方式是（D）

A 银行借款

Ｂ 融资租赁

Ｃ 发行债券

D 利用留存收益 36．在其他条件不变的情况下，借人资金的比例越大，财务风险（A）

A 越大

B 不变

C 越小

D 逐年上升

37．在一定时期，当现金需要量一定时，同现金持有量成反比的成本是（C）

A 管理成本

B 资金成本

C 短缺成本

D 机会成本

38．在存货ABC管理中，将存货金额很大，品种数量很少的存货划分为（A）

A A类

B B类

C C类

D AB类

39．某企业的年现金周转率为6次，则其现金周转期为（D）

A 30天

B 40天

C 50天

D 60天

40．一般认为，企业进行长期债券投资的主要目的是(B)。

A．控制被投资企业

B．获得稳定收益

C．利用闲置现金流量

D．增强资产流动性 41． 净现值与现值指数相比,其缺点是(D)A

考虑货币时间价值

B 考虑了投资风险性

C 不便于投资额相同的方案的比较

D 不便于投资额不同的方案的比较 42．下列长期投资决策评价指标中，其数值越小越好的指标是（B）

A 净现值率

B 投资回收期限

C 内部收益率

D 投资利润率 43．当企业流动比率大于1时，增加流动资金借款会使当期流动比率（A）。

A 降低

B 不变

C 提高

D 不定

44．５.能够通过证券投资组合分散掉的风险是（C）。A．市场风险 B．系统风险 C非系统风险 D．所有风险

45．利率升高对证券投资的影响表现为（C）。

A 股票价格上升

B 债券价格上升

C 股票价格下降

D 对证券价格没有影响

二、多项选择题（每小题2分，共20分）

1．全面预算体系具体包括的内容有（ABC)A日常业务预算

B财务预算

C财政预算

D专门预算 2．按照资本保全约束的要求企业发放股利只能来源于(AC)A当期利润

B资本公积

C留存收益

D实收资本 3．确定企业收益分配政策时需要考虑的法律因素有(ABC)A资本保全约束

B资本积累约束

C偿债能力约束

D稳定股价约束 4．考虑时间价值的评价指标有（ABCD）。

A、净现值

B内部收益率

C净现值率

D获利指数 5．利用存货模式确定最佳现金持有量时,应考虑的因素是(AC)A持有现金的机会成本

B现金的短缺成本

C现金与有价证券的转换成本

D现金管理成本 6．完整工业投资项目的现金流出量包括(ABC)A建设投资

B流动资金投资

C经营成本

D资本化利息 7．下列各投资决策评价指标中,需要以已知的行业基准折现率作为计算依据的指标包括(ABC)A净现值

B净现值率

C获利指数

D内部收益率 8．下面不属于企业边际贡献的有（ABC)A销售收入减固定成本

B销售单价减单位变动成本

C销售收入减单位变动成本

D销售收入减变动成本

9．普通股股东拥有的权利包括（ABC）

A分享盈余权

B优先认股权

C转让股份权

D优先分配剩余财产 10．下列选项属于权益性资金成本的是（ACD）

A优先股股本

B银行借款成本

C普通股股本

D留存收益

11.赊销在企业生产经营中所发挥的作用有（BC）

A增加现金

B减少存货

C促进销售

D减少借款

12.在计算个别资金成本时，需要考虑所得税因素的有（AB）

A债券成本

B长期借款成本

C优先股成本

D普通股成本 13.下列指标中属于动态评价指标的有（ACD）。

A获利指数

B投资利润率

C净现值

D内部收益率

14.指标计算时需要直接利用净现金流量信息的评价指标有（ACD）

A获利指数法

B投资利润率法

C静态投资回收期法

D内部收益率法 15.企业持有现金的动机有（ABC）

A交易动机

B预防动机

C投机动机

D维持补偿性余额

16.下列经济行为中，属于企业财务活动的有（ABCD）。

A.资金营运活动

B.利润分配活动 C.筹集资金活动

D.投资活动

17.下列各项中，属于日常业务预算内容的有（ABCD）

A销售预算

B产品成本预算

C生产预算

D制造费用预算 18.在一定资金规模的前提下，增加负债资金，可能产生的结果有（AC）。

A 降低企业资金成本 B 降低企业财务风险 C 加大企业财务风险 D 提高企业经营能力 19.短期偿债能力的分析指标有（ACD）

A流动比率

B利息保障倍数

C速动比率

D现金比率

.在长期投资决策中，一般不属于经营期现金流出项目的有(ABD)。A.固定资产投资 B.开办费投资 C.经营成本 D.无形资产投资 21．计算发行优先股的企业财务杠杆系数须用到的数据由（ABCD）

A所得税税率

B息税前利润

C债务利息

D优先股股利 22．综合成本率的计算所用的权数可以按（ABD）确定。

A帐面价值

B市场价值

C票面价值

D目标价值 23．若NPV<0,则下列关系式正确的有（BCD）

A．NPVR＞0

B.NPVR<0

C.PI<1

D.IRR

A.等于1

B大于1

C.小于0

D.等于0 25．证券投资组合风险可分为（AC）

A非系统性风险

B利息率风险

C系统性风险

D违约风险 26．最佳货币资金持有量的确定方法有（BC）

A资金定额法

B成本分析模式

C存货分析模式

D管理分析模式 27．下列各项中，属于日常业务预算内容的有（ABCD）

A销售预算

B产品成本预算

C生产预算

D制造费用预算 28．财务管理中常用的股利政策有（ABD）

A剩余股利政策

B固定股利政策

C浮动股利政策

D固定股利支付率政策

29．长期偿债能力的分析指标有（ABC）

A资产负债率

B利息保障倍数

C产权比率

D现金比率

30．相对于优先股而言，普通股投资具有（ABD）的特点。A．股利收入不稳定 B．价格波动大 C．投资风险低 D．投资收益率高

三、判断题（每小题1分，共15分）

1．财务管理是基于人们对生产管理的需要而产生的。（V）

2．最优资金结构是使企业筹资能力最强、财务风险最小的资金结构（X）。（）

3．在现值和利率一定的情况下，计息期越多，则复利终值越小。（X）

4．在债券面值和票面利率一定的情况下，市场利率越高，则债券的发行价越高。（X）

5．发行股票，既可筹集企业生产经营所需资金，又不分散企业的控制权。（X）

6．在个别资金成本一定的情况下，企业综合资金成本的高低取决于资金总额。（X）

7．持有现金产生机会成本。（V）

8．为保证企业生产经营所需现金，企业持有的现金越多越好。（X）

9．存货管理目标是以最低的存货成本保证企业生产经营的顺利进行。（V）

10．某投资方案的净现值为零，则该方案贴现率可称为该方案的内含报酬率。（V）

11．现值指数大于1，说明投资方案的报酬率低于该方案的内含报酬率。（V）

12．若内含报酬率大于资金成本，则投资方案不可行。（X）

13．销售管理费用预算是根据生产预算编制的。（X）

14．体现“多盈多分、少盈少分”的股利政策是正常股利加额外股利政策。（X）

15．采用固定股利或稳定增长股利政策主要是为了保持理想的资金结构，使企业的综合资金成本最低。（X）16．营运资金就是流动资产。（X）

17．最优资金结构是使企业筹资能力最强、财务风险最小的资金结构（X）。18．在项目投资决策中，净现金流量是指经营期内每年现金流入量与同年现金流出量之间的差额所形成的序列指标。（X）

19．一般地，当债券的票面利率高于市场利率时，债券可折价发行；而当债券的票面利率低于市场利率时，债券可溢价发行。（X）

20．发行股票，既可筹集企业生产经营所需资金，又不分散企业的控制权。（X）21．在个别资金成本一定的情况下，企业综合资金成本的高低取决于筹资总额。（X）22．当预计的息税前利润大于无差别点息税前利润时，负债筹资有利。（V）23．为保证企业生产经营所需现金，企业持有的现金越多越好。（X）24．存货管理的目标是以最低的存货成本保证企业生产经营的顺利进行。（V）25．净现值与现值指数存在一定的对应关系，当净现值大于零时，现值指数大于零小于1。（X）

26．财务预算具体包括现金预算、预计利润表、预计资产负债表。（X）27．若内含报酬率大于行业基准折现率，则投资方案不可行。（X）

28．低风险、低收益证券所占比重较小，高风险、高收益证券所占比重较高的投资组合属于冒险型投资组合（V）。

29．流动比率是流动资产与负债总额之比。（X）

30．固定股利比例分配政策的主要缺点，在于公司股利支付与其盈利能力相脱节，当盈利较低时仍要支付较高的股利，容易引起公司资金短缺、财务状况恶化。（X）

31．流动比率是流动资产与负债总额之比。（X）

32．最优资金结构是使企业加权平均资金成本最低、企业价值最大的资金结构（V）。33．在利率大于零、计息期一定的情况下，年金现值系数一定大于1。（X）

34．企业采用借入资金方式筹资比采用自有资金筹资付出的资金成本低，但承担的风险大。（V）

35．发行股票，既可筹集企业生产经营所需资金，又不分散企业的控制权。（X）36．在个别资金成本一定的情况下，企业综合资金成本的高低取决于筹资总额。（X）37．信用标准是企业接受客户赊销要求时，客户必须具备的最高财务能力。（X）38．为保证企业生产经营所需现金，企业持有的现金越多越好。（X）39．存货管理的目标是以最低的存货成本保证企业生产经营的顺利进行。（V）40．资金成本与资金时间价值是既有联系，又有区别的。（V）41．现值指数大于1，说明投资方案的报酬率低于资金成本。（X）42．若内含报酬率大于行业基准折现率，则投资方案不可行。（X）43．在证券市场上，一般不存在报酬率很高，但风险很小的投资机会。（V）44．企业当年无利润时，一般不能向股东发放股利，但经股东特别会议可以按不超过面值6%用盈余公积金分配股利，分配后法定盈余公积金不能低于注册资本的25%。（V）

45．在除息日之前，股利权利从属于股票；从除息日开始，新购入股票的投资者不能分享本次已宣告发放的股利。（V）