2003年第2次VB考试题.doc

2003年第2次VB考试题第一部分 软件技术基础（共15分）一、 是非判断题（1分/小题，共10分）（判断下列各小题的叙述正确与否，如正确，在客观题答题纸对应编号上选A，否则选B）1.在目前，用于保证软件质量的主要手段是进行软件测试。 A（ 1 ）2.使用DMA方式传送数据期间不需要CPU干预。 A（ 2 ）3.线性顺序队列会产生“假溢出”，而线性循环队列则不会。 A（ 3 ）4.对同一种算法，用高级语言编写的程序比用低级语言编写的程序运行速度要快。B（ 4 ）5.在线性表中，数据的存储方式有顺序和链接两种。 B（ 5 ）6.进程由程序块、文件控制块和数据块三部分组成。 B（ 6 ）7.在面向对象的程序设计中，派生类只能从一个基类产生。 B（ 7 ）8.操作系统是用户和硬件的接口。 A（ 8 ）9.个人计算机中可配置的最大内存容量受地址总线位数的限制。 A（ 9 ）10.软件维护中最困难的问题是软件配置不全。 A（ 10 ）二、 单项选择题（1分/题，共5分）1.在排序法中，从未排序序列中依次取出元素，与已排序序列中的元素作比较，将其放入已排序序列的正确位置称为（ 11 ）(A) 选择排序 (B) 快速排序 (C) 插入排序 (C) 冒泡排序2.有X、Z、Y三个元素依次入栈，不可能的出栈顺序是（ 12 ）(A) Z、Y、X (B) Z、X、Y (C) Y、X、Z (D) X、Y、Z3.进程的状态是可以转换的，而以下哪个状态转换是不可能的 （ 13 ） (A) 就绪状态 执行状态 (B) 执行状态 就绪状态 (C) 阻塞状态 就绪状态 (D) 等待状态 执行状态4.线性链表的地址 （ 14 ） (A) 必须连续 (B) 部分地址必须连续 (C) 一定不连续 (D) 连续与否均可以5.在软件测试中，（ 15 ）主要分析程序的内部结构。（ 15 ） (A) 白盒法 (B) 黑盒法 (C) 因果图法 (D) 错误推测法第二部分 Visual Basic 语言程序设计（共85分）一、单选择题（每小题1分，共10分） 1.在Visual Basic中，窗体文件的扩展名为 （16）16 (A) EXE (B) BAS (C) FRM (D) VBP 2.表达式8+2*329/8-3 mod 2的结果是（17）17 (A) 25 (B) 24 (C) 7 (D) 7.25 3.从键盘上输入两个字符串，分别保存的变量str1、str2中，确定第二个字符串在第一个字符串中其始位置的函数是 (18) 18 (A) LEFT (B) Mid (C) String (D) Instr 4.若X是一个正实数，能对X的第3位小数进行四舍五入的表达式是 （ 19 ）19 (A) 0.01*Int(100*(x +0.05) ) (B) 0.01*Int(100*(x +0.005) ) (C) 0.01*Int (x +0.05) (D) 0.01*Int(x +0.005) 5.下面四个语句中，能打印显示20*30字样的是（ 20）20 (A) Print20*30 (B) Print 20*30C) Print Chr(20)+ *+Chr(30) (D) Print Val(20) *Val(30) 6.变量在窗体模块中声明为公共的。下列关于变量的陈述哪条是正确的？（21 ）21 (A) 可以从项目的任何模块中存取变量 (B) 可以在窗体的任何地方存取变量，而不是在窗体模块外 (C) 只有在同一个项目的其他窗体模块中存取变量 (D) 变量不能在窗体模块中声明为公共的 7.对一个窗体对象，其最先发生的事件是（22）事件。22 (A) Click (B) DblClick (C) Load (D) UnLoad 8.以下能够触发文本框Change事件的操作是（ 23）。23 (A) 文本框失去焦点 (B) 文本框获得焦点 (C) 设置文本框的焦点 (D) 改变文本框的内容 9.若要使标签控件显示时覆盖其背景内容，要设置其BackStyle属性的值为（24 ）24 (A) 0 (B) 1 (C) 2 (D) 3 10.下面对控件数组叙述正确的是（ 25 ）25 (A) 在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组 (B) 控件数组使用index属性来标识下标，其范围是从0开始的 (C) 控件数组使用的资源比用几个单独同样的控件占用的更多 (D) 如果有一按钮数组，按任一按钮不会调用相同的click事件过程。二、阅读分析程序（每个选择3分，共45分） 1.读下面程序Option ExplicitDim a () As IntegerPrivate Sub Command 1_Click () Dim n As Integer, L As Integer, I As Integer, j As Integer n=InputBox(“请输入一个整型数”) ReDim a(1 To n) a(1) =1: a(2) =2: a(3) =3: L=4L1: For i=5 To nFor j=2 To L-1 If i Mod a(j) =0 Then Exit For End ifL2: Next j L3: If jL-1 Then a(L) =i: L=L+1 Next iL4: For i=1 To L-1Print a(i) ;Next iL=L-1Print “L=”;LEnd Sub(1) 程序运行后点击“Command1”，如果在输入框中输入20，输出的结果是 （26）26 (A) 1，2，3，5，7，11，13，17，19，L=9 (B) 1，3，5，7，9，11，13，15，17，L=19(C) 1，2，3，4，5，18，19，L=19(D) 1，2，3，4，5，18，19，20，L=20（2）上述程序中语句“DIM a（）As Integer”的功能是 （27）27 (A) 定义a是11个元素的整型数组。(B) 定义了一个动态数组(C) 定义了一个静态数组(D) 定义了a个整型变量（3）当执行语句“Exit For”后，程序流程将（28）继续执行。28 (A) 从语句标号L1处 (B) 从语句标号L2处(C) 从语句标号L3处 (D) 从语句标号L4处2.阅读下面程序 Option Explict Private Sub Command 1_Click ( ) Dim strPassword As StringDim I as intrgerfor I=1 to 3strPassword=InputBox(“Password:”) If strPassword=”123” Then LLL: Exit ForEnd IfNext I If i =4 ThenMsgBox“你不是合法用户”ElseMsgBox“欢迎你”End IfEnd Sub(1) 该程序的作用是（29） 29 （A）用户输入3次正确口令“123”，才会显示“欢迎你”，输入3次错误口令才会显示“你不是合法用户” （B）用户只输入一次正确口令“123”，就显示“欢迎你”，输入一次错误口令就显示“你不是合法用户” （C）用户只输入一次正确口令“123”，会显示“欢迎你”，输入三次错误口令才显示“你不是合法用户” （D）用户只要输入一次错误口令就会显示“欢迎你”，输入三次正确口令才会显示“你不是合法用户”(2) 如果将LLL处的语法曲去掉，则（30） 30 （A）和原来的程序效果一样 （B）用户必须输入三次正确口令后，才会显示“欢迎你” （C）用户必须输入三次口令，且输入任何口令都会显示“欢迎你” （D）用户必须输入三次口令，且输入任何口令都会显示“你不是合法用户”3.阅读下面程序Private Sub Form_Click() Dim a(2,4) As Integer, b(4) As Integer Dim I As Integer, j As IntegerDo while i=4 a(1,i) =a(1,i) +2*i-1 a(2,i) =a(2,i) +12-2*I i=i+1LoopFor i =1 To 2 For j =1 To 4 Print a(i,j) ; Next j PrintNext i L1: i =0 Do While i = “a”And stra= “z”Then count=count+1 strt(count) = stra+strb End If End If Next I For i = 1 To count For j = i To count - i If strt(j) a(j+1)_ then t=a(j) _a(j)=a(j+1)_a(j+1) =t end if next jnext ifor i=1 to 10text1.text=text1.text & “ “ & a(i)next iEnd sub 3.下面程序的功能是将一个整数转化为数值字符串，例如123，转换为“+123”。 Private Sub NtoC(ByVal n!,strc As string) Dim sign As Boolean,i%,a%,count%,temp%(100) sign =False if n0a=_n mod 10_n=n10count=count+1temp(count) =aloop If sign then strc=”-” else strc=”+” For i=count to 1 step -1Strc=_strc+ trim(str(temp(i)_ strc+chr(48+temp(i) Next iEnd sub 4.从键盘任意输入一个整数x,将其插入一个按升序排列的整数数组A中，并保证数组在插入后仍按升序排列。请在下划线填写适当内容。Option ExplicitOption Base 1Const n=10Private sub form_click() Dim ADim i As Integer, j As Integer,x As integerA =array(1,3,4,5,9,15,22,28,30,60) For i=1 to nPrint a(i) ;Next IPrintX=inputbox(“输入一个整数x:”) Redim preserve a(n+1) For I = n to 1 step 1If _xa(i)_ then A(I+1) =a(i) Else_a(I=1)=x_exit forend ifnext I _if I1 then a(1)=x_ for I = 1 to n+1print a(i) next IprintEnd sub5.下列程序实现当“单击”命令按钮cmdread 从文件“list.txt”中读入行数据并写入一个列表框中，文件中的每一行在列表框中占一个选项。请在下划线处填写适当的内容。Private sub cmdread_cli