200704vb笔试第26次考试.doc

2007年4月14日 VB一 是非1 windows 是多用户多任务操作系统2 在程序设计中,常用一维数组来表示线性表的顺序存储空间3 在面向对象的软件开发方法中,类可以创建对象,类是对象的实例,对象是生成类的模板 4 在计算机系统中,操作系统是处于祼机之上的第一层软件5 数据的存储结构与数据的处理效率无关6 提供没有错误的程序是提高软件的可维护性的基本措施7 中断控制方式适用于外设同CPU之间进行大量数据交换8 在软件工程中,结构化的软件开发方法是一种自顶向下的分阶段实现的软件开发方法9 进程把程序作为它的运行实体,没有程序也就没有进程10 软件工程的目的是最终解决软件的生产工程化二 选择1 以下哪种测试方法不属于白盒测试技术A 基本路径测试 B 边界值分析测试 C 循环覆盖测试 D 逻辑覆盖测试2 若进栈的序列为 1 2 3 4 ,进栈过程中可以出栈,则下列不可能的一个出栈序列是A 1 4 3 2 B 2 3 4 1 C 3 1 4 2 D 3 4 2 13 在多道程序设计系统中,处于后备状态的作业要经过( )调度A 作业调度B 作业调度和设备调度 C 进程调度 D 作业调度和进程调度4 检查软件产品是否符合需求定义的过程称为 A 确认测试 B 集成测试C 验证测试D 验收测试5 数据字典是结构化软件开发方法中用于描述( )工作阶段的工具 A 需求分析 B 程序编码C 详细设计D 可性性分析第二部分一 单选1 以下数据中合法的VB常数是A 2.86D-3.2 B 126# C 12,654,102.23 D 12.34D2 在VB中,一个未经定义而直接使用的变量是( ) 类型? A integer B byte C variant D Boolean3 数学表达式对应的VB表达式是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)+e2log(3)4 定义数组a(1 to 5, 5),下列哪一个元素不存在A a(1,1) B a(1,0) C a(0,1) D a(5,5)5 下列程序段运行后的输出结果是( ) dim a%, b%, c% a=8 b=9 print c=a+b A 17 B 出错信息 C false D true6 VB应用程序窗体的name属性,只能在( )窗口设置A 工具箱 B 属性 C 工程资源管理器 D 代码7 可以实现文本框txtinput同时向左移动150和向下移动260的语句是 AA txtinput.move txtinput.left-150, txtinput.top+260 B txtinput.move -150, +260 C txtinput.left= txtinput.left-150 D txtinput.top= txtinput.top+2608 设组合框combo1中有8个项目,则能删除其中最后一项的语句是A combo1.removeitem combo1.text B combo1.removeitem 7 C combo1.removeite 8 D combo1.removeitem combo1.listcount9 在默认情况下,inputbox返回的值的类型为A 字符串 B 变体 C 数值 D 数值或字符串10 语句circle( 1000,1000), 200, , , , 3.6 画出的是A 椭圆 B 圆孤 C 扇形 D 圆二 程序阅读1 Private Sub Form_click()Dim x As Integer, y As Integer, s As Integer, t As Integer x = InputBox(请输入一个整数:) s = 0 y = 0 Do While x 0 t = x Mod 10 s = s + t y = 10 * y + t x = x / 10 Loop Print s, yEnd Sub(1) 程序运行时,如果输入5331,则S的结果是A 4 B 6 C 8 D 12(2) 如果输入5331,则y的结果是A 1335 B 3135 C 3315 D 5331(3)程序运行时,如果从键盘输入12597 ,则 A 程序运行正常 B 出现变量x溢出错误 C y溢出错误 D s溢出错误2 程序运行界面如下:Option ExplicitPrivate Sub Command1_Click()Dim flag As Boolean, i As Integerflag = TrueFor i = 0 To myList.ListCount - 1 If Text1 = myList.List(i) Then flag = False Exit For End IfNext iIf flag Then myList.AddItem Text1, 0End SubPrivate Sub Command2_Click()Dim t As String, i As Integert = myList.List(myList.ListIndex)For i = myList.ListIndex To 1 Step -1 myList.List(i) = myList.List(i - 1) Next i myList.List(0) = tEnd Sub(1) 当程序界面如上图所示时,单击命令按钮command1,则A 把列表框mylist的最前面一项内容Animal改为Key B 把”Key”添加到mylist的最后C把”Key”添加到mylist的最前面 D 程序将出错(2) 按钮command2的功能是A把选中的项目删除B 把mylist选中的项目与前面一项互换C 把mylist选中的项目移动到最前面, 其余依次向下移动 D 把mylist选中的项目移动最前面,其余不变(3)当程序运行如上图时,mylist.listindex的值为A 0 B 1 C 2 D 3 3 Option ExplicitDim a As Integer, b As Integer, c As IntegerPublic Sub r1(x As Integer, y As Integer) Dim c As Integer x = x + 2 y = 2 * y c = x + yEnd SubPrivate Sub r2(x As Integer, y As Integer) x = x + 2 y = 2 * y c = x + yEnd SubPrivate Sub command1_click() a = 1: b = 2: c = 3 Call r1(a, b) Print a, b, c Call r2(a, b) Print a, b, cEnd Sub(1)运行时,单击command1后,窗体上显示结果为A 3 4 3 B 3 4 3 C 3 4 3 D 3 4 3 3 4 7 3 8 13 5 8 3 5 8 13(2)若将Private Sub r2(x As Integer, y As Integer) 改为Private Sub r2(byval x As Integer, y As Integer). 当单击command1时窗体又显示:A 3 4 3 B 3 4 3 C 3 4 3 D 3 4 3 3 4 7 3 8 13 5 8 3 5 8 13(3)下列说法中正确的是( ) A 过程r1和r2都是公有过程 B 过程r1和r2都是私有过程C过程r1是公有过程, r2是私有过程 D过程r1是私有过程, r2是公有过程4 Option ExplicitPrivate Sub command1_click()Dim s1 As String, s2 As Strings1 = aebceeaefgs2 = InputBox(输入字符串)Print myfun(1, s1, s2)End SubFunction myfun(x As Integer, str1 As String, str2 As String) As IntegerDim length As Integer, i As Integerlength = Len(str1)myfun = 0For i = x To lengthL1: If (Mid(str1, i, Len(str2) = str2) Then myfun = i Exit ForL2: End If Next iL3: If i length Then myfun = 0End Function(1)当执行到exit for 后,程序流程将( )继续执行A 从语句标号L2处 B从语句标号L1处 C 从语句标号L3处 D 退出该函数myfun(2) 当s2输入为e时,程序执行的结果是( )A 0 B 2 C 4 D 5 (3)myfun函数的功能是A 统计str2在str1中出现的次数B 找出str2在str1中出现的第一个位置C 删除str1中的str2字符串D 在str2后面添加str15 Option Base 1Const n = 3Private Sub Form_click() Dim a(n, n) As Integer Randomize For i = 1 To n For j = 1 To n a(i, j) = Int(30 * Rnd() + 50 Print a(i, j); ; Next j Print Next i Sum = 0 For i = 1 To n For j = 1 To n If i = 1 Or i = n Or j = 1 Or j = n Then Sum = Sum + a(i, j) End IfNext j, iPrint SumEnd Sub(1) 运行时,单击窗体后,sum中存放的结果是A 数组a中所有元素之和 B 数组a中主对角元素之和 C 数组a周边的元素之和 D 数组a中副对角元素之和(2) 数组a中每一上元素的值域是A (50, 80) B 50, 80) C (50, 80 D 50, 80(3) 下列说法正确的是 A 数组a是静态数组 B 如果删除randomize 则不能产生随机数 C 符号n是变量名D 数组a是全局数组三 程序填空1 以下程序功能是:计算无穷级数 1+1/(1!+2!) + 1/(2!+3!) +1/( 3!+4! )+前n项之和Private Sub Command1_Click()Dim i As Integer, num As IntegerDim sum As Double, m As Long, n As Longnum = Val(InputBox(请输入项数:)sum= m = 1n = 1for i= m = m * i n= sum = sum + 1 / (m + n) Print m, nNext iPrint sumEnd Sub2 所谓”回文”字符串,是指以顺序或倒序结果都是一样的串.以下程序功能是:当单击command1 后,判断由键盘输入的串是否是回文.Private Sub Command1_Click()Dim str1 As String, i As Integer, k As IntegerDim str2 As Stringstr1 = InputBox(请输入字符串:)str1 = k= For i = k To 1 Step -1 str2= Next iIf then Print str1, 是回文 Else Print str1, 不是回文End IfEnd Sub3 以下程序的功能是: 从键盘上任意输入一个正整数m,并找出大于m的第一个素数Private Sub Form_Click()Dim m As Long, n As Long, i As Long, k As LongDim flag As Booleanm = InputBox(请输入一个较大的正整数:)n = mflag = FalseDo While Not flag flag = True i = 2 k = Int(Sqr(n) do while and flag If n Mod i = 0 Then i = i + 1 LoopLoopPrint m, nEnd Sub4 以下程序功能是:在text1中输入一个英文字母,并在text2中输入一个数字后,单击command1,则在picture1中显示图形Private Sub Command1_Click()Dim i As Integer, strc As String, ln As Integer, n As IntegerPicture1.ClsLn= Picture1.Print Tab(9); Text1.TextFor i = 2 To ln n= If (n = 65 And n = 90) Or (n = 97 And n outdata(j + 1) Then temp = outdata(j) outdata(j) = outdata(j + 1) End IfNext j, iFor i = 1 To n Next iCl