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

1、VB笔试模拟试卷 128及答案与解析 1 如果要改变窗体的标题，需要设置窗体对象的 _ 属性。 （ A） Name （ B） Caption （ C） BorderStyle （ D） BackColor 2 有如下程序，其运行结果为 _。 Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和 “, 300, 200. 613 End （ A） X+Y:之和 501 （ B） X+Y之和 500.613 （ C） X+Y: 501 （ D） X+Y: 500 613 3 符号 %是声明 _ 类型变量的类型定义符。 （ A）

2、Vafiant （ B） Integer （ C） Single （ D） String 4 表达式 26/4*3的值是 _ 。 （ A） 1 （ B） 2 （ C） 18.75 （ D） 18 5 Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是_。 （ A）逗号 （ B）空格 （ C）冒号 （ D）分 号 6 图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是 _。 （ A） AutoSize （ B） Appearance （ C） AutoRedraw （ D） Stretch 7 要使列表框中的列表项显示成复选框形式，则应将其 Styl

3、e属性设置为 _。 （ A） 1 （ B） 0 （ C） True （ D） False 8 CommonDialog控件可以显示 _ 种对话框。 （ A） 4种 （ B） 5种 （ C） 6种 （ D） 7种 9 为了暂时关闭 计时器，应把计时器的某个属性设置为 Falss，这个属性是 _ 。 （ A） Visble （ B） Timer （ C） Interval （ D） Enabled 10 在窗体上有若干控件，其中有一个名称为 Text1文本框。影响 Text1的 Tab顺序的属性是 _。 （ A） TabIndex （ B） TabStop （ C） Enabled （ D） Vi

4、sible 11 已知字母 A的 ASCII码是 65，运行下面程序后输出的结果是 _。 M = 65: A$ =“ “ For i = 1 To 3 A$ = A$ + Chr$(M) M = M +1 Next i Print A$ （ A） 197 （ B） 656667 （ C） ABC （ D） CBA 12 有如下程序，运行后的输出结果是 _。 a = 5 If a = 3 Then Print 3; End If If a = 4 Then Print 4; End If If a = 5 Then Print 5; End If If a = 6; Print 6; End I

5、f （ A） 3456 （ B） 456 （ C） 56 （ D） 6 13 在窗体上画一个命令按钮 (其 Name属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i-1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Next i End Sub 程序运行后，单击命令按钮，其输出结果为 _。 （ A）

6、6 9 7 10 （ B） 7 10 8 11 （ C） 8 11 9 12 （ D） 9 12 10 13 14 运行以下程序后，显示的结果为 _。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i End （ A） 1 2 3 4 5 （ B） 1 2 6 24 120 （ C） 1 2 6 12 20 （ D） 1 1 2 3 4 15 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As

7、 Integer， n As Integer For i=0 To 50 i=i+3 n=n+1 If i 10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 16 在窗体上画一个命令按钮 (其 Name属性为 Command1)，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10)As Integer, arr2(10)As Integer n=3 For i=1 To 6 arr1(i)=

8、i arr2(n)=2*n+i Next i Print arr2(n); arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 _。 （ A） 12 3 （ B） 3 12 （ C） 14 3 （ D） 3 14 17 在窗体上画一个名称为 Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form Click() Dim a(10)As Integer For k=1 To 10 a(k)=k2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 _。 （ A） 10

9、0 （ B） 10 （ C） 121 （ D）出错信息 18 阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 _。 （ A） 4 4 4 （ B） 4 5 6 （ C） 4 6 8 （ D） 4 7 9 19 以下说法错误的是 _。 （ A）函数过程没有返回值 （ B）函数过

10、程可以带参数 （ C）子过程没有返回值 （ D）子过程可以带参数 20 要得到字体对话框中用户所选择的字体颜色的属性是 _。 （ A） Color （ B） ForeColor （ C） FontColor （ D） ShowColor 21 用于显示弹出式菜单的方法名是 （ A） ShowPOpupMenu （ B） ShowMenu （ C） ListPopupMenu （ D） PopupMenu 22 窗体不拥有下列 _ 事件。 （ A） Terminate （ B） Initialize （ C） Validate （ D） OLEStartDrag 23 对窗体编写如下事件过程：

11、Private Sub Form MouseDown(Button As Integer，Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print “AAA“ End If End Sub Private Sub Form MouseUp (Button As Integer， Shift As Integer， _ x As Single， Y As Single) Print “BBB“ End Sub 程序运行后，如果单击鼠标右键，则输出结果为 _。 （ A） AAA BBB （ B） BBB （ C） AA

12、A AAA （ D） BBB 24 以下语句可以实现将文件 filename1复制为 filename2的是 _。 （ A） Copyfilename1, filename2 （ B） Namefilename1, filename2 （ C） FileCopy filename1， filename2 （ D） Duplicate filename1， filename2 25 在窗体上画一个名称为 Drivel的驱动器列表框，一个名称为 Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过 程中，这个事件过程是 _。 （ A） Driv

13、el_Change （ B） Drivel_Click （ C） Dirl_Click （ D） Dirl_Change 26 数据库系统的主要特点为数据集成性、数据的高 _和低冗余性、数据独立性和数据统一管理和控制。 27 数据库的逻辑模型设计阶段的任务是将 _转换成关系模式。 28 在面向对象方法中， _描述的是具有相似属性与操作的一组对象。 29 最简单的交换排序方法是 _。 30 在链表的运算过程中， 能够使空表与非空表的运算统一的结构是 _。 31 Visual BASIC应用程序通常由 3类模块组成，即窗体模块、【 】和类模块。 32 以下程序段执行后 y的值是【 】。 x=6 y

14、=int(x+0.5) print 33 以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x， y As Single Dim z As Integer x=InputBox(“Enter a score“) Do while【 】 y=y+x z=z+1 x=InputBox(“Enter a score“) Loop If z=0 Then z=1 End If y=【 】 Print y End Sub 34 在窗体上画一个命令按 钮；然后编写如下程序： Function

15、 fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数 “) n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入 “345“，输出结果为【 】。 35 菜单编辑器可分为 3个部分，即数据区

16、、【 】和菜单项显示区。 36 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是【 】。 37 在窗体上画 一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1

17、s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是【 】。 38 为了定义自己的鼠标光标，首先应把 MousePointer属性设置为【 】，然后把【 】属性设置为一个图标文件。 39 建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【 】、【 】、 ShowColor、 ShowFont 和 ShowPrinter。 40 下列程序实现的功能是：在窗体上单击时，将在窗体上输出 c:=a1.txt文件中的所有小写字母。 Private Sub Form Click() Dim Ch As String *

18、 1 Open “c:a1.txt“ For Input As #10 Do While【 】 Ch= Input(1, #10) If 【 】 Then Print Ch; End If Loop 【 】 End Sub VB笔试模拟试卷 128答案与解析 1 【正确答案】 B 【试题解析】 窗体的 Caption属性决定了窗体对象在显示时的标题。 2 【正确答案】 C 【试题解析】 由于 “Dim Sum As String*4”定义字符型变量 Sum的长度为 4个字节，因而 Read语句读 Sum变量时，仅读对应字符常量的前 4个字符； Y%为整形变量，在 Read-Data语句中，对应

19、的数值常量经四舍五入后读入，所以选择 C。 3 【正确答案】 B 【试题解析】 Integer数据类型 Integer变量存储为 16位 (两个字节 )的数值形式，其范围为 -32768 32767。 Integer的类型声明字符是百分比符号 (%)。 4 【正确答案】 B 【试题解析】 运算符 “*的优先级大于 “”，所以先进行 43的运算，再进行2612的运算，最后的结果是 2，故应选 B。 5 【正确答案】 A 【试题解析】 Print方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。 6 【正确答案】 D 【试题解析】 Stretch属性：

20、选回 /设置一个值，决定是否调整图形的大小以适应图像控件。 Appearance属性：返回 /设置一个对象在运行时是否以 3D效果显示。图像框控件无 Autosize和 AutoRedraw属 性。 7 【正确答案】 A 【试题解析】 Style属性：该属性用于确定控件外观，只能在设计时确定。其取值可以设置为 0 (标准形式 )或 1(复选框形 )。 8 【正确答案】 C 【试题解析】 CommonDialog控件有六种对话框，分别可以显示 “颜色 ”、 “字体 ”、 “帮助 ”、 “打开 ”、 “打印 ”和 “保存 ”对话框。 9 【正确答案】 D 【试题解析】 控件的 Enabled属性表

21、示其是否有效，如果想使某个控件失效，可以将它的 Enabled属性设为 False。 10 【正确答案】 A 【试题解析】 Tabindex属性决定了按 Tab键时，焦点在各个控件移动的顺序。TabStop用于返回或设置一个值，该值用来指示是否能够使用 TAB键来将焦点从一个对象移动到另一个对象。当设置此属性为 False，则使用 Tab键移到此控件时会自动跳到下一个 TabIndex属性值的控件。 Enabled属性决定控件是否允许操作。 Visible属性决定控件是否可见。 11 【正确答案】 C 【试题解析】 函数 Chr$是把 ASCII码转换为相应的字符，而同为大写或同为小写的相邻的

22、英语字母的 ASCII码 也是相邻的自然数。字母 A的 ASCII码为 65；则字母 B、 C的 ASCII码分别为 66和 67。在 For循环中，表达式 A$+Chr$(M)把字母 A、 B、 C连接起来，因此最后输出的结果是 “ABC”。 12 【正确答案】 C 【试题解析】 该程序分别要执行 4个 If语句，对 a的值进行 4次判断，前两次判断不满足条件，跳出 If语句，而后两次判断满足条件，分别执行两个输出语句，因此结果为选项 C。 13 【正确答案】 D 【试题解析】 第 1个输出为 a(3, 3)=(3-1)*3+3=9。第 2个输出为 a(4, 3)=(4-1)*3+3=12。

23、第 3个输出为 a(3,4)=(3-1)*3+4=10。第 4个输出为 a(4, 4)=(4-1)*3+4=13。 14 【正确答案】 B 【试题解析】 在 For循环中，数组元素 x(1)的值等于前一个数组元素的值乘以 i的值，而 x(0)的值是 1，所以正确答案是选项 B。 15 【正确答案】 C 【试题解析】 每执行一次循环 i的值增加 3， n值增加 1；而当 i 10时循环退出，故循环只能被执行 4次，则 n值为 4。 16 【正确答案】 A 【试题解析】 本题的程序每 次循环都将 arr2(3)重新赋一次值。最终的 arr2(3)的值为 2*3+6=12。而 arr1(3)的值始终

24、为 3。所以最终的输出是 12和 3。 17 【正确答案】 D 【试题解析】 一维数组 a的下标在 1 10之间。而循环结束后 k值为 11，故产生下标越界的错误。 18 【正确答案】 B 【试题解析】 Static语句在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static语句声明的变量的值。本题中变量 c的值，调用一次函数 F就加 1。而变量 a和变量 b的值，在函数 F中 一直是 2和 1。 19 【正确答案】 A 【试题解析】 函数和过程都可以带参数，但函数可以返回值而过程不能。 20 【正确答案】 A 【试题解析】 Color、 FontBlod、

25、FontItalic、 FontName、 FontSize、FontStrikeThru、 FontUnderline等属性分别对应 “字体 ”对话框的字体颜色、字体是否粗体、字体是否斜体、字体名称、字体大小、字体是否有中划线、字体是否有下划线。 21 【正确答案】 D 【试题解析】 弹出式菜单是独立于窗体菜单栏 而显示在窗体内的浮动菜单。弹出式菜单在窗体内的显示位置取决于单击鼠标键时指针的位置。要显示弹出式菜单，必须调用 PopupMenu方法。 22 【正确答案】 C 【试题解析】 Validate事件在焦点转换到另一个控件之前发生，此时该控件的Causes Validation属性值设

26、置为 True。此事件不适用于窗体。 23 【正确答案】 A 【试题解析】 窗体的 MouseDown和 MouseUp中， Button参数是具有相应于左按钮 (位 0)、右按钮 (位 1)，以及中间按钮 (位 2)的一个位字段。 这些位的值分别等于 1、 2和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。本题中MouseDown事件会首先判断按下的是哪个鼠标键，如果是右键则输出 AAA。然后在 MouseUp事件中输出 BBB。 24 【正确答案】 C 【试题解析】 文件的基本操作包括： 1)文件删除。 Kill filename， filename指要删除的文件路径。使用 Kil

27、l命令删除文件时需先将文件关闭。 2)文件复制。 FileCopy source， destination， source指定要复制的文件，destination指定文件 source要复制到的目标路径。 3)文件重命名。 Name oldfilename As newfilename, oldfilename指定原文件名，newfilename指定新文件名。使用 Name时必须先关闭文件 oldfilename。 25 【正确答案】 A 【试题解析】 驱动器列表框用来显示用户系统中有效磁盘驱动器的列表。在程序运行时，该控件的 Drive属性可以返回或设置程序运行时所选择的驱动器。目录列表框用

28、来显示当前驱动器上的目录结构。在程序运行时，该控件的 Path属性可以返回或设置当前路径。当驱动器列表框中当前所选中的驱动器发生变化时， Drive属性也将相应变化，从而触发驱动器列表框的 Change事件，因此可以在驱动器列表框的 Change事件中加入如下的语句： Dirl.Path= Drivel.Drive。该语句的作用是将目录列表框的 Path属性设置为改变后的当前驱动器路径，从而使目录列表框中的目录结构随当前所选择的驱动器的变化而相应变化。 26 【正确答案】 共享性 【试题解析】 数据库系统中的数据能被不同的应用程序使用，实现了数据的高度共享，从 而降低了数据的冗余，这也是数据库

29、的主要目的。 27 【正确答案】 E-R图 【试题解析】 数据库逻辑设计的任务是将概念模型进一步转化成相应的数据模型。而 E-R图是主要的概念模型，因此数据库的逻辑设计的主要工作是将 E-R图转换成关系模式。 28 【正确答案】 类 【试题解析】 在面向对象方法中，把具有相同属性和方法的对象称为类，类是对象的抽象，对象是类的实例。 29 【正确答案】 冒泡排序 【试题解析】 交换排序是指借助数据元素之间的互相交换进行排序的一种方法，冒泡排序是一种最简 单的交换排序方法，它是通过相邻元素之间的相互交换逐步将线性表变得有序。 30 【正确答案】 循环链表 【试题解析】 在循环链表中，由于设置了一个

30、头结点，因此在任何情况下，循环链表中至少有一个结点存在，从而使空表与非空表的运算统一。 31 【正确答案】 标准模块 【试题解析】 模块是相对独立的程序单元。在 Visual Basic中主要有 3种模块，即窗体模块、标准模块和类模块。类模块主要用来定义类和建立 ActiveX组件。 32 【正确答案】 9 【试题解析】 返回参数的整数部分， 其类型和参数相同。 语法 Int(number) 必要的 number参数是 Double或任何有效的数值表达式。如果 number包含Null，则返回 Null。 33 【正确答案】 x =0,y/z 【试题解析】 根据表达式的值有条件地执行一组语句。

31、 语法 If condition Then statements Else elsestatements 或者，可以使用块形式的语法： If condition Then statements ElseIf condition -n Then elseifstatements. Else elsestatements End If 当条件为 True时，或直到条件变为 True时，重复执行一个语句块中的命令。 语法 Do While Until condition statements Exit Do statements Loop 或者可以使用下面这种语法： Do statements Ex

32、it Do statements Loop While Until condition 本题的循环首先 判断输入是否大于 0，如果是则处理这个输入，否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小，如果是则改写当前最小值为输入值，否则结束判断语句。 34 【正确答案】 60 【试题解析】 程序首先要求用户输入一个数，然后将这个数转化为长整型传递入函数 fun。本题中传入的数字是 345。函数 fun中首先将传入的参数取绝对值，然后进入循环： 第一次循环结束的时候： k=5 num=34 第二次循环结束的时候： k=20 num=3 第三次循环结束的时候： k=60 n

33、um=0 35 【正确答案】 编辑区 【试题解析】 菜单编辑器的界面分为数据区、编辑区和菜单 (项 )显示区三个部分。数据区用来确定菜单的名称、索引和标题等信息。编辑区用来对当前的菜单项进行插入、删除等操作。显示区用来显示当前对菜单操作的结果，以便用户和自己的创建目标做比照。 36 【正确答案】 15 【试题解析】 观察程序，由于每次执行第二层循环时 x都被重新赋值，因此只要看当 x=3时，执行第三层循环所得到的结果就可以。 k=1,x=x+6=3+6=9 k=2,x=x+6=9+6=15 最终的输出结果是 ： 15。 37 【正确答案】 1234 【试题解析】 跟踪程序： 由 a=Array

34、(1,2,3,4)可知： a(1)=1 a(2)=2 a(3)=3 a(4)=4 执行循环体： s=s+a(i)*j=a(4)*1=4,j=j*10=10 s=s+a(i)*j=4+a(3)*10=34,j=j*10=100 s=s+a(i)*j=34+a(2)*100=234,j=j*10=1000 s=s+a(i)*j=234+a(1)*1000=1234,j=j*10=-10000 最终的输出结果是： 1234。 38 【正确答案】 99,MouseIcon 【试题解析】 MousePointer属性用来返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针

35、的类型。如果将其设为99，则表示通过该属性指定自定义图标。而 MouseIcon属性用来返回或设置自定义的鼠标图标，方法是指定图标文件的路径。 39 【正确答案】 ShowOpen,ShowSave 【试题解析】 CommonDialog控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择 颜色和字体等操作。通过运行 Windows帮助引擎控件还能显示帮助。 CommonDialog控件建立对话框的操作是通过调用自身的方法实现的： ShowOpen 显示 “打开 ”对话框 ShowSave 显示 “另存为 ”对话框 ShowColor 显示 “颜色 ”对话框 ShowF

36、ont 显示 “字体 ”对话框 ShowPrinter 显示 “打印 ”或 “打印选项 ”对话框 40 【正确答案】 Not EOF(10) ,Ch “a“And Ch =“z“ , Close #10 【试题解析】 要将 a1.txt中的所有小写字母输出，可采用下述方法：首先读打开该文件，然后从文件中读取一个字符，判断该字符是否为小写字母，若是则输出该字母，重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾时才能读取字符，故【 】处应填 “Not EOF(10)”，读取一个字符后，应判断该字符是否尾小写字母，故【 】处应填 “Ch “a“ And Ch =“z“”，文件读写过后，应关闭文件，故【 】处应填 “Close #10”。