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

1、VB笔试模拟试卷 193及答案与解析 1 每建立一个窗体，工程管理器窗口中就会增加一个 ( )。 （ A）工程文件 （ B）窗体文件 （ C）程序模块文件 （ D）类模块文件 2 如果要在任何新建的模块中自动插入 Option Explicit语句，则应采用下列 ( )操作步骤。 （ A） “工具 ”菜单中选取 “选项 ”命令，打开 “选项 ”对话框，单击 “编辑器 ”选项卡，选中 “要求变量声明 ”选项 （ B）在 “编辑 ”菜单中执行 “插入文件 ”命令 （ C）在 “工程 ”菜单中 执行 “添加文件 ”命令 （ D）以上操作均不对 3 下列关于闲置循环的四个叙述中，错误的是 ( )。 （

2、 A）闲置循环是当应用程序处于闲置状态下执行的循环 （ B）闲置循环可以占用所有的 CPU时间 （ C）闲置循环是无法退出的 （ D）闲置循环使系统不响应其他任何事件，除非使用 DoEvents语句 4 Label控件中内容能垂直方向变化而宽度保持不变则应设置 ( )属性。 （ A） Wordwrap （ B） Enabled （ C） Locked （ D） AutoSize 5 当对命令按钮的 Picture属性装入 .bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为 1，该属性是 ( )。 （ A） MousePicture （ B） Style （ C） D

3、ownPicture （ D） DisabledPicture 6 执行如下两条语句后，窗体上显示的是 ( )。 a=9.8596 PrintFormat(a，“$0,000.00“) （ A） 0,009.86 （ B） $9.86 （ C） 9.86 （ D） $0， 009.86 7 对长度为 n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 ( )。 （ A） log2n （ B） n/2 （ C） n （ D） n+1 8 在窗体 (名称为 Forml)上绘制一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中

4、输入一个字符，则把命令按钮的标题设置为 “计算机等级考试 ”。以下能实现上述操作的事件过程是 ( )。 （ A） Private Sub Texl_Change() Commandl.Caption=“计算机等级考试 ” End Sub （ B） PrivateSubCommandl_Click() Caption=“计算机等级考试 “ （ C） Private Sub Commandl_Click() Text.Caption=“计算机等级考试 “ End Sub （ D） Private Sub Commandl_Click() Text1.Text=“计算机等级考试 “ End Sub

5、9 如果想在程序中反复使用一个日期型数据 “01/01/2005”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用 ( )。 （ A）将这个数据声明为字符串型常量，用一个常量标识符代表它 （ B）将这个数据声明为字符串型变量，用一个变量标识符表示它 （ C）将这个数据声明为日期型常量，用一个常量标识符代表它 （ D）将这个数据声明为日期型变量，用一个变量标识符表示它 10 在 VisualBasic中，要使标签的标题居中显示，则将其 Alignment属性设置为( )。 （ A） 0 （ B） 2 （ C） 1 （ D） 3 11 在窗体上绘制一

6、个名称为 Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2， 4， 6， 8， 10， 12) Fori=1 To 6 1fx(i) c Then d=d+x(i) c=x(i) Else （ A） 10 （ B） 16 （ C） 12 （ D） 20 12 下列叙述中正确的是 ( )。 （ A）软件交付使用后还需要进行维护 （ B）软件一旦交付使用就不需要再进行维护 （ C）软件交付使用后其生命周期就结束 （ D）

7、软件维护是指修复程序中被破坏的指令 13 假定一个 Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 ( )。 （ A）只保存窗体模块文件 （ B）分别保存窗体模块、标准模块和工程文件 （ C）只保存窗体模块和标准模块文件 （ D）只保存工程文件 14 下面的数组声明语句中正确的是 ( )。 （ A） Dim gg1， 5As String （ B） Dim gg1 To 5， 1 To 5As String （ C） Dim gg(1 To 5)As String （ D） Dim gg1:5， 1:5As String 15 在 Vis

8、ual Basic中，组合框是文本框和 ( )特性的组合。 （ A）复选框 （ B）标签 （ C）列表框 （ D）目录列表框 16 给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框 List2中所有列表项目移入列表框 List1中，并将移入 List1中的项目从 List2中删除。 ( ) Do While List2.List Count _ List2.Removeltem0 Loop （ A） List1.AddltemList2.List(0) （ B） List1.Addltem List2.Text （ C） List2.AddltemList1.List(0) （

9、D） List2.AddltemList1.Text 17 Visual Basic为命令按钮提供的 Cancel属性是 ( )。 （ A）用来指定命令按钮是否为窗体的 “取消 ”按钮 （ B）用来指定命令按钮的功能是停止一个运行程序 （ C）用来指定命令按钮的功能是关闭一个运行程序 （ D）用来指定命令按钮的功能是中断一个程序的运行 18 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt

10、X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End Fu （ A） 12 （ B） 15 （ C） 17 （ D） 18 19 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是 ( )。 （ A） Value （ B） Default （ C） Cancel （ D） Engbled 20 在窗体 (Name属性为 Forml)上画两个文本框 (其 Name属性分别为 Text1和 Text2)和一个命令按钮 (Name属性为 Commandl)，然后编写如下两

11、个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text=“ Text2.Text=“ End Sub 程序运行后，在第一个文本框 ( （ A） 165 （ B） 8778 （ C） 7788 （ D） 7887 21 在窗体上画一个文本框 (其名称为 Text1)和一个标签 (其名称为 Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ( )。22 为使图像框的

12、大小自动适应图像的大小，则应 ( )。 （ A）将其 AutoSize属性值设置为 True （ B）将其 AutoSize属性值设置为 False （ C）将其 Shape属性值设置为 True （ D）将其 Stretch属性值设置为 False 23 InputBox函数的 4个参数中，必选参数的作用是 ( )。 （ A）输出信息 （ B）定义提示信息 （ C）定义隐含信息 （ D）定义输入的位置 24 有如下程序： DefStr X-Z X=“123“ Y=“456“， Z=X$+Y$ Print ZS End 运行后，输出结果是 ( )。 （ A）显示出错信息 （ B） 123456

13、 （ C） 579 （ D） 579 25 下面四个语句中，输出逻辑为 “真 ”的是 ( )。 （ A） Print Not(3+5 4+6) （ B） Print2 1 And 3 2 （ C） Print 1 2 Or 2 3 （ D） Print Not(1 2) 26 以下能够正确计算 n!的程序是 ( )。 27 窗体上有两个名称分别为 Text1、 Text2的文本框，一个名称为 Commandl的命令按钮。 运行后的窗体外观如下图所示。 设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击

14、“保存 ”按钮时，将两个文本框中的内容写入 一个随机文件 Test290.dat中。设文本框中的数据已正确地赋值给 Person类型的变量 P。则能够正确地把数据写入文件的程序段是 ( )。 （ A） Open“c:Test29.dat“ForRandom As #1 Put#1， 1， p Close#1 （ B） Open“c:Test29.dat“ForRandomAs#1 Get#1， 1， p Close#1 （ C） Open“c:Test29.dat“ForRandomAs#1Len=Len(p) Put#1， 1， p Close#1 （ D） Open“c:Test29.da

15、t“ForRandomAS#1Len=Len(p) Get#1， 1， p Close#1 28 要存放如下方阵的数据，在不浪费存储空间的基础上，应使用的声明语句是( )。 （ A） DimA(9)As Integer （ B） DimA(3， 3)As Integer （ C） DimA(-1 To 1,-3 To -1)As Single （ D） DimA(-3 To-1， 1 To 3)As Integer 29 窗体上有一个名为 Labe11的标签，为了使该标签透明并且没有边框，正确的属性设置为 ( )。 30 单击命令按钮时，下列程序的执行结果为 ( )。 Private Sub

16、Commandl_Click() Dimx As Integer， y As Integer x=50:y=78 CallPPP(x， y) Printx； y End Sub Pubfic Sub PPP(ByValnAsInteger， ByValm As Integer) n=n10 m=m10 End Sub （ A） 08 （ B） 50 78 （ C） 450 （ D） 78 50 31 若要获得滚动条的当前值，可访问的属性是 ( )。 （ A） Text （ B） Value （ C） Max （ D） Min 32 将调试通过的工程经 “文件 ”菜单中的 “生成 exe文件 ”

17、编译成为 exe文件后，该可执行文件到其他机器上不能运行的主要原因是 ( )。 （ A）运行的机器上无 VB系统 （ B）缺少 .fan窗体文件 （ C）该可执行文件有病毒 （ D）以上原因都不对 33 下列过程定义语句中，形参个数为不确定数量的过程是 ( )。 （ A） Private Sub Pr03(XAsDouble， y As Single) （ B） Private Sub Pr03(Arr(3)； Optionx， Optiony) （ C） Private Sub Pr03(ByRefx， ByValy， Art() （ D） Private Sub Pr03(Param Ar

18、ray Arr() 34 在窗体上画一个名称为 TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) End Sub 若焦点位于文本框中，则能够触发 KeyPress事件的操作是 ( )。 （ A）单击鼠标 （ B）双击文本框 （ C）鼠标滑过文本框 （ D）按下键盘上的某个键 35 3以下不属于 Visual Basic系统的文件类型是 ( )。 （ A） .rrm （ B） .bat （ C） .vbg （ D） .vbp 36 将控件添加到工具箱中，应先在工具箱的空白处单击右键，在弹出的快捷菜单中选择 _

19、选项，然后在弹出的对框中选择所需的控件。 37 建立窗口并存盘后，除了生成窗体文件外，还会生成 _文件。 38 为在新建工程中模块的 “通用声明 ”段自动加入 Option Explicit语句，应在_对话框中的 “编辑器 ”选项卡上进行相应选项的选择。 39 Visual Basic对象可以分为两类，分别为上 _和用户定 义对象。 40 读下列程序： Pfivme Sub Form_Crick() Stmic X(4) As Integer Fori=1 To 4 x(i)=x(i)+i*3 Nexti Print Fori=1 To 4 Print“x(“； i； “)=“： x(i)；

20、Nexti End Sub 该程序在运行了三次后，其最终结果是 _。 41 在属性窗口中，有些属性具有预定值，在这些属性上双击属性值可以 _。 42 要使文 本框获得输入焦点，则应采用文本框控件的 _方法。 43 Text文本框接受的最长字符数由文本框的 _属性确定。 44 下列程序段的执行结果为 _。 DimA(10,10) Fori=2 To 4 Forj=4 To 5 A(i,j)-i*j Next j Next i PrintA(2,5)+A(3,4)+A(4,5) 45 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件 NM1.txt中读取数据，计算读出数据的平方 值，将该数据及

21、其平方值存入新的顺序文件 NM2.txt中。请填空。 Private Sub Form_Click0 Dim X As Single,y As Single Open“NM1.txt“For Input As #1 Open“NM2.txt“For OutputAs#2 Do While Not EOF(1) _ Print X 46 在窗体上画一个命令按钮 (其 Name属性为 Commandl)，然后编写如下代码： Private Sub Commandl_Click() DimM(10)As Integer Fork=1 To 10 M(k)=12-k Nextk x=6 PrintM(

22、2+M(x) End Sub 程序运行后，单击命令按钮，输出结果是 _。 47 一元二次方程 ax2+bx+c=0有实根的条件是 a0,并且 b2-4acO，表示该条件的布尔表达式是 _。 48 如果存在如下过程： Private Function FMax(a()As Integer) Dim First As Integer， Last As Integer， i As Integer First=LBound(a) Last=UBound(a) Max=a(First) Fori=FirSt To Last Ifa(i) Max ThenMax=a(i) Nexti FMax=Max E

23、nd Function 49 (-1)*Sgn(-100+Int(Rnd*100)的值是 _。 50 下列程序的执行结果是上 _。 t=0 m=1 Sam=0 Do t=t+m Sum=Sum+t m=m+2 Loop Whilem =9 Print Sum 51 在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text=“VB程序设计 “ End Sub Private Sub Text1_Change() Picmml.Print“VBProgramming“ End Sub 程序运行后，单击窗体，则在文本框中显

24、示的内容 9 ，而在图片框中显示的内容是 10 。 52 以下程序的功能是：用 Array函数建立一个含有 8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 Option Base 1 Private Sub Commandl_Click() Dimarrl DimMin As Integer,i As Integer arrl=Array(12， 435， 76， -24， 78， 54， 866， 43) Min= 11 Fori=2 To 8 If arrl(i) Min T 53 在 n个运动员中选出任意 r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算

25、。下图窗体中 3个文本框的名称依次是 Text1、 Text2、 Text3。程序运行时在 (n-r)!r! Text1、 Text2中分别输入 n和 r的值，单击 Commandl按钮即可求出选法的个数，并显示在 Text3文本框中。请填空。Private Sub Commandl_Click() Dim r As Integer， n As hteger n=Text1 r=Text VB笔试模拟试卷 193答案与解析 1 【正确答案】 B 2 【正确答案】 A 3 【正确答案】 C 4 【正确答案】 A 5 【正确答案】 B 6 【正确答案】 D 7 【正确答案】 C 8 【正确答案】

26、A 9 【正确答案】 C 10 【正确答案】 B 11 【正确答案】 C 12 【正确答案】 A 13 【 正确答案】 B 14 【正确答案】 C 15 【正确答案】 C 16 【正确答案】 A 17 【正确答案】 A 18 【正确答案】 D 19 【正确答案】 B 20 【正确答案】 D 21 【正确答案】 B 22 【正确答案】 D 23 【正确答案】 B 24 【正确答案】 A 25 【正确答案】 D 26 【正确答案】 C 27 【正确答案】 C 28 【正确答案】 D 29 【正确答案】 A 30 【正确答案】 B 31 【正确答案 】 B 32 【正确答案】 D 33 【正确答案】

27、 D 34 【正确答案】 D 35 【正确答案】 B 36 【正确答案】 部件 37 【正确答案】 工程 (.vbp) 38 【正确答案】 “选项 ” 39 【正确答案】 预定义对象 40 【正确答案】 x(1)=9 x(2)=18 x(3)=27 x(4)=36 41 【正确答案】 遍历所有选项 42 【正确答案】 SelText 43 【正确答案】 MaxLength 44 【正确答案】 42 45 【正确答案】 Input#1,x 46 【正确答案】 4 47 【正确答案】 a 0 And B*B-4*a*c =0 48 【正确答案】 100 49 【正确答案】 1 50 【正确答案】 55 51 【正确答案】 VB程序设计 ,VB Programming 52 【正确答案】 arrl(1)或 12,Min=arrl(i) 53 【正确答案】 n-r或 Val(Text1)-Val(Text2)或 Text1-Text2或 Val(Text1.Text)-Val(Text2.Tex0或 Text1.Text-Text2.Text,t=1