1、VB 笔试模拟试卷 268及答案与解析 1 设计程序时，应采纳的原则之一是 ( )。 （ A）程序的结构应有助于读者的理解 （ B）限制 GOTO语句的使用 （ C）减少或取消注释行 （ D）程序越短越好 2 如果准备读文件，打开顺序文件 “text.dat“的正确语句是 （ A） Open“text.dat“For Write As#1 （ B） Open“text.dat“For Binary As#1 （ C） Open“text.dat“For Input As#1 （ D） Open“text.dat“For Random As#1 3 设 x=4， y=6，则以下不能在窗体上显示出
2、 “A=10”的语句是（ ）。 （ A） PrintA=x+y （ B） Print“A=“;x+y （ C） Print“A=“+Str(x+y) （ D） Print“A=“ x Print “奇数和 =“; z 39 数据库保护分为：安全性控制【 】并发性控制和数据的恢复。 40 在面向对象方法中，类之间共享属性和操作的机制称为【 】。 41 下列程序运行后的输出结果是 _。 Private Sub f(k， s) s=1 For j=1 To k s=s*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Cal
3、l f(i， s) Sum=Sum+s Next Print Sum End Sub 42 下面程序是由鼠标事件在窗体上画图 ,如果按下鼠标将可以画图 ,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量 : Dim PaintStart As Boolean 编写如下事件过程 : Private Sub Form_Load() DrawWidth=2 ForeColor=vreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Singl
4、e) PaintStart = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If PaintStart Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 【 】 End Sub Private Sub Form_DblClick() Cls End
5、 Sub 43 如果在立即窗口中执行以下操作 a=8 b=9 print (a b); 则输出结果为 _。 44 在鼠标事件过程 MouseDown和 MouseUp中，参数 Button的值为 1、 2、 4时，分别代表按下鼠标的 _、 _和 _按钮。 45 编写一个过程把 C盘中的 Config. sys文件内容读出，并在文本框中显示出来。在窗体 Form1建立一个文本框 Text1，将其 MultiLine属性设置为 True,将ScrollBars属性设置为 3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form C1ick() Di
6、m chl As String, fn As Integer Dim Str As String fn=【 】 Open “C:Config. sys“ For Input As fn Do While Not EOF(【 】 ) Line Input #fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【 】 End Sub 46 以下程序段执行后 y的值是【 】。 x=8.6 y=int(x+0.5) print y 47 启动窗体在【 】对话框中指定。 48 在窗体上画一个命令按钮，然后编写如下事件过 程： Option Base1 Private
7、Sub Command1_Click() Dim a s=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print S End Sub 运行上面的程序，单击命令按钮，其输出结果是【 】。 49 为了选择多个控件，可以按住【 】键，然后单击每个控件。 50 假定有一个文本框，其名称为 Text1，为了使该文本框具有焦点，应执行的语句是【 】。 VB 笔试模拟试卷 268答案与解析 1 【正确答案】 A 【试题解析】 程序设训的风格主要强调程序的简单、清晰和可理解性，以便读者理解。程序滥用 GOTO语句将使程序流程无
8、规律，可读性差；添加注释行有利于对程序的理解，不应减少或取消，程序的长短要依据实际的需要而定，并不是越短越好。 2 【正确答案】 C 【试题解析】 考查考生对文件读写操作的掌握情况。 解 题要点 Open语句对文件输入 /输出操作，语法如下： Open文件名 For模式 As#文件号 。 Input模式：从打开的文件中写入数据。以该模式打开文件时，文件必须已经存在，否则将出现错误。 考点链接 文件的读写操作。 3 【正确答案】 A 4 【正确答案】 D 5 【正确答案】 B 6 【正确答案】 A 【试题解析】 对线性表进行二分法检索，要求线性表是按顺序方式存储的，并按关键码值的大小排好序，而不
9、是按关键码的检索频率排序。 7 【正确答案】 D 【试题解析】 为了达到程序设计风格良好，便于阅读分析，要注意源程序文档化、程序的语句结构、数据的说明和输入输出等方面的要求。 8 【正确答案】 B 9 【正确答案】 D 10 【正确答案】 C 【试题解析】 详细设计阶段的根本目标是确定应该怎样具体的实现所要求的系统，但详细设计阶段的任务还不是具体的编写程序，而是要设计出程序的 “蓝图 ”，以后程序员将根据这个蓝图写出实际的程序代码，因此，详细设计阶段的结果基本上就决定了最终的程序代码的质量。 11 【正确答案】 D 【试题解析 】 本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的
10、最后输出结果。程序运算过程是： If n=0 Thenelse if n Mod 2=1 Then pp1=x*x+n=16。 12 【正确答案】 B 13 【正确答案】 B 【试题解析】 UCase(str)将 str转成大写的字符串； String(n,character)返回 n 个重复的字符，如果 character是 ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母 “a”，并通过 “str=Chr(KeyAscii)”语句将 a的 ASCII值转换成字符串；然后通过 “KeyAscii=Asc(UCase(str)”求得大写 A的 ASCII值，并显示在文本框中；最后
11、通过 “Text1.Text=String(2,KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出 3个大写字母 “A”。 14 【正确答案】 A 【试题解析】 分析程序可知，命令按钮单击事件调用 p1(3)函数，因此循环中的n 为 3，所以 For循环的条件为 For i=3 to 1 Step-1，所以 For循环从 3递减到 1，输出的 “*”号 也递减，每一次 Print执行后，自动换行。最后输出的结果如选项 A)所示。 15 【正确答案】 A 16 【正确答案】 C 【试题解析】 对于菜单操作来说，如果要访问子菜单不需要通过主菜单来访问。因此排除 B、 D
12、，根据题意可知应将 bigicon的 Checked 属性匿为 True。 17 【正确答案】 D 【试题解析】 本题主要考查随机文件与顺序文件的特点与区别，及文件操作的特点。 Visual Basic 中有 3种文件访问的类型：顺序文件、随机文件、二进制文件。随机文件又称直接存取文件，简称随 机文件或直接文件。随机文件的每个记录都有一个记录号，在写入数据时只要指定记录号，就可以把数据直接存入指定位置。而在读取数据时，只要给出记录号，就可直接读取。在记录文件中，可以同时进行读、写操作，所以能快速地查找和修改每个记录，不必为修改某个记录而像顺序文件那样，对整个文件进行读、写操作。其优点是数据存取
13、较为灵活，方便，速度快，容易修改，主要缺点是占空间较大，数据组织复杂。顺序文件：顺序文件将文件中的记录一个接一个地按顺序存放。二进制访问能提供对文件的完全控制，因为文件中的字节可以代表任何东西，当要使文件的尺 寸尽量小时，应使用二进制访问。在文件处理过程中，执行完 Open 操作后，程序将生成一个文件指针，程序可以调用 LOF函数来获得返回给文件分配的字节数。在随机文件中，每个记录的长度是固定的，记录中的每个字段的长度也是固定的。因为是操作随机文件，所以选 D。 18 【正确答案】 D 【试题解析】 Visual Basic 中， LOC函数是用来在已打开的文件中指定当前读 /写的位置， LO
14、F函数是用来返回已打开文件的长度， EOF函数是用来判断是否到达已打开文件的尾部。 19 【正确答案】 B 【试题解析】 程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项 A， B可能正确，当外层循环执行第一次时， a(i,j)=(i-1)*3+j相当于 a(1,j)=j，由此可判断选项 B为正确答案。 20 【正确答案】 C 【试题解析】 编辑菜单时，为了能够通过键盘访问菜单项，可以在字母前插入一个 如果变量 PaintStart为 True,则移动鼠标 (触发 MouseMove事件 ),将在窗体上绘出一个点 ;除鼠标事件外 ,上述程序还含有一个 Load 事件过程和一个 D
15、blClick 事件过程 ,其中 Load事件过程用来设置画点的大小和颜色 ,DblClick 事件过程用来清除所画的图形 ,函数 Pset是画点语句 ,用它可以在 (x,y) 处画一个点。 43 【正确答案】 False 【试题解析】 a b是一个逻辑表达式，其运行结果为 False； Print 方法不仅有打印的功能还兼有计算的功能， 将表达式的值先运算后输出。 44 【正确答案】 左 右 中间 【试题解析】 MouseDown、 MouseUp 和 MouseMove事件均能区分出鼠标的左、右和中间按钮。 Button 参数与按钮的对应关系是：当 Button=1 时，对应于左按钮 (位
16、 0)；当 Button=2 时，对应于右按钮 (位 1)；当 Button=4 时，对应于中间按钮 (位 2)。 45 【正确答案】 FreeFile ,fn ,Str 【试题解析】 Line Input#语句的功能是从一个打开的顺序文件中，读出一行数 据赋给一个字符型变量 chl； FreeFile函数的功能是以整数形式返回 Open 语句可以使用的下一个有效文件号； EOF函数的功能是当文件指针到达文件尾部时返回True，否则返回 False。 46 【正确答案】 9 【试题解析】 返回参数的整数部分，其类型和参数相同。 语法 Int(number) 必要的 number参数是 Doub
17、le或任何有效的数值表达式。如果 number包含Null，则返回 Null。 47 【正确答案】 工程 -属性 【试题解析】 在 “工程 -属性 ”对话框里有个名为 “启动对象 ”的下拉列表框，在这里可以选择启动窗体或 Sub Main。 48 【正确答案】 1234 【试题解析】 跟踪程序： 由 a=Array(1,2,3,4)可知： a(i)=1 a(2)=2 a(3)=3 a(4)=4 执行循环体： s=s+a(i)*j=a(4)*l1=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)*10000=1234,j=j*10=10000 最终的输出结果是： 1234。 49 【正确答案】 Ctrl 【试题解析】 按住 Ctrl键然后连续单击控件可以将它们连续选中。 50 【正确答案】 SetFocus 【试题解析】 SetFocus 方法可以将光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法将光标置于所需要的文本框上。
