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

1、VB 笔试模拟试卷 213及答案与解析 1 运行以下程序，输出结果是 ( )。 For I=1 To 3 cls Print“I=“,I； Next （ A） 123 （ B） 3 （ C） I=1I=2I=3 （ D） 1=3 2 在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、 Text1和Text2，然后编写如下程序： Dim S1 As String S2 As String Private Sub Form_Load0 Text1.Text=“ Text2.Text=“ End Sub Private Sub Text1_KeyDown(KeyCode As In

2、teger,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1=“ S2=“ End Sub 程序运行后，在 Text1中输入“abc”，然后单击命令按钮，在文本框 Text1和 Text2中显示的内容分别为 ( )。 （ A） abc和 AB （ B） abc和 abc （ C） A

3、BC和 abc （ D） ABC和 ABC 3 下列程序的执行结果为 ( )。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1=“abcdef“ Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i =1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tem

4、pstr End Sub （ A） fedcba （ B） abcdef （ C） afbecd （ D） defabc 4 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() x=0 n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是 ( )。 （ A） 3 （ B） 4 （ C） 5 （ D） 6 5 单击窗体时，下列程序段的执行结果为 ( )。 P

5、rivate Sub Form_Crick() Line(200,200)-(400,400) Print“+“ Print“*“ End Sub （ A）在窗体上画一斜线，从斜线终点处开始打印两行符号 （ B）在窗体上画一斜线，从斜线起点处开始打印两行符号 （ C）在窗体上画一斜线，从窗体左上角开始打印两行符号 （ D）从窗体左上角开始打印两行符号，从符号结束处开始画一斜线 6 以下能够正确退出循环的是 ( )。 （ A） i=10 Do i=i+1 Loop Until i 10 （ B） i=1 Do i=i+1 Loop Until i=10 （ C） i=10 Do i=i+1 Lo

6、op Until i 0 （ D） i=1 Do i=i-3 Loop Until i=0 7 在窗体上画一个名称为 Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ( )。 （ A） Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 90 Then MsgBox“请输入大写字母 “ KeyAscii=0 End If End Sub （ B） Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Inte

7、ger) If KeyCode 65 Or KeyCode 90 Then MsgBox“请输入大写字母 “ KeyCode=0 End If End Sub （ C） Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Asc(Text1.Text) 65 Or Asc(Text1.Text) 90 Then MsgBox“请输入大写字母 “ End If End Sub （ D） Private Sub Text1_Change() If Asc(Text1.T

8、ext) 64 And Asc(Text1.Text) 91 Then MsgBox“请输入大写字母 “ End If End Sub 8 下列各组变量声明正确的是 ( )。 （ A） Dim abc as integer,num as single （ B） Dim I%,N$as integer （ C） Dim a%,b%,c%,a$ （ D） public dim n% 9 设有数组声明语句： Option Base 1 Dim A(2,-1 To 1) 以上语句所定义的数组A为 _维数组，共有 _个元素， 第一维下标从 _到 _，第二维下标从 _到 _。下列选项正确的是 ( )。 （

9、 A） 1， 2， 6， 2， -1， 1 （ B） 6， 2， 1， 2， -1， 1 （ C） 2， 6， 1， 2， -1， 1 （ D） 2， 1， 6， -1， 1， 2 10 在窗体上画一个命令按钮，名称为 Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1。在 F1中判断所输入的整数是否是奇数，如果是奇数，过程 F1返回 1，否则返回 0。能够 正确实现上述功能的代码是 ( )。 （ A） Private Sub Command1_Click() x=InputBox(“请输入整数 “) a=F1

10、(Val(x) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Funcfion （ B） Privae Sub Command1_Click() x=InputBox(“请输入整数 “) a=F1(Val(x) print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function （ C） Private Sub

11、 Command1_Click() x=InputBox(“请输入整数 “) F1(Va(x) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Funcfion （ D） Private Sub Command1_Click() x=InputBox(“请输入整数 “) F1(Val(x) Print a End Sub Function F1(ByrRef b As Integer) If b Mod 2=0 Then Return 0 Else Retur

12、n 1 End If End Function 11 以下能够正确计算 n!的程序是 ( )。 （ A） Private Sub Command1_Click() n=5:x=1 Do x=x*i i=i+1 Loop While i n Print x End Sub （ B） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i n Print x End Sub （ C） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While

13、i =n print x End Sub （ D） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i n print x End Sub 12 下列代码运行后输出结果是 ( )。 Defstr C-F Private Sub Command1_Click() C$=“123“ D=“456“ Print C+D$ End Sub （ A） 123456 （ B） “123456“ （ C） 123+“456“ （ D）显示出错信 13 在窗体上绘制一个名称为 Command1的命令按钮，然后编写如下事件过程

14、： Private Sub Command1_Click() c=“ABCD“ For n=1 To 4 Print_ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在横线处应填入的内容为 ( ) （ A） Left(c,n) （ B） Right(c,n) （ C） Mid(c,n,1) （ D） Mid(c,n,n) 14 在窗体上绘制一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 T

15、hen fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 ( )。 （ A） 6 （ B） 7 （ C） 8 （ D） 9 15 在窗体上画两个名称分别为 Text1， Text2的文本框和一个名称为 Command1命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim

16、 x As Integer,n As Integer x=1 n=0 Do While x 20 x=x*3 n=n+1 Loop Text1.Text=str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ( )。 （ A） 15和 1 （ B） 27和 3 （ C） 195和 3 （ D） 600和 4 16 下 面的程序运行时，为了在窗体上输出 “VB6.0”，应在窗体上执行的操作是( )。 Private Sub Form_MouseDown(BuRon As Integer,shift As Integer,x As

17、 Single,Y As Single) If Button And 3=3 then Print“VB 6.0“ End If End Sub （ A）只能按下右键 （ B）只能按下左键 （ C）应同时按下左、右键 （ D）按下左、右键之一 17 有如下程序： Option Base 1 Pfivate Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Nexti print Su

18、m End Sub 程序运行后，单击窗体，输出 结果为 ( )。 （ A） 25 （ B） 26 （ C） 27 （ D） 28 18 下面程序运行时，单击窗体后，窗体上显示的结果是 ( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub （ A） 10 （ B） 12 （ C） 37 （ D） 22 19 下列可以启动 Visual Bas

19、ic的方法是（ ）。 （ A）打开 “我的电脑 ”，找到存放 Visual Basic所在系统文件的硬盘及文件夹，双击 “VB6.exe”图标 （ B）在 DOS窗口中，键入 Visual Basic的路径，执行 Visual Basic可执行文件 （ C）利用 “开始 ”菜单中的 “程序 ”命令可启动 Visual Basic （ D） A和 C 20 设用复制、粘贴的方法建立了一个命令按钮 数组 Command1，以下对该数组的说法错误的是（ ）。 （ A）命令按钮的所有 Caption属性都是 Command1 （ B）在代码中访问任意一个命令按钮只需使用名称 Command1 （ C）

20、命令按钮的大小都相同 （ D）命令按钮共享相同的事件过程 21 设 s=“中华人民共和国 “，表达式 Left(S,1)+Right(S,1)+Mid(S,3,2)的值为（ ）。 （ A）中华民国 （ B）中国人民 （ C）中共人民 （ D）人民共和 22 VB6.0是（ ）应用程序的开发工 具。 （ A） 8位 （ B） 16位 （ C） 32位 （ D） 64位 23 要在命令按钮控件上显示图像应（ ）。 （ A）设置 Picture属性 （ B）实现不了 （ C）先将 Type设置为 1，然后再设置 Picture属性 （ D）以上都不对 24 数据库设计的四个阶段是：需求分析、概念设计

21、、逻辑设计和（ ）。 （ A）编码设计 （ B）测试阶段 （ C）运行阶段 （ D）物理设计 25 以下叙述中错误的是（ ）。 （ A）打开一个工程文件时，系统自动装入与该工程有关的窗体 文件 （ B）保存 Visual Basic程序时，应分别保存窗体文件及工程文件 （ C） Visual Basic应用程序只能以解释方式执行 （ D）窗体文件包含该窗体及其控件的属性 26 下列描述错误的是（ ）。 （ A） ReDim命令可以独立使用来声明数组变量 （ B） ReDim命令声明数组变量时，不可以使用变量来定义数组元素的个数 （ C） ReDim命令声明的数组变量是动态数组变量 （ D） R

22、eDim命令声明的数组变量可以用 Erase命令来删除 27 复选框的 Value属性为 0时，表示（ ）。 （ A）复选框未被选中 （ B）复选框被选中 （ C）复选框内有灰色的勾 （ D）复选框操作有误 28 为了在列表框中使用 Ctrl和 Shift键进行多个列表项的选择，应将列表框的Multi-select属性设置为（ ）。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 29 以下关于函数过程的叙述中，正确的是（ ）。 （ A）函数过程形参的类型与函数返回值的类型没有关系 （ B）在函数过程中，过程的返回值可以有多个 （ C）当数组作为函数过程的参数时，既能以传值方式传 递，

23、也能以传址方式传递 （ D）如果不指明函数过程参数的类型，则该参数没有数据类型 30 在窗体上画一个名称为 Drive1的驱动器列表框，一个名称为 Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）。 （ A） Drive1_Change （ B） Drive1_Click （ C） Dir1_Click （ D） Dir1_Change 31 如果将文本框的 Locked属性设置为 True，则以下说法（ ）是正 确的。 （ A）此时在属性窗口不可以修改文本框的 Text属性值 （ B）运行时用户不可以在界面上

24、修改文本框中的内容 （ C）在程序代码中不可以修改文本框的内容，如不可以使用语句Text1.Text=“aaa” （ D）以上均不正确 32 设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（ ）。 （ A）命令按钮的所有 Caption属性都是 Command1 （ B）在代码中访问任意一个命令按钮只需使用名称 Command1 （ C）命令按钮的大小都相同 （ D） 命令按钮共享相同的事件过程 33 使用语句 DimA(1To10)AsInteger声明数组 A之后，以下说法正确的是（ ）。 （ A） A数组中的所有元素值为 0 （ B） A数组中的

25、所有元素值不确定 （ C） A数组中的所有元素值为 Empty （ D）执行 EraseA后， A数组中的所有元素值为 Null 34 Visual Basic程序中分隔各语句的字符是（ ）。 （ A） （ B） : （ C） （ D） _ 35 在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1： List1.RemoveItem 2 List1.RemoveItem 3 End Sub Private Sub Form_Load() List1.AddItem“ItemA“： List1.AddItem“

26、ItemB“ List1.AddItem“ItemC“： List1.AddItem“ItemD“ List1.AddItem“ItemE“ End Sub 运行上面 的程序，然后单击窗体，列表框中显示的项目是 _。 36 下列程序的功能是：将数据 1， 2， ， 10写入顺序文件 Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open _ As #1 For i=1 To 10 Prin t#1,i Next Close #1 End Sub 37 下列程序的功能是：将数据 1， 2， ， 8写入顺序文件 Num.txt中

27、，请补充完整。 Private Sub Form_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 To 8 _ Next Close #1 End Sub 38 执行下面程序，第一行输出结果是 _ ，第二行输出结果是 _ 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Subl(A) End Sub Private Subl(x As Integer) x=x*2+1 If x 10 Then Call Subl(x) End

28、If x=x*2+1 Print x End Sub 39 下面程序的功能是产生 10个小于 100(不含 100)的随机正整数，并统计其中 5的倍数所占比例，但程序不完整，请补充完整。 SubPR() Randomize Dim a(10) For j=1 To 10 a(i)=Int( _ ) If _ Then k=k+1 Print a(j) Next j Print Print k/10 Fnd Sub 40 需求分析的最终结果是产生 _。 41 为了便于对照检查，测试用例应由输入数据和预期的 _两部分组成。 42 数据结构分为逻辑结构和存 储结构，线性链表属于 _。 43 某二叉树

29、中度为 2的结点有 18个，则该二叉树中有 _个叶子结点。 44 _是数据库设计的核心。 45 控件数组的名字由 Name属性指定，而数组中的每个元素由 _属性指定。 46 为了能自动放大或缩小图像框中的图形与图像框的大小相适应，必须把该图片框的 Stretch属性设置为 _。 47 能够将文本框控件隐藏起来的属性是 _。 VB 笔试模拟试卷 213答案与解析 1 【正确答案】 D 2 【正确答案】 C 3 【正确答案】 A 4 【正确答案】 D 5 【正确答案】 A 6 【正确答案】 B 7 【正确答案】 A 8 【正确答案】 A 9 【正确答案】 C 10 【正确答案】 B 11 【正确答

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

31、emE 36 【正确答案】 “Base.txt“ For Output 37 【正确答案 】 Print #1， i 38 【正确答案】 23 47 39 【正确答案】 (Rnd*99)+1 a(i) mod 5 【试题解析】 产生 10 个小于 100(不含 100)的随机正整数，需要用到随机函数Rnd， Rnd函数是随机生成一个小于 1的正数随机数，所以根据题意，填入代码为(Rnd+99)+1，而后面加上 1是为了能保证取到 99。根据题意可知， k 表示 a(i)中 5的倍数的个数，只有当 a(i)mod 5=0时， k=k+1。 40 【正确答案】 需求规格说明书 【试题解析】 软件

32、需求规格说明书是需求分析阶段的最后成果，是软件开发中的重要文档之一。需求规格说明书包括正确性、无歧义性、完整性、可验证性、一致性、可理解性、可修改性和可追踪性等。 41 【正确答案】 输出结果 42 【正确答案】 存储结构 【试题解析】 数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构；数据的存储结构是指数据的逻辑结构在计算机存储空间中的存放形式。在数据的存储结构中，不仅要存放各数据元素的信息，还需要存放各数据元素之间的前后件关系的信息。 43 【正确答案】 19 【试题解析】 在任意一棵二叉树中，度为 0的结点 (即叶子结点 )总是比度为 2的结点多一个。 44 【正确答案】 数据模型 【试题解析】 数据模型是对客观事物及联系的数据描述，它反映了实体内部及实体与实体之间的联系。因此，数据模型是数据库设计的核心。 45 【正确答案】 Index 【试题解析】 控件数组中的所有控件共用一个名称，即 Name属性，并通过Index属性来区别每个控件。 46 【正确答案】 真 【试题解析】 当图像框的 Stretch 属性设为 True时，图像的大小随图像框的大小改变而改变 ；设为 Flase时，图像框的大小随图像的大小而改变。 47 【正确答案】 Visible 【试题解析】 Visible为隐藏属性， Hide为隐藏方法。