1、VB笔试模拟试卷 192及答案与解析 1 在窗体上有若干控件，其中有一个名称为 Text1的文本框。影响 Text1的 Tab顺序的属性是 ( )。 （ A） TabStop （ B） Enabled （ C） Visible （ D） Tablndex 2 以下关于图片框控件的说法中，错误的是 ( )。 （ A）可以通过 Print方法在图片框中输出文本 （ B）清空图片框控件中图形的方法之一是加载一个空图形 （ C）图片框控件可以作为容器使用 （ D）用 Stretch属 性可以自动调整图片框中图形的大小 3 设 A=“12345678“，则表达式 Val(Left(A， 4)+Mid(A
2、， 4， 2)的值为 ( )。 （ A） 123456 （ B） 123445 （ C） 8 （ D） 6 4 数学表达式 sin25写成 Visual Basic表达式是 ( )。 （ A） sin25 （ B） sin(25) （ C） sin(25) （ D） sin(25*3.14/180) 5 要使一个命令按钮成为图形命令按钮，则应设置的属性是 ( )。 （ A） Picture （ B） Style （ C） LoadPicture （ D） DisabledPicture 6 下面的属性中，用于自动调整图像框中图形大小的是 ( )。 （ A） Picture （ B） Curre
3、ntY （ C） CurrentX （ D） Stretch 7 假设 x的值为 5，则在执行以下语句时，其输出结果为 “Ok“的 Select Case语句是( )。 8 对于长度为 n的线性表，在最坏情况下，下列各排序法所 对应的比较次数中正确的是 ( )。 （ A）冒泡排序为 n/2 （ B）冒泡排序为 n （ C）快速排序为 n （ D）快速排序为 n(n-1)/2 9 为了防止用户随意将光标置于控件上，应 ( )。 （ A）将控件的 Tablndex属性设置为 0 （ B）将控件的 TabStop属性设置为 True （ C）将控件的 TabStop属性设置为 False （ D）将
4、控件的 Enabled属性设置为 False 10 产生 10,37之间的随机整数的 VisualBasic表达式是 ( )。 （ A） Int(Rnd(1)*27)+10 （ B） Int(Rnd(1)*28)+10 （ C） Int(Rnd(1)*27)+11 （ D） Int(Rnd(1)*28)+11 11 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是 ( )。 （ A） Value （ B） Cancel （ C） Enabled （ D） Default 12 要使文本框获得输入焦点 ，则应采用文本框控件的 ( )方法。 （
5、A） GotFocus （ B） LoStFocuS （ C） KeyPress （ D） SetFocus 13 下述程序的运行结果是 ( )。 Form=3 To 1Step-1 x$=String$(m， “#“) Printx$ Nextm 14 引用列表框 (Listl)最后一个数据项应使用的表达式是 ( )。 （ A） Listl.List(List. ListCount) （ B） Listl.List(Listl.ListCount-1) （ C） Listl.List(ListCount) （ D） Listl.List(ListCount-1) 15 假定窗体上有一个标签，
6、名为 Labe11，为了使该标签透明且没有边框，则正确的属性设置为 ( )。 16 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 ( )。 （ A）任何时刻最多只有一个窗体是活动窗体 （ B）不能把标准模块设置为启动模块 （ C）用 Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （ D）如果工程中含有 SubMain过 程，则程序一定首先执行该过程 17 假定有以下两个过程： Private Sub PPP(aAsSingle， b As Single) a=a+b Printa,b b=a+b Printa,b End Sub Private Sub Form_Activ
7、ate( ) x=18 Call PPP(x)， (x) PrintX： End Sub 则以下说法中不正确的是 ( )。 （ A）虚参是 a和 b，两个实参 (x)和 (x)允许重名 （ B）虚参是 a和 b，实参 (x)表示传值调用 （ C）虚参是 a和 b，实参 (x)表示是非传址调用 （ D）虚参是 a和 b，两个实参 (x)和 (x)不允许重名 18 为了在按下 Esc键时执行某个命令按钮的 Click事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是 ( )。 （ A） Value （ B） Default （ C） Cancel （ D） Enabled 19 双击
8、窗体中的对象后， VisualBasic显示的窗口是 ( )。 （ A）项目 (工程 )窗口 （ B）工具箱 （ C）代码窗口 （ D）属性窗口 20 下列定义语句中不能定义为字符型数据的是 ( )。 （ A） DefstrC （ B） C （ C） Staticc As String （ D） DimCAsSingle 21 有如下程序，运行后输出的是 ( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub （ A
9、） 5 （ B） 20 （ C） 22 （ D）显示出错信息 22 在窗体上画一个名称为 Conunandl的命令按钮，然后编写如下程序： Private Sub Commandl_Click() Dimi As Intege,j As Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=(i-1)*3+j Printa(i,j)； Nextj Print Nexti End Sub 程序运行后，单击 23 VB的 3种结构化程序设计的 3种基本结构是 ( )。 （ A）选择结构、过程结构、顺序结构 （ B）递归结构、选择结
10、构、循环结构 （ C）过程结构、转向结构、递归结构 （ D）选择结构、顺序结构、循环结构 24 编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger， X As Single,YAsSingle) Cls If(Button Andl)ThenPrint“你好 “ End Sub 程序运行后，为了在窗体上显示 “你好 ”，应在窗体上执行以下 ( )操作。 （ A）只能按下左按键并拖动 （ B）只能按下右按键并拖动 （ C）只能按下左按键 （ D）只能按下右按键 25 下列说法错误的是 ( )。 （ A）在同一模块
11、不同过程中的变量可以同名 （ B）不同模块中定义的全局变量不可以同名 （ C）引用另一模块中的全局变量时，必须在变量名前加模块名 （ D）同一模块中不同级的变量可以同名 26 表达式 2*32+2*8/4+32的值为 ( )。 （ A） 64 （ B） 31 （ C） 49 （ D） 22 27 应用数据库的主要目的是 ( )。 （ A）解决数据保密问题 （ B）解决数据完整性问题 （ C）解决数据共享问题 （ D）解决数据 量大的问题 28 以下叙述中错误的是 ( )。 （ A）双击鼠标可以触发 DblClick事件 （ B）窗体或控件的事件的名称可以由编程人员确定 （ C）移动鼠标时，会触
12、发 MouseMove事件 （ D）控件的名称可以由编程人员设定 29 下述程序的输出图形是 ( )。 Fork=0 To 360 Cr=Int(160*RnD) Ang=-3.1415926/180*k Circle(200； 200)， 50,cr,0,ang Next （ A）一 段彩色圆弧 （ B）一个彩色扇形 （ C）一个彩色空心圆 （ D）一个辐射状彩色圆形 30 有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Fu
13、ncfion 在窗体上添加一个命令按钮，名为 Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick() （ A） 25 （ B） 35 （ C） 45 （ D） 55 31 下列叙述中不正确的是 ( )。 （ A）变量名的第一个字符必须是字母 （ B）变量名的长度不超过 255个字符 （ C）变量名可以包含小数点或者内嵌的类型声明字符 （ D）变量名不能使用关键字 32 设置组合框的风格，可用的属性是 ( )。 （ A） Backstyle （ B） Borderstyle （ C） Style （ D） Sortned 33 图像
14、框中的 stretch属性为 true时，其作用是 ( )。 （ A）只能自动设定图像框长度 （ B）图形自动调整大小以适应图像控件 （ C）只能自动缩小图像 （ D）只能自动扩大图像 34 能够将文本框控件隐藏起来的属性是 ( )。 （ A） Clear （ B） Visible （ C） Hide （ D） New 35 3执行语句 Open“C:StuData.dat“ForlnputAs#2后，系统 ( )。 （ A）将 C盘当前文件夹下名为 StuData.dat的文件的内容读入内存 （ B）在 C盘当前文件夹下建立名为 StuData.dat的顺序文件 （ C）将内存数据存放在 C
15、盘当前文件夹下名为 StuData.dat的文件中 （ D）将某个磁盘文件的内容写入 C盘当前文件夹下名为 StuData.dat的文件中 36 为了在程序运行时，当被遮住的窗口又重现时，用该窗体的 Picture属性设置的背景图像会自动重画，设置值为 True的属性是 _。 37 在代码窗口对窗体的 BorderStyle、 MaxBuaon属性进行了设置，但运行后没有效果的原因是这些属性 _。 38 当对命令按钮的 Picture属性装入 bmp图形文件后，这项按钮上并没有显示所需的图形，原因是没有对 _属性设置为 1(Graphical)。 39 一个类可以从直接或间接的祖先中继承所有属
16、性和方法。采用这个方法提高了软件的 _。 40 将 C盘根目录下的图形文件 moon.jpg装入图片框 Picturel的语句是 _。 41 Visual Basic变量名字只能由字母、 _、下划线组成，总长度不得超过255。 42 模块 级变量的声明关键字是 Dim或 _。 43 用户可以用 _语句定义自己的数据类型。 44 下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个 0或 1的整数，相当于一次投币， 1代表正面， 0代表反面。在窗体上有三个文本框，名称分别是 Text1、 Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所
17、示。程序运行后，在文本框 Text1中输入总次数，然后卑击 “开始 ”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是 实现上述功能的程序，请填空。Private Sub Commandl_Click() 45 组合框有 3种不同的类型，这 3种类型是下拉式列表框、简单组合框和_，分别通过把 style属性设置为 2、 1、 0来实现。 46 窗体上有两个按钮，执行程序后按 Cancel按钮的输出结果是 _。 Private Sub Commandl_Click() Print“北京 ”； End Sub Private Sub Command2,_Click()
18、 Print“南京 ”； End Sub Private Sub Form_Load() Command2.Cancel=Tree Command1.Cancel=Tree End Sub 47 下列程序是用来计算 1+2+3+10 的程序段，请补充完整该程序。 Dimi,s,k As Integer s=0:k=0 For_To-1 k=k+1 s=s+k Nexti Print S 48 下列事件过 程的功能是：通过 Foma_Load事件给数组赋初值为 35、 48、 15、22、 67， Form_Click事件找出可以被 3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补
19、充完整。 Dim Arr() Private Sub Form_Load() _ End Sub Private Sub Form_CUck() For EaCh x In Arr If Int(x/3)=x/3 Then Pdnt X 49 窗 体上有一个名称为 List1的列表框，一个名称为 Text1的文本框，一个名称为Labe11、 Caption属性为 “Sum“的标签，一个名称为 Command1、标题为 “计算 ”的命令按钮。程序运行后，将把 1 100之间能够被 7整除的数添加到列表框中。如果单击 “计算 ”按钮，则对 List1中的数进行累加求和，并在文本框中显示计算结果，如
20、下图所示。以下是实现上述功能的程序，请填空。Pfivate Sub Form_Load() Fori=1 To 100 If iMod7= 50 在窗体上面两个名称分别为 Command1和 Command2、标题分别为 “初始化 ”和“求和 ”的命令按钮。程序运行后，如果单击 “初始化 ”命令按钮，则对数组 a的各元素赋值；如果单击 “求和 ”命令按钮，则求出数组 a的各元素之和，并在文本框中显示出来，如下图所示。请填空。 在窗体上面两个名称分别为 Command1和 Command2、标题分别为 “初始化 ”和 “求和 ”的命令按钮。程序运行后，如果单击 “初始化 ”命令按钮，则对数组 a
21、的各元素赋值；如果单击 “求和 ”命令按钮，则求出数组 a的各元素之和，并在文本框中显示出来，如下图所 VB笔试模拟试卷 192答 案与解析 1 【正确答案】 D 2 【正确答案】 D 3 【正确答案】 B 4 【正确答案】 D 5 【正确答案】 B 6 【正确答案】 D 7 【正确答案】 C 8 【正确答案】 D 9 【正确答案】 D 10 【正确答案】 B 11 【正确答案】 D 12 【正确答案】 C 13 【正确答案】 B 14 【正确答案】 B 15 【正确答案】 A 16 【正确答案】 D 17 【正确答案】 D 18 【正确答案】 C 19 【正确答 案】 C 20 【正确答案】
22、 D 21 【正确答案】 D 22 【正确答案】 D 23 【正确答案】 D 24 【正确答案】 A 25 【正确答案】 D 26 【正确答案】 B 27 【正确答案】 C 28 【正确答案】 B 29 【正确答案】 D 30 【正确答案】 B 31 【正确答案】 C 32 【正确答案】 C 33 【正确答案】 B 34 【正确答案】 B 35 【正确答案】 A 36 【正确答案】 Auto Redmw 37 【正确答案】 在运行时设计是无效的 38 【正确答案】 Style 39 【正确答案】 可重用性 40 【正确答案】 P1cture1.Picture=LoadPicture(“c:mo
23、on.jpg“) 41 【正确答案】 数字 42 【正确答案】 Private 43 【正确答案】 Type 44 【正确答案】 n或 CInt(Text1.Text或 CInt(Text1)或 Text1.Text或 Val(Text1.Text)或 Val(Textl)或 Text1 45 【正 确答案】 下拉式组合框 46 【正确答案】 北京 47 【正确答案】 i=-10 48 【正确答案】 Arr=Array(35,48,15,22,67) 49 【正确答案】 Lisn.Addnem I,Ust1.List(i)或 Val(Listl.List(i)或 CInt1(List1.ist(0) 50 【正确答案】 a(i， j),Str(s)或 s
