山东交通学院成人学历VB程序设计期末考试题及参考答案.docx

《山东交通学院成人学历VB程序设计期末考试题及参考答案.docx》由会员分享，可在线阅读，更多相关《山东交通学院成人学历VB程序设计期末考试题及参考答案.docx（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、).D.以上都不是D. WordwrapD. 广州D.BackColorD. sellenghtD. 1,99D. 8D. .05D.文本框VB程序设计A复习题一、单选题（每小题3分，共计45分。）1 .文本框控件中将Text的内容全部显示为所定义的字符的属性项是（AA. PasswordCharB.需要编程来实现C. Password2 .欲使标签的内容对其方式，必须设置属性（B ）.A.AutoSizeB. AlignmentC. left3 .下列字符串常量中，最大的是（C ）.A. 北京B. 上海C. 天津4 .要使标签能透出窗体的背景，必须设置（A ）属性.A. BackStyleB

2、. BorderStyleC. Appearance5 .文本框中的内容，由下列(A )属性反映.A.TextB. CaptionC.Seitext6 . INT(100*RND(l)产生的随机整数的闭区间是(A ).A. 0, 99C. 0, 100B. 1, 1007 .下列方法中可用于列表框动态添加数据的是（B ）.A. addB. additemC.addlistD. removeitem8,函数 1。(5“41(123.4)的值为(C ).A. 11B. 5C. 69 .表达式 INT(8*SQR(36)*l(T(-2)*10+0. 5)/10 的值是(C ).A. 0. 48B.

3、0. 048C. .510 .以下不具有Picture属性对象是(D ).A.窗体B.图片框C.图像框二、填空题（每小题2分，共计20分。）1 .在VB 6. 0中，变量名最长可达255个字符.2 .男性（sex）,年龄（age）在1820岁之间,身高（size）在1. 65米以上，列出逻辑表达式sex and = and age = 1.65。3 .如果：I= 12:J=3:I=int（-8.6）+IJ+13/3 MOD 5,则 I 值是.-l。4 .要使一个按钮设为默认按钮,应把此按钮的Default属性的值设为True.5 . 一个工程可以包括多种类型的文件,其中，扩展名为.vbp的文件

4、表示 工程 文件.6 .如果要使用命令按钮表面显示文字退出（X） （在字符X之下加下划线），则其Caption属性 设置为退出（&X）.三、判断题（每小题2分，共计20分。）1 .在MsgBox函数中prompt参数是必须的（Y ）.2 .文本框控件有Caption属性（N ）.3 .要使定时器控件起作用，其属性Interval不可以设置为0 （Y ）.4 .图片框不是容器，图像框是容器（N ）.5 .有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗 体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号（Y ）.6 .计算机在处理数据时必须将其装入内存,

5、在高级语言中通过内存单元名来访问其中的数据, 命名的内存单元就是常量或变量（Y ） .7 .设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字（Y ）.8 .由Visual Basic语言编写的应用程序有解释和编译两种执行方式（Y ）.9 . Visual Basic程序的运行可以从Main。过程启动，也可以从某个窗体启动（Y ）.10 .如果一个菜单项的Visible属性为False,则它的子菜单也不会显示（Y ）.四、程序设计（每小题15分，共计15分。）编写函数fun其功能是:根据整型形参m,计算如下公式的值:y=2! + l/4!+- . +l/m! 是偶数）答：Dim i

6、As Integer, j As Integer, t As Integerfun 二 0For i = 2 To m Step 2t 二 1For j = 1 To it = t * jNextfun = fun + 1 / tNext一、单选题（每小题2分，共计20分）1 .以下叙述中错误的是（）.A:VisualBasic是事件驱动型可视化编程工具3:VisualBasic应用程序不具有明显开始和结束语句CVisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D:Visua.lBasic中控件的某些属性只能在运行时设置 答案：C1.1 nputBox函

7、数返回的函数值的类型是（）.A:数值氏字符串C数值或字符串D:根据需要可以是任何类型数据 答案：C3 .常用控件的Style属性值是（）.A:字符常量B:逻辑常量C数值常量。：日期常量 答案：C4 .如果要在命令按钮上显示图形文件,应设置命令按钮的（）.A:Style属性和Graphics属性3:Style属性和Picture属性C:Picture 属性）:Graphics 属性答案：B5 .在设计阶段，双击窗体Forml的空白处，打开代码窗口，显示（） 事件过程模板.A:Form_ClickB:Form_LoadC:Forml_Click）:Forml_Load答案：B二、填空题（每小题2分

8、，共计20分）1 .在VB中,若要使一个文本框（Text）中的内容在超过文本框的宽度时能够自动换行显示,应 当将这个文本框的 属性的值设置为True.答案:MultiLine2 .表达式817 MOD 2-2的值是 . 答案：33 .由For k=35 to 0 step 3: next k循环语句控制的循环次数是 . 答案：04 .把条件1=X=l and x12 或 x=l5 .如果要在单击按钮时执行一段代码,则应将这段代码写在 事件过程中. 答案：click三、判断题（每小题1分，共计10分）1 .菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触发 Click 事

9、件.（）答案：Y2 .在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸 载.（）答案：N3 .在程序中Name属性是作为对象的标识而引用，不会显示在窗体上,而控件上显示的内容由 Caption属性决定.（）答案：N4 .菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键，以触发 Click 事件.（）答案：Y5 .如果在过程调用时使用按地址传递参数，则在被调过程中不可以改变实参的值.（）答案：N6 . Function函数有参数传递,并且一定有返回值.（） 答案：NU!1、程序填空（15分）在文本框内输入一串字符后，统计并显示各字母出现的次数不

10、区分大小写字母。Private Sub Commandl Click ()Dim a(1 To 26) As Integer, c As String * 1*space*二 Len(Textl)For I = 1 To 11*SPACE*c 二 (Mid(Textl, I, 1)If c = a And c 0 ThenPicturel. Print ； Chr(j + 96); =; a(j);End IfNext jEnd Sub答案：1) . 11 或 11%2) . LCase3) . 97五、程序改错（15分）在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过

11、程的判定 结果，对能构成三角形的计算其面积，构不成的显示不能构成三角形Option ExplicitPrivate Sub Form ClickO*FOUND*Dim x%, y%, z%, s%, b As Boolean, h As Singlex = InputBox(请输入三角形的边长)y = InputBox(请输入三角形的边长)z二InputBox(请输入三角形的边长)b 二 pd (x, y, z)h = (x + y + z) / 2*FOUND*If Not b Thens = Sqr (h * (h - x) * (h - y) * (h - z)Print 三角形面积是；

12、sElsePrint 不能构成三角形End IfEnd Sub*found*Public Function pd() As BooleanIf x 0 And y 0 And z 0 And x + y z And x + z y And y + z x Thenpd = TrueElsepd = FalseEnd IfEnd Function答案：1) . Dim x% , y% , z% , s! , b As Boolean , h As Single 或 Dim x% , y% , z% , s as Single , b As Boolean , h As Single2) . If

13、 b=not false Then 或 If b=true Then 或 If b Then3) . Public Function pd(x%, y%, z%) As Boolean 或 Public Function pd(x, y, z) As Boolean 或 Public Function pd(x as Integer, y as Integer, z as Integer) As Boolean六、程序设计(20分)单击窗体时，输出所有的三位数，它满足该数中有某两位为相同的数，且该数是一个完全平 方数。答案：dim a as integer, b as integer dim b3 as integer, b2 as integer,bl as integer for a=10 to 31 b=a*a b3=b100 b2=(b10) mod 10 bl=b mod 10 if bl=b2 or bl=b3 or b2=b3 then print a, b end if next a