[计算机类试卷]VB笔试模拟试卷199及答案与解析.doc

1、VB笔试模拟试卷 199及答案与解析 1 能够改变窗体边框线类型的属性是 ( )。 （ A） Font Syle （ B） Border Style （ C） Back Style （ D） Border 2 下列描述中正确的是 ( )。 （ A）程序就是软件 （ B）软件开发不受计算机系统的限制 （ C）软件既是逻辑实体，又是物理实体 （ D）软件是程序、数据与相关文档的集合 3 只有将组合框的 Style属性设置为 ( )值时， 才能触发 DblClick事件。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 4 结构化程序设计主要强调的是 ( )。 （ A）程序的规模 （ B）程

2、序的效率 （ C）程序设计语言的先进性 （ D）程序易读性 5 假设变量 boolVar是一个布尔型变量，则下面正确的赋值语句是 )。 （ A） boolVar=True （ B） boolVar=.True. （ C） boolVar=#gTme# （ D） boolVar=3 4 6 VisualBasic布尔运算符 Xor， Or， Eqv， And中，级别最高的运算符是 ( )。 （ A） Xor （ B） Or （ C） Eqv （ D） And 7 如果一个变量未经定义就直接使用，则该变量的类型为 ( )。 （ A） Integer （ B） Byte （ C） Boolean （

3、 D） Variant 8 常用控件的 Style属性值是 ( )。 （ A）字符常量 （ B）逻 辑常量 （ C）数值常量 （ D）日期常量 9 在深度为 7的满二叉树中，叶子结点的个数为 ( ) （ A） 32 （ B） 31 （ C） 64 （ D） 63 10 数据库 DB、数据库系统 DBS、数据库管理系统 DBMS之间的关系是 ( )。 （ A） DB包含 DBS和 DBMS （ B） DBMS包含 DB和 DBS （ C） DBS包含 DB和 DBMS （ D）没有任何关系 11 以下可以作为 VisualBasic变量名的是 ( )。 （ A） A#A （ B） counstA

4、 （ C） 3A （ D） ?AA 12 以下关于过程的叙述中，错误的是 ( )。 （ A）事件过程是由某个事件触发而执行的过程 （ B）函数过程的返回值可以有多个 （ C）可以在事件过程中调用通用过程 （ D）不能在事件过程中定义函数过程 13 要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句 ( )。 （ A） Option Base0 （ B） Option Explicit （ C） Option Basel （ D） Option Compare 14 能够接受 Print方法的对象是 ( )。 (1)窗体 (2)标签 (3)标题栏 (4)立即窗口 (5)图片框 (6)状

5、态栏 (7)打印机 (8)代码窗口 （ A） (1)(3)(5)(7) （ B） (2)(4)(6)(8) （ C） (1)(4)(5)(7) （ D） (1)(2)(5)(8) 15 设 a=5， b=6， c=7， d=8，执行下列语句后， x的值为 ( )。 x=IIf(a b)And(c d)， 10， 20) （ A） 10 （ B） 20 （ C） True （ D） False 16 设有如下通用过程： Public FunctionFun(x Str As String)As String DimtStr As String， strL As Integer tStr=“ st

6、rL=Len(xStr) i=1 DoWhilei =strL/2 tStr=tStr&Mid(xStr,i， 1)&Mid(xStr,strL-i+1， 1)“ i=i+1 Loop Fun=tStr End Function 在窗体 （ A） ABCDEF （ B） abcdef （ C） AFBECD （ D） DEFABC 17 在窗体上已经添加了名为 CommonDialogl控件，用 Show方法显示 ”打开 ”对话框的正确方法是 ( )。 （ A） Show.Open （ B） ShowOpen （ C） CommonDialog1.Show.Open （ D） CommonDi

7、alog1.ShowOpen 18 执行如下语句： a=InputBox(“Today“,“Tomorrow“,“Yesterday“， “Daybefore yesterday“,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 ( )。 （ A） Today （ B） Tomorrow （ C） Yesterday （ D） DaybefOreyesterday 19 表达式 Val(“.123E2“)的值 ( )。 （ A） 123 （ B） 12.3 （ C） 0 （ D） 123e2CD 20 为使 Print方法在 Form_Load事件中起作用，可以对以下 ( )属性进

8、行设置。 （ A） AutoReDraw （ B） BackColor （ C） Moveable （ D） Caption 21 以下叙述中错误的是 ( )。 （ A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 （ B）以 .BAS为扩展名的文件是标准模块文件 （ C）窗体文 件包含该窗体及其控件的属性 （ D）一个工程中可以含有多个标准模块文件 22 单击一次命令按钮后，下列程序的执行结果是 ( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(

9、N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function （ A） 15 （ B） 25 （ C） 35 （ D） 45 23 下列程序段的执行结果为 ( )。 a=95 if a 60ThenI=1 if a 70Thenl=2 if a 80Thenl=3 if a 90ThenI=4 Print“I=“； I （ A） I=1 （ B） I=2 （ C） I=3 （ D） I=4 24 在窗体上画一个名称为 Text1的文本框，并编写如 下程序： Private Sub Form_Load() Show

10、Text1.Text=“ Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single， Y As Single) Phnt“程序设计 ” End Sub Private Sub Textl_KeyDow （ A） Visual Basic （ B）程序设计 （ C） A程序设计 （ D） VisualBasic程序设计 25 如下有一段不完整的程序段，如果要求该程序执行 3次循环，则在程序中的空白处要填入 ( )。 x=1 Do x=x+3 Printx LoopUnt

11、il_ （ A） x =8 （ B） X =8 （ C） x =7 （ D） X =7 26 与传统的程序设计语言相比， Visual Basic最突出的特点是 ( )。 （ A）结 构化程序设计 （ B）程序开发环境 （ C）程序调试技术 （ D）事件驱动编程机制 27 下列哪个是满足要求的正确表达式：年龄在 20到 60之间 (包括年龄 20 60在内 )或工资少于 500的女职工 ( )。 （ A） 20仁年龄 =60and工资 500 or 性别 =“女 “ （ B） 20年龄 60and工资 500 or 性别 =“女 “ （ C） 20年龄 and年龄 60 or 工资 500 a

12、nd 性别 =“女 “ （ D） (20 =年龄 and年龄 =60 or 工资 500)and性别 =“女 “ 28 程序启动未执行任何操作前，为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 Ture，这个属性是 ( )。 （ A） Value （ B） Default （ C） Cancel （ D） Enabled 29 程序运行后，单击窗体，屏幕显示的结果是 ( )。 Private Sub Form_Click() num1=“乙 “ num2=76 Select Case numl Case“甲 “ If num2 =80 Then Print“德艺

13、优秀 “ Else If num2 =60 Then Print“德优秀，艺普通 “ End If Case“乙 “ If num2=80 Then Print“德艺双佳 “ Elselfnum （ A）德艺双佳 （ B）德艺普通 （ C）德优秀，艺普通 （ D）德艺优秀 30 在窗体上画一个名称为 Labe11、标题为 “VisualBasic考试 ”的标签，两个名称分别为 Command1和 Command2、标题分别为 “开始 ”和 “停止 ”的命令按钮，然后画一个名称为 Timerl的计时器控件，并把其 Interval属性设置为 500，如下图所示。编写如下程序： Private S

14、ub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.Ena （ A）标签的移动方向为自右向左 （ B）单击 “停止 ”按钮后再单击 “开始 ”按钮，标签从停止的位置继续移动 （ C）当标签全部移出窗体后，将从窗体的另一端出现，重新移动 （ D）标签按指定的时间间隔移动 31 VisualBasic一共有设计、运行和中断三种模式，要使用调试工具应该 ( )。 （ A）进入设计模式 （ B）进入运行模式 （ C）进入中断模式 （ D）不用进入任何模式 32 “按相同大小 制作 ”多个控件时，

15、 ( )是制作的基准。 （ A）被锁定的控件 （ B）第十个控件 （ C）最后一个控件 （ D）主控件 33 函数过程 (用 Function定义 )与子过程 (用 Sub定义 )的最大区别是 ( )。 （ A）函数过程有返回值 （ B）子过程有返回值 （ C）函数过程可以带参数 （ D）子过程可以带参数 34 设有如下变量声明 Dimtimel As Date,为变量 timel正确赋值的表达式是 ( )。 （ A） timel=#11:34:04# （ B） timel=Format(Time,“yymm:dd“) （ C） timel=#， “11:34:04“# （ D） timel=

16、Format(“hh:mm:ss“， Time) 35 3在窗体上画一个名称为 List1的列表框，一个名称为 Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 ( )。36 工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 _的下拉菜单中 。 37 某二叉树中度为 2的结点有 18个，则该二叉树中有 _个叶子结点。 38 诊断和改正程序中错误的工作通常称为 _。 39 下列程序段的输出结果为 _。 Dimy As Integer Private Sub Commandl_CUck() DimX

17、As Integer x=2 TeKt1.Text=SecondFunc(FirStFunC(X)， y) Text2.Text=FirstFunc(X) End Sub PrivateFunctionFirstFunc(XASInteger)As Integer x=x+y:y=x+y Firs 40 下列程序为求 Sn=a+aa+aaa+aaa(n 个 a)，其中 a为一个随机数产生的1 9(包括 1、 9)中的一个正整数， n是一个随机数产生的 5 10(包括 5、 10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。 Private Sub Form_CUCk() Dima

18、 As Integer,n As Intege,S As Double， Sn As Double a=Fix(9*Rnd)+1 n=Pix(6*Rnd)+5 Sn=0 S=0 Fori 41 以下语句的输出结果是 _。 Print Int(12345.6789*100+0.5)/100 42 改变驱动器列表框的 Drive属性值将引发卫士事件。 43 在面向对象的程序设计中，用来请求对象执行某一处理或回答某些信息的要求称为 _。 44 每个 VB对象都有其特定的属性，可以通过 _来设置 ，对象的外观和对应的操作由所设置的值来确定。 45 设 A=“12345678“，则表达式 Val(Lef

19、t(A， 4)+Mid(A， 4， 2)的值为 _。 46 在窗体上画 1个命令按钮和 1个通用对话框，其名称分别为 Commandl和CommonDialogl，然后编写如下事件过程： Private Sub Commandl_CUck() CommonDialog1._=“打开文件 “ CommonDialog1.Filter=“All Files(*.*)|*.*“ CommonDialog1.InitDir=“C:“ CommonDialog1.ShowOpen End Sub 该程序的 47 如下图所示，在列表框 List1中已经有若干人的简单信息，运行时在 Text1文本框 (即

20、“查找对象 ”右边的文本框 )输入一个姓或姓名，单击 “查找 ”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2文本框中。若有多个匹配的列表项，则只显示第 1个匹配项；若未找到，则在 Text2中显示 “查无此人 ”。请填空。 Private Sub Commandl_CliCk() Dimk As Integer， n As Integer， found As Boolean found= 48 在窗体上画 1个命令按钮，其名称为 Command1，然后编写如下事件过程： PriVate Sub Commandl_CUck() Dimalt(1 To 100)As Int

21、eger Fori=1 To 100 arr(i)=Int(Rnd*1000) Nexti Max=arr(1) Min=arr(1) Fori=1 To 100 If 12 Then Max=arr(i) VB笔试模拟试卷 199答案与解析 1 【正确答案】 B 2 【正确答案】 D 3 【正确答案】 B 4 【正确答案】 D 5 【正确答案】 D 6 【正确答案】 D 7 【正确答案】 D 8 【正确答案】 C 9 【正确答案】 C 10 【正确答案】 C 11 【正确答案】 B 12 【正确答案】 B 13 【正确答案】 B 14 【正确答案】 C 15 【正确答案】 B 16 【正确答

22、案】 C 17 【正确答案】 D 18 【正确答案】 C 19 【正确答案】 B 20 【正确答案】 D 21 【正确答案】 A 22 【正确答案】 C 23 【正确答案】 D 24 【正确答案】 D 25 【正确答案】 A 26 【正确答案】 D 27 【正确答案】 D 28 【正确答案】 B 29 【正确答案】 B 30 【正确答案】 A 31 【正确答案】 C 32 【正确答案】 D 33 【正确答案】 A 34 【正确答案】 A 35 【正确答案】 D 36 【正确答案】 编辑 37 【正确答案】 19 38 【正确答案】 调试或程序调试或软件调试或 Debug(英文字母大小写均可 ) 39 【正确答案】 10， 10 58， 58 40 【正确答案】 n,Sn=Sn+s 41 【正确答案】 68 42 【正确答案】 Change 43 【正确答案】 消息 44 【正确答案】 属性窗口 45 【正确答案】 123445 46 【正确答案】 DialogTitle 47 【正确答案】 Text1或 Text1.Text,List1.List(k) 48 【正确答案】 arr(i) Max或 arr(i) =Max或 Max arr(i)或 Max=arr(i),arr(i)Min或 arr(i) =Min或 Min arr(i)或 Min =arr(i)