四川计算机二级VB28次(08年4月)笔试题.doc

练习2 2008-4第一部分 软件技术基础（共15分） 一、 是非判断题（每小题1分，共10分）（判断下列各题是否正确，如正确，在客观答题纸对应编号选A，否则选择B）1. 在程序设计中，常用一维数组表示线性表的顺序存储空间。（ ）2. 数据在计算机内存中的表示指数据的存储结构。 （ ）3. Windows是多用户多任务操作系统。（ ）4. 能影响中断响应次序的技术是中断优先级和中断屏蔽。（ ）5. 链表可以随即访问任意一个节点，而顺序表则不能。（ ）6. 作业与进程的主要区别是前者是由用户提交，后者是由系统自动生成。（ ）7. 数据的逻辑结构是从逻辑关系上描述数据，它与数据的存储结构无关，是独立与计算机的（ ）8. 中断控制方式适用于外设同CPU之间进行大量数据交换。（ ）9. 提供没有错误的程序是提高软件的可维护性的基本措施。（ ）10. 软件结构是以指令为基础而组成的一种控制层次结构。（ ）二、 选择题（每小题1分，共5分）1. 数据流图是用于描述结构化方法中（D ）工作阶段的工具（A）可行性分析 （B）程序编码（C）详细设计 （D）需求分析2. 若进栈序列为1，2，3，4，且进栈过程中可以出栈，则不可能出栈的序列是（B ）。（A）1,4,3,2 （B）3,1,4,2 （C）2,3,4,1 （D）3,4,2,13. 任何两个并发进程之间（A ）（A）可能存在同步或互斥关系（B）一定存在同步关系（C）一定彼此独立无关（D）一定存在互斥关系4. 以下的哪个特征不是分时操作系统的主要特征（ B ）。（A）分时性（B）独占性（C）交互性（D）多路性5. 需求分析中开发人员主要从用户那里了解（ C ）（A）软件的维护（B）软件的结构（C）软件做什么（D）软件的测试 第二部分 Visual Basic程序设计（共85分） 一、单项选择题（每小题l分，共10分）A1.以下文件类型中，不属于VB文件系统的是（ 16）。（A）.ras（B）.cls（C）.frm（D）bas2代码如下：strA = 欢迎参加2008年奥林匹克运动会 Print Mid$(strA, 10, 10)则程序运行的结果为（ ）.（A）08年奥林匹克运动会（B）08年奥林匹（C）奥林匹克运动会（D）奥林匹克运A3与数学表达式相对应的VB表达式是（ 18）。（A）sqr(7*sin(3+2*x)+exp(2)*log(3)（B）sqr(7sin(3+2x)+exp(2)*log(3)（C）sqr(7*sin(3+2*x)+e2*log(3)（D）sqr(7sin(3+2x)+e2*log(3)D4在以下Case语句中，错误的是(19).（A）Case 1,3,5（B）Case Is 5（C）Case 1 To 100（D）Case Is10 and Is 50A5如果在MsgBox消息框中只显示“确定”按钮，则应将其第二个参数设置为（20）。（A）0（B）1（C）3（D）5D6要使窗体在运行时最大化，应设置(21)属性。（A）BorderStyle（B）Visible（C）StartUpPosition（D）WindowsStateC7以下对象中不是容器控件的是（22）。（A）Form（B）PictureBox（C）Shape（D）FrameC8.以下关于时钟控件的描述中，错误的是（23）。（A）Timer控件在程序运行时是不可见的（B）Timer控件的Enabled属性决定该控件是否对时间的推移做响应（C）只能在设计时设置Timer控件的Interval属性（D）若想Timer控件每隔1秒发生一次Timer时间，应设置其Interval属性为1000B9设计时用Picture属性装入PictureBox控件中的图形，在程序运行时若欲清除，应用（24）命令（A）Picture1.Cls（B）Picture1.Picture=loadPicture（）（C）Picture1.Picture= （D）Kill Picture1.PictureB10以下关于文件的叙述中，正确的是（25）。（A）一个记录中所包含的各个元素的数据类型必须相同（B）随机文件中每个记录的长度是固定的（C）Open命令的作用是打开一个已经存在的文件（D）使用Input #语句可以从随机文件中读取数据二、程序阅读题（每小题3分，共45分）1、程序代码如下：Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, n As Integer, s As Integer n = 0 i = 0 Do n = n + 22414 n = n * s + n212210 s = s + n214 224 Loop While n = Asc(0) And KeyAscii = a And ch = z Then str2 = str2 + ch End If Next Write #1, str2 Close #1End SubC（1）语句Open App.Path + a.txt For Output As #1表示（ ）（A）以随机读写的方式打开随机文件 （B）以追加方式打开顺序文件（C）以写的方式打开顺序文件（D）以写的方式打开随机文件D（2）如果输入str1为字符串“aaAABB22bb”，文件内容为（ ）（A）aaAABB22bb（B）aaAABBbb（C）AABB（D）aabb三、程序填空题（每空2分，共30分）1、该程序的功能是：计算以下数列的前20项之和。请将程序补充完整。Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer Dim s As Single a = 2 b = 1 s = 0 For i = 1 To 20 s = s + a/ b a = a+b b = a - b next Print s=; sEnd Sub2、以下程序的功能是：在单击命令按钮Command1时，随机产生10个个位和十位数字相同的1099之间的随机整数，并显示其中最大的数。请将程序补充完整。Private Sub Command1_Click() Dim i As Integer, max As Integer, temp As Integer Dim a(10) As Integer Cls i = 0 Do While i 10 temp = int(rnd*(99-10+1)=10) If Then temp10=temp mod 10 a(i) = temp i = i + 1 End If Loop max = a(0) For i = 1 To 9 If max a(i) Then max=a(i) Next For i = 1 To 9 Print a(i) Next Print max=; maxEnd Sub3、以下函数的功能是：将一个（0255 ）之间的十进制数转换为二进制数。例如：十进制数“7”转换为二进制数“00000111”。请将程序补充完整。Private Function Dtob(decade As String) As String Dim binary As String, i%, n As Byte binary = n = Val(decade) For i = 1 To 8 binary = n mod 2 & binary n = n 2 Next i Dtob = End Function4、以下程序的功能是：从 键盘任意输入10个整数并存入数组a（），将数组a（）中下标值为偶数的元素按从小到大的顺序排列（奇数位置元素不变）。请将程序补充完整。第 7 页 共 7 页Option Base 1Private Sub Form_Click() Dim a(10) As Integer Dim temp As Integer Print 输入数据为：; For i = 1 To 10 a(i) = InputBox(请输入一个整数：) Print a(i); Next i Print For i = 2 To 10 Step 2 For j = i + 2 To 10 Step 2 If Then temp = a(i) a(i) = a(j) End If Next j Next i Print 输出数据为：; For i = 1 To 10 Print a(i); Next i PrintEnd Sub5、以下程序的功能是：在窗体上已经创建了一个驱动器列表框Drive1、一个目录列表框Dir1、一个文件列表框File1、一个标签Label1、一个文本框Text1，如下图所示。请将程序补充完整，使驱动器列表框、目录列表框、文件列表框产生同步效果，并且当双击文件列表框内某一文件时，该文件的文件名（包括路径）会即刻显示在文本框text1中。Private Sub Dr