VB大专期末考试题B卷含答案.doc
科目编号： 座号：甘肃电大职业技术学院2009年12月期末考试 级 专业Visual Basic期末考试题试卷B试题号一二三四总 分得 分核分人签名 得分 评卷人一.填空题(每空0.5分，共20分)1.VB是微软公司出品的一个_ 程序开发工具软件。2.在VB中，最主要的两种对象是_和_ 。3.VB设计应用程序时具有的两个基本特点是：_ 和_ 。4.所谓的事件驱动编程就是设计程序时如何确定应用程序与用户的交互（如发生鼠标单击、键盘输入等事件时），而用户怎样编写代码去控制这些事件_。5.使用 _方法可在窗体中进行文本的输出，用_ 方法可画圆，用_ 方法可画直线。6._ 是定义应用程序界面的窗口，也可用作从用户收集信息的对话框。7.属性是指对象的_ ,如大小、标题或颜色。8.VB的窗体和控件是具有自己的属性、方法和事件的对象，可以把属性看作一个对象的_ ，把方法看作对象的_ ，把事件看作对象的_ 。9.类是具有相同性质的对象的_ 。10.利用对象的属性setfocus可获得焦点，对于一个对象,只有其visible属性和_ 属性为true，才能接受焦点。11.创建VB应用程序的三个主要步骤是:_ ； _ ； _ 。 12.VB程序存贮在模块中，模块分有 _ 、 _ 和 _ 三种类型。13.VB中的数据以四种形式存储：_ 、 _、 _和 _ 。14.程序中需要处理的数据中包含最常见的两种类型是：_ 和 _ 。15.数组是_ 数据的集合。16.变量的声明分为两种方法：_ 和 _。17.VB有三种表达式，它们分别是 _表达式、_表达式和_表达式。18.分支结构是根据一定的_来决定执行何种操作。19.方法是VB提供的一种_，用来完成一定的操作。20.工程是构成应用程序文件的_ 。21.VB集成开发环境主要包括：主窗口、_ 、工程资源管理器窗口、_ 、窗体窗口、_ 。 得分 评卷人二.选择题(每题2分，共36分)题号123456789101112131415161718答案1.以下哪个是合法的变量名( )A.right B.abc123 C.123_abc D.ab123c2.以下哪一个是变量名是错误的( )A.我你他 B.ABC C.AB.C D.A1233.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到( )A.MouseDown B.MouseUp C.Load D.Click4.命令按钮、文本框等控件共有的hide属性的含义是( )A.隐藏 B.展现 C.装入 D.卸载5.窗体Form1的Name属性是Frm1,它的单击事件过程名是( )A.Form1_Click B.Form_Click C.Frm1_Click D.Me_Click6.下列说法错误的是( )A.在同一模块不同过程中的变量可以同名B.不同模块中定义的全局变量不可以同名；C.引用另一模块中的全局变量时，必须在变量名前加模块名D.同一模块中不同级的变量可以同名7.如果要改变窗体的标题,需要设置窗体对象的哪一属性( )A.Name B.Caption C.BackColor D.BorderStyle8.窗体的BackColor属性用于设置窗体的哪个特性( )A.高度 B.宽度 C.背景色 D.前景色9.利用下面哪个函数可判定访问文件时已经到达了文件尾( )A.LOF B.LOC C.EOF D.BOF10.如果要显示VB中的预定义输入对话框,需要调用哪个函数( )A.MsgBox B.Open C.Output D.InputBox11.把MsgBox的返回值转换为数值应该使用的函数是( )A.Log B.Str C.Len D.Val12.在Visual Basic代码中，将多个语句合并在一行上的并行符是( )A.撇号（） B.冒号（：） C.感叹号（！） D.问号（?）13.在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为( )A.加号(+) B.减号(-) C.星号(*) D.感叹号(!)14.菜单控件仅支持下面哪一事件( )A.Click B.MouseDown C.KeyPress D.Load15.如下程序运行后输出的结果是( )Private Sub Form1_Click( )score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End SubA.A B.B C.C D.D16.如下程序运行后输出的结果是( )Private Sub Form1_Click()A = 1:b = 2:c = 3A = bb = cc = APrint A; b; cEnd SubA.1 2 3 B.2 3 1 C.2 3 2 D.2 2 317.下面程序执行的结果是( )Private Sub Form1_Click( )A$ = "123": B$ = "456"C = Val(A$) + Val(B$)Print C 100End SubA.123 B.6 C.5 D.57918.下面程序运行后输出结果是( )Private Sub Form1_Click( )X$ = "A": Y$ = "B": Z$ = "C"For J = 1 To 2X$ = Y$: Y$ = Z$: Z$ = X$Next JPrint X$ + Y$ + Z$End SubA.CAB B.BCA C.BCB D.CBC得分 评卷人三.判断题（对打，错打×，每小题1分，共16分）1.对象和类的区别在于前者是具体的,而后者则是抽象的 ( )2.变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量( )3.程序流程是指在一个程序中语句的执行次序 ( )4.跳转语句可以实现程序的某一行到另一行的直接转移,因此利于实现结构化程序设计 ( )5.通常把窗体定义成一个构成应用程序可见部分的窗口,而一个VB的应用程序首先从设计窗体开始 ( )6.列表框和组合框主要的不同在于前者能选择多个项目,后者不能。 ( )7.在VB中可以同时打开多个工程 ( )8.ActiveX控件是指一些遵循MicroSoft ActiveX 技术规范的可执行的代码 ( )9.VB不能选择和管理外接程序 ( )10.VB的每一个窗体和控件都存在一个预定义的事件集 ( )11.调用SUB过程与FUNCTION过程一样,在表达式中,它们都是调用一个独立的语句( )12.SUB过程不可以递归 ( )13.在MDI界面中,当父窗体关闭,子窗体也随之关闭 ( )14.可同时打开多个文档窗口,只有一个是活动窗口 ( )15.工程文件的扩展名是.vbg ( )16.VB使用KILL来删除磁盘上的文件 ( )得分 评卷人四.编程应用(每小题7分，共28分)1.窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100单位。请在 填空：Private Sub Form_ ( )Picture1.Picture=loadPicture(“c:picball.ico”)Timer1. =200End SubPrivate Sub Timer1_Timer( )Static x , y As Integerx=x+100y=y+100Picture1. x,yEnd Sub2.运行此程序后d的结果是（ ）Private Sub Form1_load()d = 0 For a = 1 To 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub3.编写程序，要求打印出如下的内容1 2 3 4 52 3 4 53 4 54 554.编写一个能判断质数或合数的函数。科目编号：甘肃电大职业技术学院2009年12月期末考试级 专业Visual Basic期末考试题试卷B答案一.填空题(每空0.5分，共20分)1.快速可视化 2.窗体、控件3.可视化设计、事件驱动编程 4.响应 5.print、circle、line 6.窗体 7.特性 8.性质、动作、响应 9.集合 10.enable 11.创建应用程序界面；设置属性；编写代码 12.窗体、类、标准模块 13.变量、常量、数组、记录 14.数值、字符串 15.有序 16.隐式声明、显式声明 17.算术、关系、逻辑 18.条件 19.特殊子程序 20.集合 21.属性窗口、工具箱窗口、代码编辑窗口 二.选择题(每题2分，共36分)题号123456789101112131415161718答案DCCACBBCCDDBBABCCD三.判断题（对打，错打×，每小题1分，共16分）1. 2. 3. 4.X 5. 6. 7. 8. 9.X 10. 11.X 12.X 13. 14. 15.X 16.四.编程应用(每小题7分，共28分)1.load Interval move 2.143.（参考） Private Sub Form_Load()For i = 1 To 5For j = i To 5Print j;Next jPrint ""Next iEnd Sub4.（参考）Function panduan(data As Integer) As IntegerFor i = 2 To data 1If data Mod i = 0 Theni = data 1panduan = 1End IfNext iEnd FunctionPrivate Sub Form_Load()If panduan(Val(InputBox("输入数值", "判断是质数或是合数") = 1 ThenMsgBox ("它是合数")ElseMsgBox ("它是质数")End IfEndEnd Sub
