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

1、VB 笔试模拟试卷 211及答案与解析 1 以下程序运行后，输出结果是 ( )。 a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a 3 Or b 3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c （ A） 16 （ B） 3 （ C） 6 （ D） 8 2 在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$,

2、c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 ( )。 （ A） hardware （ B） software （ C） hardware （ D） 1 3 窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入 12345，单击命令按钮后的输出结果为 ( )。 Private Sub Command1_Click() Dim A As Integer,B As Integer Text1.SelStart=2 Text1.SelLength=2 A=Val(Text1.SelText) B=Len(Text1.Text) Print A*B End Sub （ A）

3、 68 （ B） 115 （ C） 170 （ D） 1170 4 以下能正确定义数据类型 TelBook的代码是 ( )。 （ A） Type TelBook Name As String*10 TelNum As Integer End Type （ B） Type TelBook Name As String*10 TelNum As Integer End TelBook （ C） Type TelBook Name String*10 TelNum Integer EndType TelBook （ D） Typedef TelBook Name String*10 TelNum I

4、nteger End Type 5 单击命令按钮时，下列程序段的执行结果为 ( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12;y=34 Call Procl(x,y) Print x;y End Sub （ A） 12 34 （ B） 2 34 （ C） 2 3 （ D） 12 3 6 单击命令按钮时，下列程序代码的执行结果为 ( )。 Private Fun

5、ction PickMid(xStr As String)As Sting Dim tempStr As String Dim strLen As Integer TempStr=“ “ StrLen=Len(xStr) i=1 Do While i =strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef“ P

6、rint PickMid(FirstStr) End Sub （ A） abcdef （ B） afbecd （ C） fedcba （ D） defabc 7 下面的过程定义语句中合法的是 ( )。 （ A） Sub Procl(ByVal n() （ B） Sub Procl(n)As Integer （ C） Function Procl(Procl) （ D） Function Procl(ByVal n) 8 单击命令按钮时，下列程序段的执行结果为 ( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr=“a

7、bcdef“ Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=“ “ strLen=Len(xStr) i=1 Do While i =strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion （ A） abcdef （ B） fed （ C

8、） fedcba （ D） defabc 9 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是 ( )。 （ A） 4 （ B） 5 （ C） 6 （ D） 7 10 在窗体上画一个名称为 Command1的命令按钮，编写如下程序： Private Sub Command

9、1_Click() Print p1(3,7) End Sub Public Function p1(x As Single,n As Integer) As Single If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*x+n Else p1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的结果是 ( )。 （ A） 2 （ B） 1 （ C） 0 （ D） 16 11 设有如下程序： Private Sub Command1_Click() Dim c As Integer,d As Int

10、eger c=4 d=InputBox(“请输入一个整数 “) Do While d 0 If d c Then c=c+1 End If d=InputBox(“请输入一个整数“) Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输 入 1、 2、 3、 4、 5、 6、 7、 8、 9和 0，则输出结果是 ( )。 （ A） 12 （ B） 11 （ C） 10 （ D） 9 12 设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next En

11、d Sub 在窗体上绘制一个名称为 Text1的文本框和一个名称为 Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ( )。 （ A） 30 （ B） 25 （ C） 20 （ D） 15 13 在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和 Command1，然后编写

12、如下事件过程： Private Sub Form_Load0 List1.AddItem“Item 1“ List1.AddItem“Item 2“ Lis1.AddItem“Irem 3“ End Sub Private Sub Command1_Click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为 ( )。 （ A）把字符串 “AAAA”添 加到列表框中，但位置不能确定 （ B）把字符串 “AAAA”添加到列表框的最后 (即 “Item 3”的后面 ) （ C）把列表框中原有的最后一项改为 “AAAA” （

13、 D）把字符串 “AAAA”插入到列表框的最前面 (即 “Item 1”的前面 ) 14 假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为 “New Title”的事件过程是 ( )。 （ A） Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog 1 ShowPrinter End Sub （ B） Private Sub Command1_Click() CommonDialog1.DialogTitle

14、=“New Title“ CommonDialog1.ShowFont End Sub （ C） Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowOpen End Sub （ D） Private Sub Command1.Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowColor End Sub 15 有如下程序： Form1.Cls For r=35 To 85 Step 25 Circle

15、(300,240),r Next r 单击 窗体后，窗体上显示的是 ( )。 （ A） 3个相交圆 （ B） 3个同心不相交圆 （ C） 4个同心不相交圆 （ D） 2个同心不相交圆 16 下面程序段的运行结果是 ( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print“*“; Next j Print Next I End Sub （ A） * * * （ B） * * * （ C） * * * （ D） * * * 17 下面程序运行时，单击窗体后，窗体上显示的结果是

16、( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub （ A） 3 （ B） 9 （ C） 5 （ D） 6 18 按照 “后进先出 ”原则组织数据的数据结构是（ ）。 （ A）队列 （ B）栈 （ C）双向链表 （ D）二叉树 19 通用对话框中能打开 “颜色对话框 ”的方法是（ ）。 （ A） ShowOpen （ B） ShowColor （ C） Show

17、Save （ D） ShowPrinter 20 “对象 ”是计算机系统运行的（ ）。 （ A）程序单位 （ B）逻辑单位 （ C）物理实体 （ D）基本实体 21 对已在窗体中控件的操作不正确的是（ ）。 （ A）单击控件外部空白处，可把活动控件变为不活动控件 （ B）双击控件内部，可激活代码窗口 （ C）双击控件内部，可把活动控件变为不活动控件 （ D）拖动活动控件四周的控制小方块可缩放控件 22 在数据库系统中，用户所见的数据模式为（ ）。 （ A）概念模式 （ B）外模式 （ C）内模式 （ D）物理模式 23 下面表达式中，（ ）的运算结果与其他三个不同。 （ A） Exp(-3.5

18、) （ B） Int(-3.5)+0.5 （ C） -3.5 （ D） Sgn(-3.5)-2.5 24 以下说法中正确的是（ ）。 （ A）任何时候都可以通过执行 “工具 ”菜单中的 “菜单编辑器 ”命令打开菜单编辑器 （ B）只有当某个窗体为活动窗体时，才能打开菜单编辑器 （ C）任何时候都可以通过单击标准工具栏上的 “菜单编辑器 ”按钮打开菜单编辑器 （ D）只有当代码窗口为活动窗口时，才能 打开菜单编辑器 25 以下叙述中正确的是（ ）。 （ A）组合框包含了列表框的功能 （ B）列表框包含了组合框的功能 （ C）列表框和组合框的功能无相近之处 （ D）列表框和组合框的功能完全相同 2

19、6 系统符号常量的定义可以通过（ ）获得。 （ A）对象浏览器 （ B）代码窗口 （ C）属性窗口 （ D）工具箱 27 以下关系表达式中，其值为 False的是（ ）。 （ A） ABC “AbC“ （ B） the “they“ （ C） VISUAL=UCase(“Visual“) （ D） Integer “Int“ 28 表达式 Str(Len“123)+Str(77.7)的值是（ ）。 （ A） 377.7 （ B） 377.7 （ C） 80.7 （ D） 12377.7 29 在用通用对话框的 ShowOpen显示 “打开 ”文件对话框时，若要指定其中的文件类型为文本文件，正确

20、的描述格式是（ ）。 （ A） text(.txt)|(*.txt) （ B）文本文件 (.txt)|(.txt) （ C） text(.txt)|(*.txt) （ D） text(.txt)(*.txt) 30 关于过程调用正确的是（ ）。 （ A）过程要用 Call语句调用 （ B） Sub过程一定要用 Call语句调用 （ C）过程都可以用赋值语句的形式调用 （ D）只要写上过程名并给出实参就能调用过程 31 在 Visual Basic工程中，可以作为 “启动对象 ”的程序是（ ）。 （ A）任何窗体或标准模块 （ B）任何窗体或过程 （ C） SubMain过程或其他任何模块 （

21、D） SubMain过程或任何窗体 32 设 a=2， b=4， c=6，下列表达式的值为真的是（ ）。 （ A） a bAndc a （ B） a bOrc a （ C） a bXorc a （ D） a bEqvc a 33 引用列表框 (List1)最后一个数据项应使用（ ）。 （ A） List1.List(List1.ListCount) （ B） List1.List(List.ListCount-1) （ C） List1.List(ListCount) （ D） List1.List(ListCount-1) 34 下面选项中，不能使控件得到焦点的操作是（ ）。 （ A）在 程

22、序运行期间，用鼠标单击对象 （ B）在程序运行期间，用快捷键选择对象 （ C）在程序运行期间，用 Tab键 （ D）在程序运行期间，用 Enter键 35 设有命令按钮 Command1的单击事件过程，代码如下，请填空。 Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=i Next For Each arrItem _ a If arrItem Mod 7=0 Then Print arrItem； If arritem 90 Then Exit For Next End Sub 36 在窗体上画一个文本框

23、，名称为 Text1，画一个命令按钮，名称为 Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“c:test.dat“For _ As #1 For i=1 to Len(Text1.text) print #1， mid(Text1.Text,i,1) Next Close #i End Sub 37 下面程序运行后，窗体中显示 _。 Private Sub Command1_Click)() a$=“*“：

24、 b$=“$“ For k=1 To 3 X$=String$(Len(a$)+k,b$) Print X$： Next Print End Sub 38 假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNuin As String*20 End Type 要求在执行事件过程 Command1_Click时，在顺序文件 Person.txt中写入一条记录。将以下程序补充完整。 Private Sub Command1_Clickk() DimB As Books open“c:person.txt“For output

25、As #1 B.Name=InputBox(“请输入姓名 “) B.TelNum=InputBox(“请输入电话号码 “) write #1， _ close #1 End Sub 39 下列程序功能是，产生 10个 0 100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i %=1 To 10 an(i%)=_ Next max=an(1) For i%=2 to 10 ifan(i%) max then max=an(i%) End

26、 If Next Print max End Sub 40 有以下程序： Private Sub Form_Activate() For j=1 to 3 x=3 For i=l to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为 _。 41 随机文件以 _为单位读写，随机文件的记录是 _记录。 42 设一棵完全二叉树共有 700个结点，则在该二叉树中有 _个叶子结点。 43 常用的黑箱测试有等价类划分法、 _和错误推测法 3种。 44 数据库管理系统常见的 数据模型有层次模型、网状模型和 _3种。 45 通常，将软件产品从提出、实现、使用

27、维护到停止使用退役的过程称为_。 46 数据库保护分为安全性控制、 _、并发性控制和数据的恢复。 47 能够将文本框控件隐藏起来的属性是 _。 48 在 Visual Basic中，将一个窗体加载到内存进行预处理但不显示所使用的语句是 _。 VB 笔试模拟试卷 211答案与解析 1 【正确答案】 A 2 【正确答案】 C 3 【正确答案】 C 4 【正确答案 】 A 5 【正确答案】 B 6 【正确答案】 B 7 【正确答案】 D 8 【正确答案】 B 9 【正确答案】 B 10 【正确答案】 D 11 【正确答案】 D 12 【正确答案】 A 13 【正确答案】 B 14 【正确答案】 C

28、15 【正确答案】 B 16 【正确答案】 A 17 【正确答案】 B 18 【正确答案】 B 19 【正确答案】 B 20 【正确答案】 D 21 【正确答案】 C 22 【正确答案】 B 23 【正确答案】 A 24 【正确答案】 B 25 【正确答案】 A 26 【正确答案】 A 27 【正确答案】 A 28 【正确答案】 B 29 【正确答案】 A 30 【正确答案】 D 31 【正确答案】 D 32 【正确答案】 D 33 【正确答案】 B 34 【正确答案】 D 35 【正确答案】 In 【试题解析】 本题考查了 For EachNext 语句。与 ForNext 类似，但 For

29、，EachNext 专门用于数组或对象 “集合 ”，其一般格式为 ： For Each 成员 In 数组 循环体 Exit For Next成员 36 【正确答案】 output 37 【正确答案】 $ 38 【正确答案】 Get。 【试题解析】 随机访问模式中文件的写操作使用 Put命令， Put命令是将一个记录变量的内容写入所打开的磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用 Get命令， Get命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。 39 【正确答案】 Int(Rnd*1000) 40 【正确答案】 15 41 【正确答案】 记录 字节 42 【正确答案

30、】 350 【试题解析】 完全二叉树中，设高度为 n，则除 h层外其他层结点数都到达最大，可以算出 h=10， 1 9层结点个数为 29-1=511，最后一层结点个数为 700-511=189个， 189/2=95，除最后一层外共有结点 2(9-1)-95=161 个，所以所有的结点个数为： 189+161=350个。 43 【正确答案】 边界值分析法 【试题解析】 黑箱测试方法完全不考虑程 序的内部结构和内部特征，只是根据程序功能导出测试用例。常用的黑箱测试有等价类划分法、边界值分析法和错误推测法 3种。 44 【正确答案】 关系模型 【试题解析】 数据库管理系统是位于用户与操作系统之间的一

31、层系统管理软件，属于系统软件，是用户与数据库之间的一个标准接口，其总是基于某种数据模型，可以分为层次模型、网状模型和关系模型。 45 【正确答案】 软件生命周期 【试题解析】 软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。一般包括可行性研究与需求分析、设计 、实现、测试、交付使用以及维护等活动。 46 【正确答案】 完整性控制 【试题解析】 安全性控制：防止未经授权的用户有意或无意存取数据库中的数据，以免数据被泄露、更改或破坏；完整性控制：保证数据库中数据及语义的正确性和有效性，防止任何对数据造成错误的操作；并发控制：正确处理好多用户、多任务环境下的并发操作，防止错误发生；恢复：当数据库被破坏或数据不正确时，使数据库将其恢复到正确的状态。 47 【正确答案】 Visible 【试题解析】 Visible为隐藏属性， Hide为隐藏方法。 48 【正确答案】 Load 【试题解析】 Load语句把一个窗体装入内存执行 Load语句后，可以引用窗体的控件及各种属性，但此时窗体没有显示出来。