VB复习资料试卷及其答案.doc

一、选择题：（1）面向对象编程方法的基本机制是（ a ）。 A）抽象、继承、封装、多态性 B）抽象、继承、实体、关系 C）对象、消息、方法、事件D）方法、事件、属性、名称（2）下列属于VB应用程序构成的是（d ）。A)cls文件 B)res文件 C)ocx文件 D)pas文件（3）应用程序打包后，其包文件的后缀为（b ）。 A).exe B).cab C).txt D).ocx（4）计时器控件响应的事件是（a ）。 A)Timer B)interval C)click D)Enable（5）如果要求设置计时器时间间隔1秒钟，那么它的Interval属性值应该等于（b ）。A)10000 B)1000 C)100 D)10（6）Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是（ b ）。 A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块（7）可通过何种属性判断List列表框控件的项目总数目？（c ）。A) ListIndex B) ListText C) ListCount D) ListItem(8)有一个字符串变量s，要得到该字符串变量左边的5个字符的函数是（b ）。A）ight(s，5) B）Left(s，5)C）Mid(s，5，5) D）Right(s，5)（9）如果仅需要得到当前系统时间，则可以使用哪个函数？（ a ）。A) Time B)Year C)Now D)Date(10 )left(“abcd”,2)函数的返回值是( a)。A)ab B)bcd C)cd D)bc（11）执行语句a=5mod2，则a的值是（ b）。A）0 B）1 C）2 D）2.5（12）不属于VB数据库引擎的是（ b ）。A）ODBC B) BDE C)Jet引擎 D)OLE DB(13) 为了使一控件不可见，需要将（ d ）属性设置为False。A）Name B)Cancel C) Enabled D)Visible（14）工程文件的后缀是（b ）。A) .bmp B) .vbp C) .frm D) .bas(15)当运行程序时，系统自动执行启动窗体的（a ）事件过程。A）Load B）ClickC）Unload D）GotFocus(16)假定有一个菜单项，名为MenuItem，为了在运行时使该菜单失效，以下正确的语句是（ a ）。A）MenuItem.Enabled=False B) MenuItem.Enabled=TrueC)MenuItem.Visible=True D)MenuItem.Visible=False二、填空题：（1）VB中将数据库分为 本地 数据库、 外部 数据库和 远程 数据库三种类型。 （2）窗体 是应用程序的对外接口，是其他控件的载体和容器。（3）容器的实际高度和宽度由 scaleheight 和 scalewidth 设置。（4）一般可以使用用 const 关键字声明常量。 （5）打开MMControl控件控制的多媒体设备的命令是 play 。（6）Dim A(1 to 6)定义的数组包含 6 个元素。 （7）向List列表框控件添加新项目的方法是 additem 。三、根据要求写出相应命令：现已创建了一个数据库，名为ks_20120626.mdb，在数据库中建立“工资表”表结构，“工资表”表结构如下：姓名（文本，10），科室（文本，10），工资（数字，小数2位），扣款（数字，小数2位）。设“姓名”为该表的主关键字。 “工资表”表中的数据如下表所示。姓名科室工资扣款张立三财务科2100.0056.25王策划人事科1100.0045.26李向阳人事科2544.0089.36刘林森财务科1200.0046.25唐三彩人事科2500.0085.12(1)以“工资表”表为数据源，创建一个查询，查询并显示工资高于1500元且扣款多于50元的人员的所有信息，并按工资由低到高排列。Select * From 工资表 Where 工资1500 and 扣款50 Order by 工资(2)以“工资表”表为数据源，创建一个查询，查询并显示各科室的工资总数，扣款总数，人员总数和平均工资，并按科室字段升序排列。Select 科室,sum(工资) as工资总数,sum(扣款) as 扣款总数,count(姓名) as人员总数,工资总数/人员总数 ;as 平均工资 From 工资表 Group by 科室 Order by 科室(3) 以“工资表”表为数据源，创建一个查询，查询并显示每个人员的实发工资（实发工资工资-扣款），只显示姓名，科室，工资，扣款，实发工资字段。Select 姓名,科室,工资,扣款,工资-扣款 as 实发工资 From 工资表四、程序设计1、编写程序，要求：输入圆的半径，计算圆的面积。1、Private Sub Command1_Click()Dim mj As SingleConst pi = 3.14r = InputBox(请输入圆的半径：, 输入半径)mj = pi * r*rPrint mjEnd Sub2、求1到100之间所有奇数的累加和。2、Private Sub Command1_Click()s = 0For i = 1 To 100 Step 2s = s + iNext iPrint sEnd Sub3、编一程序求5的阶乘。3、Private Sub Command2_Click()s = 1For i =1 To 5 Step 1s = s * iNext iPrint sEnd Sub4、编写程序，根据不同成绩，输出相应的评语（90100为“优秀”，8089为“良好”，7079为“中等”，6069为“及格”，60分以下为“不及格”）4、x = InputBox(请输入成绩：, 输入成绩)If x=90 then Print 优秀ElseIf x=80 Then Print 良好 ElseIf x=70 Then Print 中等 ElseIf x=60 Then Print 及格 Else Print 不及格End If 或者程序为：x = InputBox(请输入成绩：, 输入成绩)Select Cas