扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
老师们帮忙指导下下列例题.定点数加法规则：[X+Y]补=[X]补+[Y]补 MOD2 （这个MOD2是什么意思?）例：X=-0.010 Y=-0.011 计算X+Y[X+Y]补=[X]补+[Y]补==11011符号位左边的位按2取模后舍弃：[X+Y]补=1011,则X+Y=-0.101（符号位左边的位按2取模后舍弃,这个怎么理解?X+Y=-0.101是怎么得来的?）
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
MOD2 代表按2取模,补数必须建立在有模的情况下,比如-5 在模为12的情况下+7是它的补数,如果没有模,则没有补,这里是把这个原则用在计算机上. 必须左边按位取模,因为左边代表符号位,不取模的话会溢出 因为补数为1011,原码等于补码除符号位以外,按位取反,末位加1,即,[X+Y]补=1011,1为符号位,故可以写成1,011则取反后为1,100之后加1,得1,101,所以[X+Y]原码是1,101因为1代表符号位是负,所以真值为-0.101
为您推荐：
其他类似问题
扫描下载二维码当前位置： >>
年全国计算机二级考试VB数据库笔试真题
?2008 年 4 月全国计算机二级考试 VB 数据库笔试真题? ? ? ?1.在程序流程图中带有箭头的线段是 ( ) A)图元关系 B)数据流 C)控制流 D)调用关系第 2 题 结构化程序设计的基本原则不包括 A)多态性 B)自顶向下 C)模块化 D)逐步求精第 3 题 软件设计中模块划分应遵循的准则是 A)低内聚低耦合 C)低内聚高耦合 B)高内聚低耦合 D)高内聚高耦合? ? ?4.在软件开发中,需求分析阶段产生的主要文档是( ) A)可行性分析报告 B) 软件需求说明书 C) 概要设计说明书 D)集成测试计划第 5 题 算法的有穷性是指 A)算法程序运行的时间是有限的 C)算法程序的长度是有限的 B)算法程序所处理的数据是有限的 D)算法只能被有限的用户使用?第 6 题 对长度为 n 的线性表排序，在最坏的情况下，比较次数不是 n(n-1)/2 的排序算法是 A)快速排序 C)直接插入排序 B)冒泡排序 D)堆排序?第 7 题 下列关于栈的叙述正确的是 A)栈按“先进先出”组织数据 C)只能在栈底插入数据 B)栈按“现金后出”组织数据 D)不能删除数据?第 8 题 在数据库设计中，将 E-R 图转换成关系数据模型的过程属于 A)需求分析阶段 C)逻辑设计阶段 B)概念设计阶段 C)物理设计阶段?9.有三个关系 R S 和 T 如下:由关系 R S 得到关系 T,所用运算为 A)并 B) 自然连接 C)笛卡尔积 D)交?第 10 题 设有表示学生选课的三张表，学生 S(学号，姓名，性别，年龄，身份证号),课程 C(课号， 课名）,选课 SC(学号，课号，成绩),则表示 SC 的关键字（键或码）为 A)课号，成绩 C)学号，课号 B)学号，成绩 D)学号，姓名，成绩 ）。?第 11 题 以下叙述中错误的是（ A）标准模块文件的扩展名是.bas B）标准模块文件是纯代码文件C）在标准模块中声明的全局变量可以在整个工程中使用 D）在标准模块中不能定义过程?A）1第 12 题 在 Viusal Basic 中，表达式 3*2\5 Mod 3 的值是（ B）0 C）3 D）出现错误提示）。? ?第 13 题 以下选项中，不合法的 Visual Basic 的变量名是（ A）a56 B）_xyz C）a_b D）andif ）。）。第 14 题 以下数组定义语句中，错误的是（ A）Static a(10) B）Dim C）Dim D）Dim c(3, d(-10) b(0 To 5, 1 To 3) As Integer x As Integer 1 To 4)?A）0第 15 题 现有语句：y=IIf(x&0, B）1 C）3Mod 3, 0)，设 x=10，则 y 的值是（）。D）语句有错?A）0第 16 题 为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine 属性设置为 True，然后再 把 ScrollBars 属性设置为（ B）1 C）2 ）。 D）3?第 17 题 文本框 Text1 的 KeyDown 事件过程如下： Private Sub End Sub 其中参数 KeyCode 的值表示的是发生此事件时（ A）是否按下了 Alt 键或 Ctrl 键 C）所按的键盘键的键码 ）。 B）按下的是哪个数字键 D）按下的是哪个鼠标键 Text1_KeyDown(KeyCode ? As Integer, Shift As Integer)?第 18 题 窗体上有一个名称为 Hscroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立 即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是（ A） Private Sub End Sub B） Private Sub End Sub Hscroll1_Change() Print Hscroll1.SmallChange Hscroll1_Change() Print Hscroll1.Value C） Private Sub End Sub D） Private Sub End Sub Hscroll1_ Scroll () Print Hscroll1. SmallChange Hscroll1_Scroll() Print Hscroll1.Value ）。?第 19 题 若已把一个命令按钮的 Default 属性设置为 True，则下面可导致按钮的 Click 事件过程 被调用的操作是（ C）按键盘上的回车键 ）。 B）按键盘上的 Esc 键 D）用鼠标右键双击此按钮 ）。 A）用鼠标右键单击此按钮?第 20 题 要使两个单选按钮属于同一个框架，正确的操作是（ A）先画一个框架，再在框架中画两个单选按钮B）先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 C）先画两个单选按钮，再用框架将单选按钮框起来 D）以上三种方法都正确? ? ?21.能够存放组合框的所有项目内容的属性是( ) A)Caption B) Text C)list D)select第 22 题 设窗体上有一个标签 Label 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 10 00，Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现 上述要求的事件过程是（ ）。 Private Sub Timer1_Timer() End Sub D） B） Private Sub End Sub Timer1_Timer() Label1.Caption=Time$ Private Sub For k=1 Next End Sub k Timer1_Timer() To Timer1.Interval Timer1_Timer() Label1.Interval=1?A） Private Sub End Sub Label1.Caption=TrueLabel1.Caption=Timer?C）?第 23 题 设有如图所示窗体和以下程序：Private Sub Text1.Text End Sub Private Sub IfCommand1_Click() = &Visual Basic& Text1_LostFocus() && &BASIC& Then = &&Text1.Text Text1.TextText1.SetFocusEnd If End Sub 程序运行时，在 Text1 文本框中输入&Basic&（如图所示），然后单击 Command1 按钮， 则产生的结果是（ ）。 B）文本框中为&Basic&，焦点在文本框中 D）文本框中为&Visual Basic&，焦点在按钮上 A）文本框中无内容，焦点在文本框中 C）文本框中为&Basic&，焦点在按钮上?x a b c第 24 题 窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub = = = = Command1_Click() 11) 7, , 5) b) ）。 &VisualBasicProgramming& Right(x, Mid(x, MsgBox(a,End Sub 运行程序后单击命令按钮，以下叙述中错误的是（ A）信息框的标题是 Basic C）c 的值是函数的返回值 B）信息框中的提示信息是 Programming D）MsgBox 的使用格式有错?第 25 题 设工程文件包含两个窗体文件 Form1.frm、 Form2.frm 及一个标准模块文件 Module1.bas。 两个窗体上分别只有一个名称为 Command1 的命令按钮。 Form1 的代码如下： Public x As Integer Command1_Click() Private Sub Form2.Show End Sub Private Sub x y = = 1 5 Form_Load()End Sub Form2 的代码如下： Private Sub End Sub Module1 的代码如下： Public y As Integer ）。 5 C）0 0 D）程序有错 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上的命令按钮 Command 1，则窗体上显示的是（ A）1 5 第 26 题 程序如下： Private Type x a b As Integer As Integer Command1_Click() As x B）0 Command1_Click() y Print Form1.x,?窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的End Type Private Sub Dim yy.a = If ElseInputBox(&&) 2 = y.a * y.a / y.a 2 Theny.a \ y.b = y.b =Fix(y.a / 2) = y.b ）。End If Text1.Text End Sub 对以上程序，下列叙述中错误的是（ A）x 是用户定义的类型 B）InputBox 函数弹出的对话框中没有提示信息 C）若输入的是偶数，y.b 的值为该偶数的平方 D）Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回?第 27 题 窗体上有一个名称为 CD1 的通用对话框控件和由四个命令按钮组成的控件数组 Command1， 其下标从左到右分别为 0、1、2、3，窗体外观如图所示。 命令按钮的事件过程如下：Private Sub Select Case Case Case Case End SubCommand1_Click(Index Case 0: 1: 2: 3: Index CD1.Action CD1.Action End = = 1 5 CD1.ShowSaveAs Integer)End Select 对上述程序，下列描述中错误的是（ ）。A）单击“打开”按钮，显示打开文件的对话框 B）单击“保存”按钮，显示保存文件的对话框 C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行?第 28 题 窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令 按钮 Command1，并编写以下程序：Private Sub Call End Sub Public End SubCommand1_Click() HT.Value) y As Integer)cale(HV.Value,Sub cale(x As Integer, = x * yText1.Text运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙 述中正确的是（ ）。 cale(x As Control, y As Control) A）过程调用语句不对，应为 cale(HV, HT) B）过程定义语句的形式参数不对，应为 Sub C）计算结果在文本框中显示出来 D）程序不能正确运行?s第 29 题 现有如下程序： Private Sub = s Next Print s End Sub Public If Else t f = = t ）。 D）70 x + 2 End If End Function 运行程序，则窗体上显示的是（ A）38 B）49 C）61 Function t = x + f(x As Integer) 1 x &= 10 Then 0 = 1 = s + To 5 f(5 + i) For i Command1_Click()?第 30 题 窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出 一个快捷菜单。如图所示。以下叙述中错误的是（）。A）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“-”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设置“复选”属性（有“√”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉“可见”前面的“√”?示。第 31 题 窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图所 现有如下程序：Public If ElseSub display(x TypeOf x.Caption x.Picture = =As Control) Then &计算机等级考试& LoadPicture(&pic.jpg&)x Is LabelEnd If End Sub Private Sub Call End Sub Private Sub Call End Sub 对以上程序，下列叙述中错误的是（ ）。 Picture1_Click() display(Picture1) Label1_Click() display(Label1)A）程序运行时会出错 C）过程中的 x 是控件变量B）单击图片框，在图片框中显示一幅图片 D）单击标签，在标签中显示一串文字?第 32 题 窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Dim c c = As Text1_KeyUp(KeyCode Integer = Chr(Asc(c) + 2) ）。 As Integer, Shift As Integer)UCase(Chr(KeyCode))Text2.Text End Sub当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（ A）A B）a C）C D）c?第 33 题 设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Dim s s = ch s Next End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则 Text1 中显示的是（ A）Basic B）cisaB C）BASIC D）CISAB ）。 = k = s && = 1 ch To + s Len(Text1) 1) = Mid(Text1, k, For k As Command1_Click() String, ch As StringText1.Text?第 34 题 某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值： Private Sub Dim a(10) For k a(k) Next max = For k If k 0 = 1 a(k) max = End If Next End Sub 运行程序时发现，当输入 10 个整数时，可以得到正确结果，但输入 10 个负数时结果是错误的。程序需 要修改，下面的修改中可以得到正确运行结果的是（ A）把 If a(k) & max Then 改为 If max 1 To 10 改为 For k = 2 To 10 a(k) & max B）把 max = D）把 max = a(k)改为 a(k) = ）。 Then k Print max To 10 Then a(k) & max = 1 Command1_Click() As To Integer, 10 max As Integer= InputBox(&输入一个整数&)C）把第 2 个循环语句 For k =0 改为 max = a(10)35.已知 4 行 3 列的全局数组 score(4,3)中存放了 4 个学生 3 门课程的考试成绩（均为整数），现需要计算每个学生的总分，某人编写程序如下： Option Base 1Private Sub Command1_Click() Dim sum sum For For sum i = As Integer = 1 0 To 1 4j = = sumTo 3 + sore(i, j)Next j Next i End Sub 运行程序时发现，除第 1 个人的总分计算正确外，其他人的总分都是错误的。程序需要修改。以下 修改方案中正确的是（ A）把外层循环语句 For 内层循环语句 For B）把 sum C）把 sum = = j i = 1 = 1 To 1 To ）。 4 改为 For For i j = 1 = 1 To To To 4 3 之间 i) 33 改为 To0 移到 For sum = + sumi = sore(i, +4 和 For =j = 1 sum =j)改为 sum+ sore(j, sore(j, i)D）把 sumsore(i,j)改为 sum填空题 第 1 题 测试用例包括输入值集和____值集。? ? ? ?第 2 题 深度为 5 的满二叉树有____叶子结点。 第 3 题 设某循环队列的容量为 50，头指针 front=5（指向队头元素的前一位置），尾指针 rear= 29（指向队尾元素），则该循环队列中共有____个元素。 第 4 题 在关系数据库中，用来表示实体之间联系的是____ 第 5 题 在数据库管理性系统提供的数据定义语言、数据操纵语言和数据控制语言中，____负责数 据的模式定义与数据的物理存取构建。?x Do x Loop =第 6 题 设有以下的循环： 1 = x + 2Print x Until ____ 要求程序运行时执行 3 次循环体，请填空。?第 7 题 窗体上命令按钮 Command1 的事件过程如下： Private Sub Dim total total = End Sub Private Function Static For i x Next s = = i x = 1 x + s(m To 1 m As Integer) As Integer x As Integer Print total Command1_Click() As s(1) Integer + s(2)End Function 运行程序，第 3 次单击命令按钮 Command1 时，输出结果为____ 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Command1_Click() As To = i 【8】 To 10 ) Integer 10 = 1 i swap( = 1 Private Sub Dim a(10) For i a(i) Next Call For i Next End Sub Sub swap(b() As Integer) n = t = 【9】 = 1 b(i) = b(n) = t To n / 2 For i b(i) b(n) Next End SubPrint a(i);【10】以上程序的功能是： 把顺序文件 smtext1.txt 的内容全部读入内存， 并在文本框 Text1 中显示出来。 请填空。 Private Sub Text1.Text Open Do Command1_Click() = && 【13】 【15】 inData = Text1.Text & inData As 【14】 Dim inData As String &smtext1.txt& While Input #2, Text1.Text Loop Close #2 End Sub2008年9月全国计算机二级考试 VB 数据库笔试真题第2题 下列叙述中正确的是 A)循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 B)在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 C)在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况 D)循环队列中元素的个数是由队头指针和队尾指针共同决定选择答案：ABCD操作 第3题 在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是 A)O(n) 操作 B)O(n2) C)O(log2n) D)O(nlog2n)选择答案：ABCD第5题 数据流图中带有箭头的线段表示的是 A)控制流 C)模块调用 B)事件驱动 D)数据流选择答案：ABCD操作 第6题 在软件开发中，需求分析阶段可以使用的同居是 A)N-S 图 B)DFD 图 C)PAD 图 D)程序流程图选择答案：ABCD操作第8题 一间宿舍可以住多个学生，则实体宿舍和学生之间的联系是 A)一对一 B)一对多 C)多对一 D)多对多选择答案：ABCD操作第9题 在数据管理技术发展的三个阶段中，数据共享最好的是 A)人工管理阶段 C)数据库系统阶段 B)文件系统阶段 D)三个阶段相同选择答案：ABCD操作 第10题 有三个关系 R、S、和 T 如下：由关系 R 和 S 通过运算得到关系 T,则所使用的运算为 A)笛卡尔积 B)交 C)并 D)自然连接选择答案：ABCD操作 第11题 在设计窗体时双击窗体的任何地方，可以打开的窗口是 A)代码窗口 C)工程资源管理器窗口 B)属性窗口 D)工具箱窗口选择答案：ABCD操作 第12题 若变量 a 未实现定义而直接使用（例如：a=0） ，则变量 a 的类型是 A)Integer B)String C)Boolean D)Variant选择答案：ABCD操作 第13题 把圆周率的近似值3.14159存放在变量 pi 中，应该把变量 pi 定义为 A)Dim pi As Integer C)Dim pi As Single B)Dim pi(7) As Integer D)Dim pi As Long选择答案：ABCD操作 第14题 表达式2*3^2-4*2/2+3^2的值是 A)30 C)49 操作 第15题 以下不能输出“Program”的语句是 A)Print mid(&VBProgram&3,7) C)Print Mid(&VBProgram&,3) B)Print Right(&VBProgram&,7) D)Print Left(&VBProgram&,7) B)23 D)48选择答案：ABCD选择答案：ABCD操作 第16题 窗体上有一个名称为 Frame1的框架（如图）,若要把框架上显示的&Frame1&改为 汉字“框架” 下面正确的语句是 ，A)Frame1.Name=&框架& C)Frame1.Text=&框架&B)Frame1.Caption=&框架& D)Frame1.Value=&框架&选择答案：ABCD操作 第17题 以下叙述中错误的是 A)在通用过程中，多个形式参数之间可以用逗号作为分隔符 B)在 Print 方法中，多个输出项之间可以用逗号作为分隔符 C)在 Dim 语句中，所定义的多个变量可以用逗号作为分隔符 D)当一行中有多个语句时，可以用逗号作为分隔符选择答案：ABCD操作 第18题 设窗体上有一个列表框控件 List1,含有若干列表项。以下能表示当前被选中的列表 项内容的是 A)List1.List C)List1.Text B)List1.ListIndex D)List1.Index选择答案：ABCD操作 第19题 设 a=4,b=5,c=6,执行语句 Print a&b And b&c 后，窗体上显示的是 A)True B)False C)出错信息 D)0选择答案：ABCD操作 第20题 执行下列语句 strInpug=InputBox(&请输入字符串&,&字符串丢画框&,&字符串) 将显示输入对话框。如果此时直接点击&确定&按钮，则变量 strInput 的内容是 A)&请输入字符串& C)&字符串& B)&字符串对话框& D)空字符串选择答案：ABCD操作 第21题 窗体上有 Command1、Command2两个命令按钮。现编写以下程序： Option Dim a() Base As 0 IntegerPrivate Sub m =Command1_Click() InputBox(&请输入一个正整数&)ReDim a(m) End SubPrivate SubCommand2_Click()m=InputBox(&请输入一个正整数&)ReDim a(m) End Sub 运行程序是，单击 Command1后输入整数10，再单击 Command2后输入整数5，则数组 a 中元素的个数是 A)5 操作 第22题 在窗体上画一个命令按钮和一个标签，其名称分别为 Command1和 Label1，然后编写 如下的事件过程 Private Sub conter For I Command1_Click() = 0 = 1 To 4 = 6 To 1 Step 1 -2 B)6 C)10 D)11选择答案：ABCDFor Jconter = Next Next I Jconter +Label1.Caption End Sub= Str(conter)程序运行后，单击命令按钮，标签中显示的内容是 A)11 操作 第23题 在窗体上画一个名为 command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() As Integer To 10 = 12 k B)12 C)16 D)20选择答案：ABCDDim M(10) For k = 1M(k) Next x = k 8Print M(2 End Sub+ M(x))运行程序，单击命令按钮，在窗体上显示的是 A)6 操作 第24题 以下关于过程及过程参数的描述中，错误的是 A)调用过程时可以用控件名称作为实际参数 B)用数组作为过程的参数是，使用的是“传地址”方式 C)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体(Form)可以作为过程的参数 B)5 C)7 D)8选择答案：ABCD选择答案：ABCD操作 第25题 在窗体上画一个名为 Command1的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码： Private X Private Sub X = 5: As Integer Command1_Click() Y = 3Callproc(X, Y) = X = YLabel1.Caption Label2.Caption End SubPrivate Sub X Y End Sub = =proc(a a * b + a bAsInteger, ByValb As Integer)程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A)25和3 B)5和3 C)25和6 D)5和6选择答案：ABCD操作第27题 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编 写如下事件过程： Private Sub Dim i For i i n If Next Text1.Text = Str(n) Command1_Click() As = 1 = = Integer, n To i + n + i & 10 50 3 1 Then Exit For As IntegerEnd Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A)2 操作 第28题 假定有以下循环结构 Do Until 循环体 Loop 则以下正确的描述是 条件表达式 B)3 C)4 D)5选择答案：ABCDA)如果“条件表达式”的值是0，则一次循环体也不执行 B)如果“条件表达式”的值不是0，则至少执行一次循环体 C)不论“条件表达式”的值是否为“真” 至少要执行一次循环体 ， D)如果“条件表达式”的值恒为0，则无限次执行循环体选择答案：ABCD操作 第29题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim I, Num Randomize Do For I = 1 To )Num = Int(Rnd * Print Num Select Case Case Num 12 Exit Case 58 Exit CaseForDo 9265, 68, EndEnd Select Next Loop End Sub 上述事件过程执行后，下列描述中正确的是 A)Do 循环执行的次数为1000此 B)在 For 循环中产生的随机数小于或等于100 C)当所产生的随机数为12时结束所有循环 D)当所产生的随机数为65，68或92时窗体关闭、程序结束 I选择答案：ABCD操作 第30题 在窗体上画一个名为 Command1的命令按钮，然后编写如下代码： Option Base 1 Command1_Click()Private Sub Dim a a j = =Array(1, 1 = 4 s j = =2,3, 4)For ITo 1 s + j *Step -1 a(I) * 10 jNextIPrint s End Sub 运行上面的程序，其输出结果是 A)1234 B)12 C)34 D)4321选择答案：ABCD操作 第31题 设有如下通用过程 Public Function Fun(xStr As String) As StringDim tStr As String, strL As Integer tStr strL I Do = = && = Len(xStr) 1 While I tStr I Loop Fun = End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() tStr = &= strL / 2 I, 1) & Mid(xStr, strL - I + 1, 1)= tStr I + 1& Mid(xStr,Dim S1 As String S1 = &abcdef&Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是 A)ABCDEF B)abcdef C)AFBECD D)DEFABC选择答案：ABCD操作 第32题 某人为计算 n!(0&n&=12)编写了下面的函数过程 Private Function Dim p p = 1 = n = - 1 p * k To 2 Step -1 As fun(n Long As Integer) As LongFor k p Next fun = End Function kp在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误的方案是 A)把 p=1改为 p=n B)把 For C)把 For k=n-1 To 2 k=n-1 To 2 Step Step -1 -1 改为 For 改为 For k=1 T0 n-1 k=1 T0 nD)把 For 操作k=n-1 To 2Step-1改为 Fork=2 T0 n选择答案：ABCD第33题 假定有以下函数过程： Function Fun(S As String) As StringDim s1 As String For I = 1 s1 Next Fun = End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() I s1 To Len(S) = LCase(Mid(S, I, 1)) + s1Dim Str1 As String, Str2 As String Str1 Str2 = InputBox(&请输入一个字符串&) = Fun(Str1)Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg” 则单击“确定” ， 按钮后在窗体上的输出结果为 A)ABCDEFG B)abcdefg C)GFEDCBA D)gfedcba选择答案：ABCD操作 第34题 为计算 a 的 n 次方的值，某人编写了函数 power 如下： Private Function Dim p p = a = 1 = To n p * a As power(a As Integer, n Long As Integer) As LongFor k p Next kpower = End Functionp在调试时发现是错误的，例如 Print power(5,4)的输出值应该是625，但实际输出是3125。 程序需要修改。下面的修改方案中有3个是正确的，错误的一个是 A)把 For B)把 p=p*a C)把 For D)把 p=a 操作 第35题 某人编写了下面的程序 Private Sub Command1_Click() k=1 To n 改为 p=p^n k=1 To n 改为 p=1 改为 For k=2 To n-1 改为 For k=2 To n选择答案：ABCDDim a a b = =AsInteger, bAsIntegerInputBox(&请输入整数&) InputBox(&请输入整数&)pro a pro b Call End Sub pro(a + b)Private Subpro(n As Integer) 0) Mod 10;While (n & Print n n Wend Print End Sub =n \ 10但调试时发现只输出了前2行（即2个数的反序） ，而未输出第3行(即2个数之和的 反序),程序需要修改。下面的修改方案中正确的是 A)把过程 pro 的形式参数 n B)把 Call pro(a+b) As Integer a+b 改为 ByVal n As Integer改为 proC)把 n=n\10改为 n=n/10 D)在 pro b 语句之后增加语句 c%=a+b,再把 Call pro(a+b)改为 pro c选择答案：ABCD第1题 对下列二叉树进行中序遍历的结果是____填写答案：操作 第2题 按照软件测试的一般步骤，集成测试应在____测试之后进行。填写答案：操作 第3题 软件工程三要素包括方法、工具和过程，其中，_____支持软件开发的各个环节的控制和管理。填写答案：操作 第4题 数据库设计包括概念设计、____和物理设计。填写答案：操作第5题 在二维表中，元组的____不能再分成更小的数据项。填写答案：操作 第6题 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1和 Command1,然后编写如下两个事件过程： Private Sub S$ Command1_Click()= InputBox(&请输入一个字符串&) = S$Text1.Text End SubPrivate SubText1_Change() = UCase(Mid(Text1.Text, 7))Label1.Caption End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic” 则在标签中显示的内容是____ ，填写答案：操作 第7题 在窗体上画一个命令按钮，其名称为 Command1,然后编写如下事件过程： Private Sub a$ n S = = Command1_Click() Computer Rank Examination&= &National Len(a$) 0 = 1 ToFor I b$ Ifn 1)= Mid(a$, I, b$ = &n& Then S = S +1End If Next IPrint S End Sub 程序运行后，单击命令按钮，输出结果是____填写答案：操作 第8题 为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1,所使用的语句为____填写答案：操作 第9题 设有如下程序： Private Sub Cls a$ = &ABCDFG& = 1 To 6 - I); _____ Form_Click()For IPrint Tab(12Next End SubI程序运行后，单击窗体，结果如图所示，请填空。填写答案：操作在窗体上画一个命令按钮，其名称为 Command1,然后编写如下代码： Option Private Base Sub Arr = = = k If Else 【11】 End Next Print End Sub k pos, neg If Array(43, 68, 0 0 = 1 To 10 Arr(k) & 【10】 0 Then -25, 65, -78, 12, -79, 43, -94, 72) Dim Arr pos neg For 1 Command1_Click()以上程序的功能是，计算并输出数组 Arr 中10个数的正数之和 pos 与负数之和 neg,请填空第10题 以上【10】填填写答案：操作 第11题 以上【11】填填写答案：操作在窗体上画一个名为 Command1的命令按钮，然后编写如下程序： Private Sub i = Command1_Click() As Integer 0 InputBox(&Enter a number&) Dim Sum n =n = For Next Print End Sub iVal(n) = Sum i Sum 1 To n = 【12】Function p = For Nextfun(t 1 i p i =As Integer) 1 To tAsLong= p * i【13】 End Function 以上程序的功能是，计算1!+2!+3!+...+n!,其中 n 从键盘输入，请填空。第12题 以上【12】填填写答案：操作 第13题 以上【13】填填写答案：操作在窗体上画一个文本框，名称为 Text1,然后编写如下程序： Private Sub Form_Load() &d:\temp\dat.txt& = && For Output As #1 Open End SubText1.TextPrivateSub IfText1_KeyPress(KeyAscii KeyAscii = 13 #1 Then = If UCase(Text1.Text) Close End Else Write End If #1,AsInteger) Then【14】【15】 = &&Text1.Text End End Sub If第14题 以上【14】填填写答案：操作 第15题 以上【15】填填写答案：操作2009 年 3 月计算机等级考试二级 VB 笔试试题及答案一、选择题（每题 2 分，共计 70 分） (1)下列叙述中正确的是 A)栈是先进先出的线性表 B)队列是&先进后出&的线性表 C)循环队列是非线性结构 D)有序线性表即可以采用顺序存储结构,也可以采用链式存储结构 (2)支持子程序调用的数据结构是 A)栈 B)树 C)队列 D)二叉树(3)某二叉树有 5 个读为 2 的结点,则该二叉树中的叶子结点数是 A)10 B)8 C)6 D)4(4)下列排序方法中,最坏情况下比较次数最少的是 A)冒泡排序 B)简单选择排序 C)直接插入排序 D)堆排序(5)软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下列 属于应用软件的是 A)编译程序 B)操作系统 (6)下面叙述中错误的是 A)软件测试的目的是发现错误并改正错误 C)教务管理系统 D)汇编程序B)对被调试程序进行&错误定位&是程序调试的必要步骤 C)程序调试也成为 Debug D)软件测试应严格执行测试计划，排除测试的随意性 (7)耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 A)提高耦合性降低内聚性有利于提高模块的独立性 B)降低耦合性提高内聚性有利于提高模块的独立性 C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度 D)内聚性是指模块间互相连接的紧密程度 (8)数据库应用系统中的核心问题是 A)数据库设计 B)数据库系统设计 C)数据库维护 D)数据库管理员培训 (9)有两个关系 R,S 如下：由关系 R 通过运算得到关系 S,则所使用的运算为 A)选择 B)投影 C)插入 D)连接(10)将 E-R 图转换为关系模式时,实体和联系都可以表示为 A)属性 B)键 C)关系 D)域(11)执行语句 Dim X,Y As Integer 后, A)X 和 Y 均被定义为整型变量B)X 和 Y 均被定义为变体类型变量 C)X 被定义为整型变量,Y 被定义为变体变量 D)X 被定义为变体类型变量,Y 被定义为整型变量 (12)以下关系表达式中，其值为 True 的是 A)&XYZ&&&XYz& C)&the&=&there& (13)执行以下程序段 a$=&Visual Basic Programming& b$=&C++& C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12) 后,变量 C$的值为 A)Visual BASIC Programming C)Visual C++ Programming (14)下列叙述中正确的是 A)MsgBox 语句的返回值是一个整数 B)执行 MsgBox 语句并出现信息框后,不用关闭信息框即可执行其他操作 C)MsgBox 语句的第一个参数不能省略 D)如果省略 MsgBox 语句的第三个参数(Title),则信息框的标题为空 (15)在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1),程序运行后, 在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可 以实现上述操作的事件过程是 A)Private Sub Text1_Change() B)VISUAL C++ Programming D)VISUAL BASIC Programming B)&VisualBasic&&&&visualbasic& D)&Integer&&&Int&Label1.Caption=str(Len(Text1.Text)) End Sub B)Private Sub Text1_Click() Label1.Caption=str(Len(Text1.Text)) End Sub C)Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub D)Private Sub Label1_Change() Label1.Caption=str(Len(Text1.Text)) End Sub (16)在窗体上画两个单选按钮(名称分别为 Option1,Option2,标题分别为&宋体&和&黑体 &), 1 个复选框(名称为 Check1,标题为粗体)和 1 个文本框(名称为 Text1,Text 属性为&改 变 文字字体&)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被 选中，则以下能够实现上述操作的语句序列是A)Option1.Value=False Check1.Value=True B)Option1.Value=True Check1.Value=0C)Option2.Value=False Check1.Value=2 D)Option1.Value=True Check1.Value=1 (17)在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print ____ Next End Sub程序运行后,单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在横线处应填入的内容为 A)Right(c1,i) B)Left(c1,i) C)Mid(c1,i,1)D)Mid(c1,i,1) (18)假定有一下程序段 For i=1 To 3 For j=5 To Print i*j Next j Next i 则语句 Print i*j 的执行次数是 A)15 B)16 C)17 D)18 1 Step -1(19)在窗体上画两个文本框（名称分别为 Text1 和 Text2）和一个命令按钮（名称为 Command1），然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x&50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1 和 0 B)2 和 72 (20)阅读程序：C)3 和 50 D)4 和 168Private Sub Command1_Click() a=0 For j=1 To 15a=a+j Mod 3 Next j Print a End Sub程序运行后，单击窗体，输出结果是 A)105 B)1 C)120 D)15(21)以下说法中正确的是 A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress 事件过程 B)因为窗体不接受焦点，所以窗体不存在自己的 KeyPress 事件过程 C)若按下的键相同，KeyPress 事件过程中的 KeyAscii 参数与 KeyDown 事件过程中 的 KeyCode 参数的值也相同 D)在 KeyPress 事件过程中，KeyAscii 参数可以省略 (22)语句 Dim a(-3 To 4,3 To 6) As Integer 定义的数组的元素个数是 A)18 B)28 C)21 D)32(23)在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 1Private Sub Command1_Click() Dim a a= Array(1, 2, 3, 4) 1 i = 4 To 1 Step s = s + a(i) * j j = j * 10 -1j = ForNextiPrint s End Sub程序运行后，单击命令按钮，其输出结果是 A)4321 B)1234 C)34 D)12(24)假定通过复制，粘贴操作建立了一个命令按钮数组 Command1，以下说法中错误 的是 A)数组中每个命令按钮的名称(Name 属性)均为 Command1 B)若未做修改,数组中每个命令按钮的大小都一样 C)数组中各个命令按钮使用同一个 Click 事件过程 D)数组中每个命令按钮的 Index 属性值都相同 (25)在窗体上画一个命令按钮，名称为 Command1,然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4) As Integer, A2(4) As IntegerFor k = 0 To 2 A1(k + 1) = InputBox(&请输入一个整数&) A2(3 - k) = A1(k Next k + 1)Print A2(k) End Sub程序运行后,单击命令按钮，在输入对话框中依次输入 2、4、6 则输出结果为 A)0 B)1 C)2 D)3(26)以下关于函数过程的叙述中，正确的是 A)函数过程形参的类型与函数返回值的类型没有关系 B)在函数过程中，过程的返回值可以有多个 C)当数组作为函数过程的参数是，既能以传值方式传递，也能以传址方式传递 D)如果不指明函数过程参数的类型，则该参数没有数据类型 (27)在窗体上画两个标签按钮和一个命令按钮，其名称分别为 Label1、Label2 和 Command1， 然后编写如下程序： Private Sub func(L As Label) L.Caption = &1234& End SubPrivate Sub Form_Load() Label1.Caption = &ABCDE& Label2.Caption = 10EndSubPrivate Sub Command1_Click() a = Val(Label2.Caption) Call func(Label1) Label2.Caption = a End Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 A)ABCD 和 10 B)1234 和 100 C)ABCD 和 100 D)1234 和 10(28)在窗体上画一个命令按钮(名称为 Command1)，并编写如下代码: Function Dim fun1(ByVal a As Integer, b As Integer) As Integer t As Integert = a - b b = t + a fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print fun1(fun1(x, (fun1(x, x End Sub - 1))), x - 1)程序运行后，单击命令按钮，输出结果是A)10B)0C)11D)21(29)以下关于过程及过程参数的描述中，错误的是 A)过程的参数可以是控件名称 B)调用过程时使用的实参的个数应与过程形参的个数相同 C)只有函数过程能够将过程中处理的信息返回到调用程序中 D)窗体可以作为过程的参数 (30)设有如下通用过程 Public Function Dim tStr Fun(xStr As String) As StringtStr As String, strL As Integer = &&strL = Len(xStr) i = strL / 2 Do While i &= strL tStr = tStr & Mid(xStr, i + 1, 1)i = i + 1 Loop Fun = tStr End Function 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。 然后编 写如 下事件过程 Private Sub Command1_Click() & tStrDimS1 As StringS1 = &ABCDEF& Text1.Text = LCase(Fun(S1)) End Sub程序运行后，单击命令按钮，文本框中显示的是 A)ABCDEF B)abcdef C)defdef D)defabc(31)在窗体上画一个命令按钮和一个文本框（名称分别为 Command1 和 Text1）,并把 窗体 的 KeyPreview 属性设置为 True,然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text = && Text1.SetFocus End SubPrivate Sub Command1_Click() Text1.Text = LCase(SaveAll) + SaveAll End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，直接用键盘输入：VB,再单击命令按钮则文本框中显示的内容为A)vbVBB)不显示任何信息C)VBD)出错(32)设有以下程序 Private Sub Form_Click() x = 50For i = 1 To 4 y = InputBox(&请输入一个整数&) y = Val(y) If y Mod 5 = 0 Thena = a + y x Else a = a + x End If Next i = yPrint a End Sub程序运行后，单击窗体，在输入对话框中依次输入 15,24,35,46,输出结果为 A)100 B)50 C)120 D)70(33)以下关于菜单的叙述中，错误的是 A)当窗体为活动窗体时，用 Ctrl+E 键可以打开菜单编辑器 B)把菜单项的 Enabled 属性设置为 False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计 D)程序运行时，利用控件数组可以实现菜单项的增加或减少(34)以下叙述中错误的是 A)在程序运行时,通用对话框控件是不可见的 B)调用同一个通用对话框控件的不同方法(如 ShowOpen 或 ShowSave)可以打开不 同的对话框窗口 C)调用通用对话框控件的 ShowOpen 方法,能够直接打开在该通用对话框中指定的 文件 D)调用通用对话框控件的 ShowColor 方法,可以打开颜色对话框窗口 (35)设在工程文件中有一个标准模块，其中定义了如下记录类型: Type Books Name As String*10 TelNum As String*20 End Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条 Books 类型的记录，下列能够完成该操作的事件过 程是 A)Private Sub Command1_Click()Dim B As Books Open &Person.txt& For B.Name B.Name Output As #1= InputBox(&输入姓名&) = InputBox(&输入电话号码&)Write #1, B.Name, B.TelNum Close #1 End Sub B)Private Sub Command1_Click()Dim B As Books Open &Person.txt& For B.Name B.Name Output As #1= InputBox(&输入姓名&) = InputBox(&输入电话号码&) B.TelNumPrint #1, B.Name, Close #1 End Sub C)PrivateSub Command1_Click()Dim B As Books Open &Person.txt& For B.Name B.Name Output As #1= InputBox(&输入姓名&) = InputBox(&输入电话号码&)Write #1, B Close #1 End Sub D)Private Sub Command1_Click()Dim B As BooksOpen &Person.txt& For B.Name B.NameOutput As #1= InputBox(&输入姓名&) = InputBox(&输入电话号码&)Print #1, Name,TelNum Close #1 End Sub 二、填空题（每空 2 分，共计 30 分） (1)假设用一个长度为 50 的数组(数组元素的下标从 0 到 49)作为栈的存储空间,栈底 指针 bottom 指向栈底元素,栈顶指针 top 指向栈顶元素,如果 bottom=49,top=30(数 租下标),则栈中具有【1】个元素 (2)软件测试可分为白盒测试和黑盒测试。基本路径测试属于【2】测试 (3)符合结构化原则的三种基本控制结构是:选择结构、循环结构和【3】 (4)数据库系统的核心是【4】 (5)在 E-R 图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是【5】框 (6)窗体如图所示,其中汽车是名称为 Image1 的图像框，命令按钮的名称 Command1, 计时器的名称为 Timer1,直线的名称为 Line1。程序运行时，单击命令按钮，则 汽车每 0.1 秒向左移动 100，车头到达左边的直线时停止移动。请填空完成下面 的属性设置和程序，以便实现上述功能。1)Timer1 的 Interval 属性的值应事先设置为【6】 2)Private Sub Command1_Click() Timer1.Enabled = True End Sub 3)Private Sub Timer1_Timer() If Image1.Left & 【7】 Then Image1.Left = 【8】 - 100 End If End Sub 7.上题【7】的答案是 8.上一题【8】的答案是 9. (7)设窗体上有一个名称为 Combo1 的组合框,并有以下程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If 【9】 = 13 Then For k = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(k) ThenCombo1.Text = && Exit For End If Next k If Combo1.Text && && Then Combo1.AddItem 【10】 End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中 有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑 区中的文本添加到列表的尾部。请填空。 10. 上一题【10】的答案是 11. (8)在当前目录下有一个名为&myfile.txt&的文本文件,其中有若干行文本。 下面程序 的 功能是读入此文件中的所有文本行，按行计算每行字符的 ASCII 码之和，并显示在窗 体上。 请填空 Private Sub Command1_Click() Dim ch$, ascii As Integer Open &myfile.txt& For 【11】 As #1While Not EOF(1)Line Input #1, ch ascii = toascii(【12】) Print ascii Wend Close #1 End Sub toascii(mystr$) As IntegerPrivate Function n = 0For k = 1 To 【13】 n = n + Asc(Mid(mystr, k, 1)) Next k toascii = n End Function 12. 上一题【12】的答案是 13. 上一题【13】的答案是 14. (9)本程序实现文本加密。先给定序列:a1,a2,...,an,它们的取值范围是 1~n,而且互 不相同。加密算法是:把原文本中第 k 个字符放到加密后文本的第 ak 个位置处。若原 文本长度大于 n，则只对前面 n 个字符加密,后面的字符不变；若原文本长度小于 n， 则 在后面补字符&*&使文本长度为 n 后再加密。 例如：若给定序列 a1,a2,...a7 分别为 2,5,3,7,6,1,4 当文本为“PROGRAM&时，加密后的文本为&APOMRRG&当文本为&THANK&时，加密后的文本为&*TA*HKN& 下面的过程 code 实现这一算法。 其中参数数组 a()中存放给定序列(个数与数组 a 的元 素 个数相等)a1,a2,a3...的值，要加密的文本放在参数变量 mystr 中，过程执行完毕，加 密后的文本仍然放在变量 mystr 中。请填空。 Option Base 1 Private Sub code(a() As Integer, mystr As String) Dim ch As String, c1 As String n = UBound(a) - Len(mystr) If n & 0 Then mystr End If ch = mystr For k = 【14】 To UBound(a) c1 = Mid(mystr, k, 1) n = 【15】 Mid(ch, Next k mystr = ch End Sub n) = c1 = mystr & String$(n, &*&)15. 上一题【15】的答案是2009 年 9 月全国计算机等级考试二级 VB 笔试试题及答案一、选择题（每小题 2 分，共 70 分） 一、选择题 1．下列数据结构中，属于非线性结构的是（ A. 循环队列 B.带链队列 C.二叉树 D.带链栈 ）。答案 C 解析 树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（ A. 循环队列 B.栈 C.队列 D.二叉树 ）。答案 B 解析:栈是先进后出或后进先出的线性表3. 对于循环队列,下列叙述中正确的是（ A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针）。D.队头指针可以大于队尾指针，也可以小于队尾指针 答案 D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头 指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（ ）。 B.算法所处理的数据量 D.算法在执行过程中所需A.算法在执行过程中所需要的计算机存储空间 C.算法程序中的语句或指令条数 要的临时工作单元数 答案 A解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所 占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（ ）。A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案 B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度 要低,低耦合,这样可以提高模块的独立性. 6. 下列选项中不属于结构化程序设计原则的是（ A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案 A ）。7.软件详细设计产生的图如下该图是().A.N-S 图 B. PAD 图 C. 程序流程图 D.E-R 图 答案 C 8.数据库管理系统是（ ）。A. 操作系统的一部分 B.在操作系统支持下的系统软件 C.一种编译系统 D. 一种操作系统 答案 B 9.在 E-R 图中，用来表示实体联系的图形是（ A.椭圆形 B.矩形 C.菱形 D .三角形 答案 C 10.有三个关系 R,S,T 如下： R A a b c S A B C B 1 2 3 C 2 1 1 ）。d T A a b c d32B 1 2 3 3C 2 1 1 2其中关系 T 由关系 R 和 S 通过某种操作得到，该操作称为（ A.选择 B.投影 C. 交 D. 并 答案 D 解析:T 是由 S 表或 R 表中的元素组成的 （11）以下变量名中合法的是 C）str_n （12）把数学表达式表示为正确的 VB 表达式应该是 D）(x*5+3)/(y*2-6) （13）下面有关标准模块的叙述中，错误的是 A）标准模块不完全由代码组成，还可以有窗体 （14）下面控件中，没有 Caption 属性的是 C）组合框 （15）用来设置文字字体是否斜体的属性是 D）FontItalic）。（16）若看到程序有如下事件过程，则可以肯定的是，当程序运行时Private SubClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print &VB Program& End Sub D）用鼠标左键或右键单击名称为“Click”的控件时，执行此过程 （17）可以产生 30-50（含 30 到 50）之间的随机整数的表达式是 A）Int(Rnd*21+30) （18）在程序运行时，下面的叙述中正确的是 C）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程 （19）窗体有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1.Text = &程序设计& Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text = &等级考试& End Sub 运行以上程序，单击命令按钮后 B）文本框中显示的是“等级考试”，且焦点在文本框中 （20）设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If Option.Value=True Then 下面语句中与该语句不等价的是C）If Value=True Then （21）设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设 置为 1，Min 属性设置为 100，下面叙述中正确的是 A）程序运行时，若使滚动条向左移动，滚动条的 Value 属性值就增加 （22）有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 P numb End Sub 连续 3 次调用 var_dim 过程，第 3 次调用时的输出是 C）6 1 （23）在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为 A）5 4 3 2 1 1（24）在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 4 - m Then a(m, n) = m + n Else a(m, n) = 0 End If Print a(m, n); Next n Print Next m End Sub B）2 0 4 040 406 （25）设有如下函数过程： Function fun(a As Integer, b As Integer) Dim c As IntegerIf a & b Then c = a: a = b: b = c End If c=0 Do c=c+a Loop Until c Mod b = 0 fun = c End Function 若调用函数 fun 时的实际参数都是自然数，则函数返回的是 B）a、b 的最小公倍数 （26）窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器 控件，其 Interval 属性为 5000，Enabled 属性值是 True。Timer1 的事件过程如 下： Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1 flag = -flag If flag = -1 Then Text1.ForeColor = &HFF& '&HFF&为红色 Else Text1.ForeColor = &HC000& '&HC000&为绿色End If End Sub 以下叙述中正确的是 C）程序执行后，文本框的文字每 5 秒改变一次颜色 （27）为计算 1+2+2^2+2^3+2^4+…+2^10 的值，并把结果显示在文本 框 Text1 中，若编写如下事件过程： Private Sub Command1_Click() Dim a%, s%, k% s=1 a=2 For k = 2 To 10 a=a*2 s=s+a Next k Text1.Text = s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是 D）同时进行 B）、C）两种修改 （28）标准模块中有如下程序代码： Public x As Integer, y As Integer Sub var_pub() x = 10: y = 20End Sub 在窗体上有 1 个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x = x + 100 y = y + 100 P y End Sub B）100 120 （29）设 a，b 都是自然数，为求 a 除以 b 的余数，默认编写了以下函数： Function fun(a As Integer, b As Integer) While a & b a=a-b Wend fun = a End Function 在调试时发现函数是错误的，为使函数能产生正确的返回值，应做的修改是 D）把 While a&b 改为 While a&=b （30）下列关于通用对话框 CommonDialog1 的叙述中，错误的是 A）只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中 的文件打开（31） 在利用菜单编辑器设计菜单时， 为了把组合键“Alt+X”设置为“退出(X)” 菜单项的访问键，可以将该菜单项的标题设置为 B）退出(&X) （32）在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) && && Then ss = ss + Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i = Len(ss) To 1 Step -1 m = m + Mid(ss, i, 1) Next Text1.Text = UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框 中显示的是 D）001REMBUN （33）窗体的左右两端各有 1 条直线，名称分别为 Line1、Line2；名称为 Shape1 的圆靠在左边的 Line1 直线上（见图）；另有 1 个名称为 Timer1 的计时 器控件，其属性值为 True。要求程序运行后，圆每秒向右移动 100，当圆遇到 Line2 时则停止移动。为实现上述功能，某人把计时器的 Interval 属性设置为 1000，并编写了如下程序：Private Sub Timer1_Timer() For k = Line1.X1 To Line2.X1 Step 100 If Shape1.Left + Shape1.Width & Line2.X1 Then Shape1.Left = Shape1.Left + 100 End If Next k End Sub 运行程序时发现圆立即移动到右边的直线处，与题目要求的移动方式不符。 为得到与题目要求相符的结果，下面修改方案中正确的是 B）把 For k = Line1.X1 To Line2.X1 Step 100 和 Next k 两行删除 （34）下列有关文件的叙述中，正确的是 C）随机文件中，每个记录的长度是固定的 （35）窗体如图 1 所示。要求程序运行时，在文本框 Text1 中输入一个姓 氏，单击“删除”按钮（名称为 Command1），则可删除列表框 List1 中所有该姓 氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End IfNext k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”， 则只删除了“刘邦”、“刘备”２项，结果如图２所示。这说明程序不能适应所有情 况，需要改正。正确的修改方案是把 For k=0 to List1.ListCount-1 改为 A）For k = List1.ListCount - 1 To 0 Step -1 二、填空题（每空 2 分，共 30 分） （1）某二叉树有 5 个度为 2 的结点以及 3 个度为 1 的结点，则该二叉树中 共有 【1】14 个结点。 （2）程序流程图中的菱形框表示的是【2】 逻辑条件 或 逻辑判断 或 条 件或判断。 （3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中 【3】需求分析 阶段产生“软件需求规格说明书”。 （4） 在数据库技术中， 实体集之间的联系可以是一对一或一对多的， 那么“学 生”和“可选课程”的联系为【4】多对多。 （5）人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以 作为主关键字的是【5】身份证号。 （6）工程中有 Form1 和 Form2 两个窗体。Form1 窗体外观如图 1 所示。 程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值（圆的半径）， 然后单击命令按钮“计算并显示”（其名称为 Command1），则显示 Form2 窗体， 且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输 入数值数据！”。请填空。 Private Sub Command1_Click() If Text1.Text = && Then magbox &请输入半径！&ElseIf Not IsNumeric(【6】Text1.Text) Then MsgBox &请输入数值数据！& Else r = Val(【7】Text1.Text) Form2.Show 【8】Form2.Print &圆的面积是& & 3.14 * r * r End If End Sub （7）设有整型变量 s，取值范围为 0～100，表示学生的成绩，有如下程序 段： If s &= 90 Then Level = &A& ElseIf s &= 75 Then Level = &B& ElseIf s &= 60 Then Level = &C& Else Level = &D& End If 下面用 Select Case 结构改写上述程序， 使两段程序所实现的功能完全相同， 请填空。 Select Case sCase【9】 Is &= 95 Level = &A& Case 75 To 90 Level = &B& Case 60 To 74 Level = &C& Case 【10】Else 或 Is&60 Level = &D& 【11】End Select （8） 窗体上有名称为 Command1 的命令按钮。 事件过程及 2 个函数过程如 下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x=3 y=5 z = fy(y) Print fx(fx(x)), y End Sub Function fx(ByVal a As Integer) a=a+a fx = a End FunctionFunction fy(ByRef a As Integer) a=a+a fy = a End Function 运行程序， 并单击命令按钮， 则窗体上显示的 2 个值依次是 【12】 和 12 【13】 10。 （9）窗体上有名称为 Command1 的命令按钮及名称为 Text1、能显示多行 文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件 c:\test.txt， 并将文件中的内容（多行文本）显示在文本框中。下面是实现此能的程序，请填 空。 Private Sub Command1_Click() Text1 = && Number = FreeFile Open &c:\test.txt& For Input As Number Do While Not EOF(【14】Number) Line Input #Number, s Text1.Text = Text1.Text +【15】 s + Chr(13) + Chr(10) Loop Close #Number End Sub 参考答案 一．选择题 11.C 12.D 13.A 14.C 15.D16.D 21.A 26.C 31.B17.A 22.C 27.D 32.D18.C 23.A 28.B 33.B19.B 24.B 29.D 34.C20.C 25.D 30.A 35.A二．填空题 6.text1.text text1.text Form2 7.IS ELSE END SELECT 8.12 10 9.NUMBER S 公共基础试题答案 选择题 1.C 2.B 3.D 4.A 5.B 6.A 7.C 8.B 9.C 10.D 填空题 1.142.逻辑判断 3.需求分析 4.多对多 5.身份证号2010 年 3 月全国计算机等级考试二级 VB 笔试试卷一、选择题（每题 2 分，共 70 分） （1）下列叙述中正确的是( ) A)对长度为 n 的有序链表进行查找，最坏情况下需要比较次数为 n B)对长度为 n 的有序链表进行对分查找，最坏情况下需要比较次数为（n/2） C)对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数（log2n） D)对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n） （2）算法的时间复杂是指( ) A)算法的执行时间 B)算法所处理的数据量 C)算法程序中的语句或指令条数 D)算法在执行过程中所需要的基本运算次数 （3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件） ，下面属于系统 软件的是( ) A)编辑软件 B)操作系统 C)教务管理系统 D）浏览器 （4）软件（程序）调试的任务是( ) A)诊断和改正程序中的错误 B)进肯能多的发现程序中的错误 C)发现并改正程序中的所有错误 D)确定程序中错误的性质 （5）数据流程图（DFD 图）是( ) A)软件概要设计的工具 B)软件详细设计的工具 C)机构化方法的需求分析工具 D)面向对象方法的需求分析工具 （6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于( ) A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段 （7）数据库管理系统中负责数据模式定义的语言是 A）数据定义语言 B）数据管理语言 C）数据操纵语言 D）数据控制语言 （8）在学生管理的关系数据库中，存取一个学生信息的数据单位是 A）文件 B）数据库 C）字段 D）记录 （9）数据库设计中，用 E-R 图来描述信息结构但不涉及信息在计算机中的表示，它属于数 据库设计的 A）需求分析阶段 B）逻辑设计阶段C）概念设计阶段 （10）有两个关系 R 和 T 如下：D）物理设计阶段则由关系 R 得到关系 T 的操作是 A）选择 B）投影 C）交 D）并 （11）在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这 个按钮是 （12）设 x 是整型变量，与函数Ⅱf(x&0,-x,x)有相同结果的代数式是 A）|x| B）-|x| C）x D）-x （13）设窗体文件中有下面的事件过程： Private Sub Command1_Click（） Dim s a%=100 Print a End Sub 其中变量 a 和 s 的数据类型分别是 A）整型，整型 B）变体型，变体型 C）整型，变体型 D）变体型，整型 （14）下面哪个属性肯定不是框架控件的属性 A）Text B）CaptionC）Left D）Enabled （15）下面不能在信息框中输出“VB”的是 A）MsgBox &VB& B）x=MsgBox（&VB&） C）MsgBox（&VB&） D）Call MsgBox &VB& （16） 窗体上有一个名称为 Option1 的单选按钮数组， 程序运行时， 当单击某个单选按钮时， 会调用下面的事件过程 Private Sub Option1_C1ick（Index As Integer） ? End Sub 下面关于此过程的参数 Index 的叙述中正确的是 A）Index 为 1 表示单选按钮被选中，为 O 表示未选中 B）Index 的值可正可负 C）Index 的值用来区分哪个单选按钮被选中 D）Index 表示数组中单选按钮的数量 （17）设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发 A）Text1 的 SetFocus 事件 B）Text1 的 GotFocus 事件 C）Text1 的 LostFocus 事件 D）窗体的 GotFocus 事件 （18）VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框 中，则每输入一个字母 A）这 3 个事件都会触发 B）只触发 KeyPress 事件 C）只触发 KeyDown、KeyUp 事件 D）不触发其中任何一个事件 （19）下面关于标准模块的叙述中错误的是 A）标准模块中可以声明全局变量 B）标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程 C）标准模块中可以包含一些 Public 过程 D）一个工程中可以含有多个标准模块 （20）设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名 是 A）Form1_MouseDown B）Win_MouseDown C）Form_MouseDown D）MouseDown_Form1 （21）下面正确使用动态数组的是 A）Dim arr() As Integer ? ReDim arr(50)As String ? ReDim arr(3,5) B）Dim arr() As IntegerC）Dim arr() ? ReDim arr(20) ? ReDim arr(50) As Integer D）Dim arr(50) As Integer （22）下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是 A）Print gcd(8,12)，gcd(12,16)，gcd(16,8) B）Print gcd(8,12,16) C）Print gcd(8)，gcd(12)，gcd(16) D）Print gcd(8,gcd(12,16)) （23）有下面的程序段，其功能是按图 1 所示的规律输出数据 Dim a(3,5) As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j); Next Print Next 若要按图 2 所示的规律继续输出数据，则接在上述程序段后面的程序段应该是 For j=1 To 5 A）For i=1 To 5 For j=1 To 3 Print a（j,i）; Next Print a（j,i）; Next Print Print Next Next B）For i=1 To 3 For j=1 To 3 C）For j=1 To 5 For i=1 To 3 Print a（i,j）; Next Print a（j,i）; Next Print Print Next Next D）For i=1 To 5 （24）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序 Private Sub Commandl_Click（） Dim n If Text1.Text&&&23456& Then n=n＋1 Print &口令输入错误& & n & &次& End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示 的是右图所示的效果，程序需要修改。下面修改方案中正确的是 A）在 Dim n 语句的下面添加一句：n=O B）把 Print &口令输入错误& & n & &次&改为 Print &口令输入错误& +n+&次& C）把 Print &口令输入错误& & n & &次&改为 Print &口令输入错误&&Str(n)&&次& D）把 Dim n 改为 Static n （25）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面 能正确实现上述功能的事件过程是 A）Private Sub P1_MouseMove（Button AS Integer,Shift As Integer,X As Single, Y As Single） Print X,Y End Sub B）Private Sub P1_MouseDown（Button AS Integer,Shift As Integer,X As Single, Y As Single） Picture.Print X,Y End Sub C）Private Sub P1_MouseMove（Button AS Integer,Shift As Integer,X As Single, Y As Single） P1.Print X,Y End Sub D） Private Sub Form_MouseMove （Button AS Integer,Shift As Integer,X As Single, Y As Single） P1.Print X,Y End Sub （26）计算二的近似值的一个公式是。 某人编写下面的程序用此公式计算并输出π 的近似值： Private Sub Comand1_Click（） PI＝1 Sign＝1 n=20000 For k=3 To n Sign=-Sign/k PI=PI+Sign/k Next k Print PI*4 End Sub 运行后发现结果为 3.22751，显然，程序需要修改。下面修改方案中正确的是 A）把 For k=3 To n 改为 For k=1 To n B）把 n=20000 改为 n= C） For k=3 To n 改为 For k=3 To n Step 2 把 D）把 PI=1 改为 PI=0 （27）下面程序计算并输出的是 Private Sub Comand1_Click（） a=10 s=0 Do s=s+a*a*a a=a-1Loop Until a&=0 Print s End Sub A）13+23+33+?+103 的值 B）10!+?+3!+2!+1!的值 C） （1+2+3+?+10）3 的值 D）10 个 103 的和 （28）若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer Caption As String End Type Dim arr（5） As rec 则下面的输出语句中正确的是 A）Print arr.Code(2),arr.Caption(2) B）Print arr.Code,arr.Caption C）Print arr(2).Code,arr(2).Caption D）Print Code(2),Caption(2) （29）设窗体上有一个通用对话框控件 CD1，希望在执行下面程序时，打开如图所示 的文件对话框 Private Sub Comand1_Click（） CD1.DialogTitle=&打开文件& CD1.InitDir=&C:\& CD1.Filter=&所有文件|*.*|Word 文档|*.doc|文本文件|*.Txt& CD1.FileName=&& CD1.Action=1 If CD1.FileName=&&Then Print&未打开文件& Else Print&要打开文件&& CD1.FileName End If End Sub 但实际显示的对话框中列出了 C:\下的所有文件和文件夹， “文件类型” 一栏中显示的是 “所有文件” 。下面的修改方案中正确的是 A）把 CD1.Action=1 改为 CD1.Action=2 B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件” C）在语句 CD1.Action=1 的前面添加：CD1.FilterIndex=3 D）把 CD1.FileName=&&改为 CD1.FileName=&文本文件& （30）下面程序运行时，若输入 395，则输出结果是 Private Sub Comand1_Click（） Dim x% x=InputBox(&请输入一个 3 位整数&) Print x Mod 10,x\100,(x Mod 100)\10 End SubA）3 9 5 B）5 3 9 C）5 9 3 D）3 5 9 （31）窗体上有 List1、List2 两个列表框，List1 中有若干列表项（见图） ，并有下面的 程序： Private Sub Comand1_Click（） For k=List1.ListCount-1 To 0 Step -1 If List1.Selected（k） Then List2.AddItem List1.List（k） List1.RemoveItem k End If Next k End Sub 程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则 产生的结果是 A）在 List2 中插入了“外语”“物理”两项 、 B）在 List1 中删除了“外语”“物理”两项 、 C）同时产生 A）和 B）的结果 D）把 List1 中最后 1 个列表项删除并插入到 List2 中 （32）设工程中有 2 个窗体： Form1、Form2，Form1 为启动窗体。Form2 中有菜单。 其结构如表。要求在程序运行时，在 Form1 的文本框 Text1 中输入口令并按回车键（回车键 的 ASCII 码为 13）后，隐藏 Form1，显示 Form2。若口令为“Teacher” ，所有菜单项都可见； 否则看不到“成绩录入”菜单项。为此，某人在 Form1 窗体文件中编写如下程序： Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii=13 Then If Text1.Text=&Teacher& Then Form2.input.visible=True Else Form2.input.visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏了 Form1，显示了 Form2，程序需要修改。下面修 改方案中正确的是 A）把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中 B）把 Form1.Hide、Form2.Show 两行移到 2 个 End If 之间 C）把 If KeyAscii=13 Then 改为 If KeyAscii=&Teaeher& Then D）把 2 个 Form2.input.Visible 中的“Form2”删去 （33）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中 Private Sub Comand1_Click（） Open &out.txt& For Output As #2Print &Text1& Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 A）把 Print &Text1&改为 Print #2,Text1 B）把 Print &Text1&改为 Print Text1 C）把 Print &Text1&改为 Write &Text1& D）把所有#2 改为#1 （34）窗体上有一个名为 Command1 的命令按钮，并有下面的程序： Private Sub Comand1_Click（） Dim arr（5） As Integer For k=1 To 5 arr（k）=k Next k prog arr（） For k=1 To 5 Print arr（k） Next k End Sub Sub prog（a（） As Integer） n=Ubound（a） For i=n To 2 step -1 For j=1 To n-1 if a（j）&a（j+1） Then t=a（j）:a（j）=a（j+1）:a（j+1）=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是 A）12345 B）54321 C）01234 D）43210 （35）下面程序运行时，若输入“Visual Basic Programming” ，则在窗体上输出的是 Private Sub Comand1_Click（） Dim count（25） As Integer, ch As String ch=Ucase（InputBox（&请输入字母字符串&） ） For k=1 To Len（ch） n=Asc（Mid（ch,k,1） ）-Asc（&A&） If n&=0 Then Count（n）=Count（n）+ 1 End If Next km=count（0） For k=1 To 25 If m&count（k） Then m=count（k） End If Next k Print m End Sub A）0 B）1 C）2 D）3 二、填空题 （1）一个队列的初始状态为空。现将元素 A,B,C,D,E,F,5,4,3,2,1 依次入队，然后再依次 退队，则元素退队的顺序为 【1】 。 （2）设某循环队列的容量为 50，如果头指针 front=45（指向队头元素的前一位置） ，尾 指针 rear=10（指向队尾元素） ，则该循环队列中共有 【2】 个元素。 （3）设二叉树如下：对该二叉树进行后序遍历的结果为 【3】 。 （4）软件是 【4】 、数据和文档的集合。 （5）有一个学生选课的关系，其中学生的关系模式为：学生（学号，姓名，班级，年 龄） ，课程的关系模式为：课程（课号，课程名，学时） ，其中两个关系模式的键分别是学号 和课号，则关系模式选课可定义为：选课（学号， 【5】 ，成绩） 。 （6）为了使复选框禁用（即呈现灰色） ，应把它的 value 属性设置为 【6】 。 （7）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Labl1、Timer1 和 Command1， 如图 1 所示。 程序运行后， 如果单击命令按钮， 则标签开始闪烁， 每秒钟 “欢 迎”二字显示、消失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load（） Label1.Caption=&欢迎& Timer1.Enabled=False Timer1.Interval= 【7】End Sub Private Sub Timer1_Timer（） Label1.Visible= 【8】 End Sub Private Sub command1_Click（） 【9】 End Sub （8）有如下程序： Private Sub Form_Click（） n=10 i=0 Do i=i+n n=n-2 Loop While n&2 Print i End Sub 程序运行后，单击窗体，输出结果为 【10】 。 （9）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序： Option Base 1 Private Sub Command1_Click（） Dim a（10） As Integer For i=1 To 10 a（i）=i Next Call swap （ 【11】 ） For i=1 To 10 Print a（i）; Next End Sub Sub swap（b（） As Integer） n=Ubound（b） For i=1 To n / 2 t=b（i） b（i）=b（n） b（n）=t 【12】 Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10) 的值互换，a(2)与 a(9)的值互换，??。请填空。 （10）在窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click（）Open &d:\test\smtext1.Txt& For Input As #1 Do While Not 【13】 Line Input #1, aspect$ Whole$=whole$+aspect$+Chr$（13）+Chr$（10） Loop Text1.Text=whole$ 【14】 Open &d:\test\smtext2.Txt& For Output As #1 Print #1, 【15】 Close #1 End Sub 运行程序， 单击窗体， 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来， 然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。二级 VB 笔试试卷答案选择题1-5 ADBAC 6-10 BADBA 11 (D) 12(B) 13(C) 14(A) 15(D) 16 (C) 17(B) 18(A) 19(B) 20(A) 21 (A) 22(D) 23(A) 24(D) 25(C) 26 (C) 27(A) 28(C) 29(C) 30(B) 31 (C) 32(B) 33(A) 34(B) 35(D)填空题（1）A,B,C,D,E,F,5,4,3,2,1 （2）15 （3）EDBGHFCA （4）程序 （5）课号 (6)【6】2 (7) [7] 500 (8) [8] Not label1.visible (9) [9] Timer1.Enabled=Ture (10) [10] 28 (11) [11] a()或 a (12) [12] n=n-1 (13) [13] EOF(1) (14) [14] Close#1
更多搜索：
All rights reserved Powered by
文档资料库内容来自网络，如有侵犯请联系客服。