二级Visual+Basic语言程序设计模拟197

模拟 二级 Visual Basic 语言程序设计模拟 197单项选择题第 1 题：设有如下事件过程：Private Sub Form_Click()Sum=0For k=1 To 3If k v =1 Thenx=1ElseIf k v=2 Thenx=2ElseIf k v=3 Thenx=3Elsex=4End IfSum=Sum+xNext kPrint SumEnd Sub 程序运行后，单击窗体，输出结果是 。A. 9B. 6C. 3D. 10参考答案： B程序执行过程如下： k=1 ，kv =1 成立，执行 x=1，sum=sum+x=1k=2，kv =2 成 立，执行 x=2，sum=sum+x=1+2=3k=3，kv =3 成立，执行 x=3，sum=sum+x=3+3=，6 循环结束。因此最后输出Sum的值为6。知识点选项个数4 试题编号 分数 题目类型 难度 第 2 题： 下列关于函数过程的叙述中，正确的是 () 。A. 如果不指明函数过程参数的类型，则该参数没有数据类型B. 函数过程的返回值可以有多个C. 函数过程形参的类型与函数返回值的类型没有关系D. 当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递参考答案： C本题考查过程定义。在 VB中出现的变量，如果没有声明类型，那么为变体型。VB 中可以通过调用函数过程得到返回值，一个函数过程只能有一个返回值，如 果需要改变主调过程的参数，可以进行传址方式调用函数。 VB 数组参数中不存 在传址调用，函数的参数和返回值类型之间没有任何关系。第 3 题： 下列叙述中，不属于软件需求规格说明书的作用的是 () 。A. 便于用户，开发人员进行理解和交流B. 反映出用户问题的结构，可以作为软件开发工作的基础和依据C. 作为确认测试和验收的依据D. 便于开发人员进行需求分析参考答案： D软件需求规格说明书有以下几个方面的作用： 便于用户、 开发人员进行理解和 交流；反映出用户问题的结构，可以作为软件开发工作的基础和依据； 作为 确认测试和验收的依据。第 4 题：设窗体上有2个直线控件Linel和Line2，若使两条直线相连接，需满足的条件是（ ）。A. Line1.X1 = Line2.X2B. Line1.X1 = Line2.Y1C. Line1.X2 = Line2.X1D. Line1.X2 = Line2.X1 参考答案： A且 Line1.Y1 = Line2.Y2 且 Line1.Y1 = Line2.X1 且 Line1.Y1 = Line2.Y2 且 Line1.Y2 = Line2.Y2直线控件的XI、Y1和X2、丫2属性分别表示直线两个端点的坐标，即(X1,Y1)和 (X2,Y2) 。如果要使两条直线相连， 显然这两条直线的某一端点的坐标相同才行。 因此本题需要 Line1.X1 = Line2.X1 且 Line1.Y1 = Line2.Y1 ，或 Line1.X1=Line2.X2 且 Linel.YI = Line2.Y2，或 Line1.X2 = Line2.X1 且 Line1.Y2 = Line2.Y1，或 Line1.X2 = Line2.X2 且 Line1.Y2 = Line2.Y2 。因此 A)选项正 确。第 5 题： 软件调试的目的是 _A. 发现错误B. 改善软件的性能C. 改正错误D. 验证软件的正确性参考答案： C在对程序进行了成功的测试之后将进入程序调试， 程序调试的任务是诊断和改正 程序中的错误。第 6 题：以下不能用形状控件画出的图形是A. 矩形B. 圆形C. 椭圆D. 扇形参考答案： D形状控件 (Shape) 提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示6种图形：0 矩形、1正方形、2 椭圆、3 圆、4圆 角矩形、 5圆角正方形。第 7 题：下面有关标准模块的叙述中，错误的是 。A. 标准模块不完全由代码组成，还可以有窗体B. 标准模块中的Private过程不能被工程中的其他模块调用C. 标准模块的文件扩展名为.basD. 标准模块中的全局变量可以被工程中的任何模块引用参考答案： A标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不包括窗体。 故选项A误。标准模块中，用Private声明的过程属于私有过程，只能被它所在的模块中的其他过程调用，不能被工程中其他模块调用；用 Public 声明 的全局变量属于公用变量， 可以被工程中的任何模块引用。 标准模块的文件扩展 名是 .bas 。第 8 题： 当窗体最小化时缩小为一个图标，设置这个图标的属性是 () 。A. MouselconB. IconC. PictureD. MousePointer参考答案： BMouselcon 属性用于设置自定义的鼠标图标： Icon 属性用于设置窗体最小化时的 图标；Picture属性用于设置在对象中显示一个图形；MousePointer属性用于设 置指示在运行时当鼠标移动到对象的一个特定部分时， 被显示的鼠标指针的类型。 因此选项 B 正确。第 9 题：编写如下程序：Private Sub Command1_Click()x = 4n = 1Dox = 2 * x - 3n = n + 1Print xLoop Un til x 30Print nEnd Sub在保证程序输出不变的前提下，可以把循环条件Un til x 30改为A.Until x40B.Until x20C.While xV40D.While x20参考答案： B第一次执行循环体得到x=5, n=2;第二次执行循环体得到x=7, n=3;第三次执 行循环体得到x=11, n=4;第四次执行循环体得到x=19, n=5;第五次执行循环 体得到x=35, x=6,满足x 30条件退出循环。若输出结果相同，则当x=35时， 退出循环，选项中只有B选项，即x=35时，满足x 20条件，退出循环。故选 择 B 项。第 10 题：下列叙述中正确的是 。A. 数据库不需要操作系统的支持B .数据库不需要操作系统的支持C. 数据库是存储在计算机存储设备中的、结构化的相关数据的集合D. 数据库系统中，数据的物理结构必须与逻辑结构一致参考答案： C数据库是存储在计算机存储设备中的、 结构化的相关数据的集合。 数据库中的数 据不只是面向某一项特定的应用， 而是面向多种应用， 可以被多个用户、 多个应 用程序共享， 不具有独立的系统。 设计数据库的目的实质上是设计出满足实际应 用需求的实际关系模型。 数据库技术的主要目的是有效地管理和存取大量的数据 资源，包括：提高数据的共享性，使多个用户能够同时访问数据库中的数据;减 小数据的冗余，以提高数据的一致性和完整性;提供数据与应用程序的独立性， 从而减少应用程序的开发和维护代价。本题答案为C。第 11 题： 如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是 () 。A. 它的Y1、Y2属性的值相等B. 它的XI、X2属性的值相等C. 它的XI、Y1属性的值分别与X2、Y2属性的值相等D. 它的XI、X2属性的值分别与Y1、Y2属性的值相等参考答案： BLine控件有四个属性分别为XI、Y1, X2、丫2,分别代表两个端点的横坐标和纵 坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即X1=X2。第 12 题：在窗体上有两个文本框： Text1 和 Text2 ，然后编写如下事件过程：Private Sub Form_Load()ShowText1 Text= “： Text2 Text= “： Text2 SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)Text1 Text=Text1 Text+Chr(KeyCode-4)End Sub程序运行后，如果在 Text2 文本框中输入” ertyu ”，则 Text1 文本框中的内容 为 () 。A. anpuqB. ANPUQC. ERTYUD. ertyu参考答案： B考查键盘事件参数。在Text2中按下键盘上的某个按键时，KeyDowr事件将发生， 其中KeyDown中的KeyCode参数是所按键的ASCH码值，其数据类型为整型，可 以对其进行算术运算。Chr(KeyCode-4)表示：KeyCode码对应字符前面的第4个 字符。注意：KeyCode返回的总是大写字符。第 13 题：VB中有3个键盘书件：KeyPress、KeyDown KeyUp若光标在Textl文本框 中，则每输入一个字母 ()。A. 这 3 个事件都会触发B. 只触发KeyPress事件C. 只触发KeyDown KeyUp事件D. 不触发其中任何一个事件参考答案： A当用户按下某键时触发 KeyDDown和KeyPress事件，放开某键时触发 KeyUp事 件。故每输入一个字符，这3个事件都会触发。故A选项正确。第 14 题： 在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是( )。Private Sub Form_Load()For i=1 To 10sum=sum+iNext iPrint ” Sum=”； sumEnd SubA. 在窗体上输出 55B. 在窗体上输出 sum=55C. 出错D. 窗体上不输出参考答案： D本题考查Load事件运行。当装入窗体事件触发时，通常用于对属性和变量初始 化，一般不使用Print方法，若想Print方法在Form_Load事件过程中起作用， 必须设置窗体的AutoRedraw为True，否则Print方法不起作用。第 15 题：下列不属于结构化分析的常用工具的是A. 数据流图B. 流程图C. 数据字典D. 判定树和判定表参考答案： B第 16 题：下列叙述中正确的是 A. 一个算法的空间复杂度大，则其时间复杂度也必定大 B .一个算法的空间复杂度大，则其时间复杂度必定小C. 一个算法的时间复杂度大，则其空间复杂度必定小D. 算法的时间复杂度与空间复杂度没有直接关系 参考答案： D算法的空间复杂度是指算法在执行过程中所需要的内存空间， 算法的时间复杂度， 是指执行算法所需要的计算工作量，两者之间并没有直接关系，答案为D。第 17 题：在窗体上画一个名称为Combol的组合框，名称为Textl的文本框，以及名称为 Comma nd的命令按钮，如图所示。运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本 框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的 事件过程如下：Private Sub Command1_Click()If Text1.Se1Length 0 ThenElseCombo1.AddItem Text1End IfEnd Sub程序中横线处应该填写的是（ ）。A. Combo1.AddItem Text1.TextB. Combo1.AddItem Text1.SelStartC. Combo1.AddItem Text1.SelTextD. Combo1.AddItem Text1. SelLength参考答案： C根据题意可知，横线处应该是将文本框中的选中文本添加到组合框中。文本框Text属性返回整个文本框中的文本，因此A）选项错误；SelStart属性返回选中文本的起始位置，因此 B）选项错误；SelLength属性返回选中文本的长度， 因此D）选项错误；SelText属性返回选中的文本，因此 C）选项正确。第 18 题：设窗体名称为frml。以下叙述中正确的是（）。A. 运行程序时，能够加载窗体的事件过程是 frm1_LoadB. 运行程序时，能够加载窗体的事件过程是 Form1_LoadC. 程序运行中用语句：frml . Name“New可以更改窗体名称D. 程序运行中朋语句：frm1 . caption = “新标题”可以改变窗体的标题 参考答案： D一个控件的事件过程由控件的实际名字（Name属性）、下划线和事件名称组成， 而窗体事件过程由“Form”、下划线和事件名组成。因此，不管窗体名称是什么， 窗体加载事件过程总是Form_Load。窗体的名称即Name属性在程序运行时不可 以更改，窗体的标题即 Caption 属性则可以在程序运行时更改。第 19 题：单击命令按钮执行以下程序，输出结果为 （） 。Private Sub Command1_Click（）Dim x As Integer,y As Integerx=12： y=32Call Proc（x ， y）Print x ； yEnd SubPublic Sub Proc（n As Integer,ByVal m As Integer）n=n Mod 10： m=m Mod 10End SubA. 12 32B. 2 32C. 2 3D. 12 3参考答案： B考查过程调用中的参数传递。 参数传递时默认为地址传递， 如果实参为常量或者 形参加上 ByVal 关键字说明， 则为传值传递。 中第一个参数为地址传值传递， 第 二个参数为传递，因此调用以后 x值为2,而y不变。第 20 题：设窗体上有一个文本框 Text1 和一个命令按钮 Command，1 并有以下事件过程：Private Sub Command 1Click()Dim S As String ， ch As StringS= “”For k=1 To Len(Text1)ch=Mid(Text1 ，k，1)S=ch+sNext kText1 Text=sEnd Sub程序执行时，在文本框中输入“ Basic ”，然后单击命令按钮，则 Text1 中显示的是 ( ) 。A. BasicB. cisaBC. BASICD. CISAB参考答案： BLen函数返回字符串的长度，Mid函数为字符串中部截取函数格式为：Mid(字符串，起始位置，长度 ) 。程序中， For 循环的终值是 Text1 中输入的字符串的长 度，即“Basic ”的长度为5。循环体中Mid函数从笫一个字符开始依次取出一个 字符，然后与上次取出的字符连接， 本次取出的字符在前， 上次取出的字符在后。 最终变量 s 中应该是“ cisaB ”第 21 题： 要使窗体从屏幕上消失但仍在内存中，应使用的方法或语句为 。A. ShowB. HideC. LoadD. Unload参考答案： B第 22 题：有如下程序：Private Sub Form_Click()Dim s As Integer ， p As Integerp= 1For i = 1 To 4For j = 1 To is = s + jNext jp= p * sNext iPrint pEnd Sub 程序运行后，单击窗体，则输出结果是 。A. 90B. 180C. 400D. 800参考答案： D程序是一个双层 For 循环，外层循环变量的值决定内层 For 循环的次数。当i = 1时，内层循环1次，s= 1, p= 1当i = 2时，内层循环2次，s=1+1+2= 4，p= 1*4 = 4当 i = 3 时，内层循环 3 次，s = 4+1+2+4 10，p = 4*10 = 40当 i = 3 时，内层循环 4 次，s = 10+1+2+3+4 20, p = 40*20= 800第 23 题：有如下的程序段：Dim t(10)For k=2 To 10t(k)=10-kNext kx=6Print t(2+t(x)程序运行后，输出结果为 。A. 2B. 3C. 4D. 5参考答案： C第 24 题： 在数据库设计中，将 ER 图转换成关系数据模型的过程属于 。A. 需求分析阶段B. 概念设计阶段C. 逻辑设计阶段D. 物理设计阶段参考答案： CER 图转换成关系模型数据则是把图形分析出来的联系反映到数据库中，即设 计出表，所以属于辑设计阶段。第 25 题： 下列有语法错误的赋值语句是 。A. y=7=9B. s=m+nC. Text1.Text=10D. m+n=12参考答案： D赋值语句的格式是：变量名 =表达式。赋值号左边必须是变量名，不能是表达式 或常量。D选项中赋值号左边m+n是表达式，不是变量名，故 D选项错误。 第 26 题：以下为用户自定义函数：Function Func（a As Integer, b As Integer） As IntegerStatic m As Integer, i As Integer m=0:i=2i=i+m+im=i+a+bFunc=mEnd Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ）Dim k As Integer, m As Integer,p As Integer k=4:m=1 p=Func（k,m）Print pEnd Sub 程序运行后，单击命令按钮，输出结果为（ ）。A. 8B. 9C. 10D. 11 参考答案： B变量i的计算过程为i=2+0+2=4,变量m的计算过程为m=4+4+1=9,m的值通过子 函数名 Func 返回。第 27 题： 设有如下程序：Option Base 1Dim a（3 ， 4）As Integer ， b（4， 3）As IntegerPrivate Sub Command1 Click（） 循环 1For i=1 To 3For j=1 To 4b（j ， i）=a（i ， J）Next jNext I 循环 2X=b（1 ， 1）For i=1 T0 4For j=1 T0 3Print b（i ， j） ；If x b（i ，j）Then X=b（i ，j）Next jPrintNext iEnd Sub程序中的数组 a 已被赋值。以下关于上述程序的叙述中，正确的是 （ ） 。A. 窗体模块中，不能使用Dim声明a b数组B. “循环 1”可以正常运行C. “循环2”中循环变量i、j的终值不对，所以不能正常运行D. 程序可以正常运行，x中保存的是数组b中所有元素中最小的数 参考答案： BDim 用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行， x中保存的是数组b元索中的最大值。第 28 题： 假定有以下循环结构：Do Until 条件表达式循环体Loop 则以下正确的描述是 （） 。A. 如果“条件表达式”的值是0,则一次循环体也不执行B. 如果“条件表达式”的值不为0,则至少执行一次循环体C. 不论“条件表达式”的值是否为“真”，至少要执行一次循环体D. 如果“条件表达式”的值恒为0,则无限次执行循环体 参考答案： D本题的Do Un tilLoop循环结构是先判断，再执行的结构。Do Un til循环语句执行的过程是，先判断条件表达式的值，如果条件表达式的值为0或 False 时,即条件不成立时，则执行循环体，否则当条件表达式的值为 非0或True时，即 成立，则退出DO-Loop循环。本题中，选项 A条件表达式的值是0,说明条件 不成立，执行循环体。故A错误。选项B条件表达式的值不为0,说明条件成立， 退出循环。故B错误。选项C中Do Un til - Loop语句中条件表达式的值为“假” 时，才至少执行一次循环体，故 C错误。选项D中条件表达式的值恒为0,说明 表达式总是不成立，所以可以无限执行循环体，故D选项正确。第 29 题： 下列关于栈的叙述中正确的是 。A. 在栈中只能插入数据，不能删除数据B. 在栈中只能删除数据，不能插入数据C. 栈是先进后出（FILO）的线性表D. 栈是先进先出（FIFO）的线性表参考答案： C栈是限定在一端进行插入与删除的线性表。 栈是按照 先进后出 的或后进先出的 原则组织数据的，因此，栈也被称为“先进后出”表或“后进先出”表。本题答 案是 C。 知识点 选项个数 4 试题编号 分数 题目类型 难度 第 30 题： 软件设计中划分模块的一个准则是（ ）。A. 低内聚低耦合B. 高内聚低耦合C. 低内聚高耦合D. 高内聚高耦合 参考答案： B一般较优秀的软件设计应尽量做到高内聚、 低耦合，即减弱模块之间的耦合性和 提高模块内的内聚性，有利于提高模块的独立性，因此本题答案为B）。第 31 题： 下列有关控件的叙述中，正确的是 A. 命令按钮不响应 DblClick 事件B. 标签的主要作用是显示文本信息，它不响应 Click 事件C. 标签中的文本信息通过 Text 属性显示D. 在设计阶段，图片框中建立的控件可以拖拽到图片框之外 参考答案： A使用命令按钮时， 一般都是单击按钮， 命令按钮不支持双击事件， 如果双击命令 按钮，则将作为两次单击事件分别处理，故 A项正确。B项标签的主要作用是显 示一小段文本，可以响应单击或双击事件，故 B 错误。标签中的文本信息用 Caption属性表示，故C错误。正在设计阶段通过属性窗口装入图形文件，但不 可将图片框中建立的控件拖拽到图片框以外，故D错误。第 32 题： 要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是 （） 。 先画一个框架，再在框架中画两个单选按钮 先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 先画两个单选按钮，再画框架将单选按钮框起来A. B. 、C. D. 、参考答案： A的操作方法可使两个单选按钮属于同一个框架，其他方法不行。故A选项正确。第 33 题： 下列操作说明中，错误的是 。A. 在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件B. 可以通过MousePointer属性设置鼠标光标的形状C. 不可以在属性窗口设置MousePointer属性D. 可以在程序代码中设置MousePointer属性参考答案： C可以在属性窗口中给 MousePointer 属性设置属性值。故 C 选项错误。 第 34 题：有三个关系表R、S和T如下，其中三个关系对应的关键字分别为 A, B和复合 关键字（ A， B）。表 T 的记录项（ b,q,4 ）违反了 A. 实体完整性约束B .参照完整性约束C. 用户定义的完整性约束D. 关系完整性约束参考答案： B关系模型中可以有 3 类完整性约束： 实体完整性约束、 参照完整性约束和用户定 义的完整性约束。实体完整性约束是指，若属性M是关系的主键，则属性M中的 属性值不能为空值。T中主键不为空，A选项错误。参照完整性约束是指，若属 性（或属性组）A是关系M的外键，它与关系M的主码相对应，则对于关系 M中 的每个元组在A上的值必须为：要么取空值；要么等于关系M中某个元组的主码 值。属性B为关系S的外键，它与关系S的主键相对应，则T中元组在B上应该 为空或者与S中主键值相等，题目中不相等，违反参照完整性约束，B选项正确。 此题关系中无语义要求，C选项错误。第 35 题：为了声明一个长度为128个宇符的定长字符串变量StrD，以下语句中正确的是（ ） 。A. Dim StrD As StringB. Dim StrD As String（128）C. Dim StrD As String128D. Dim StrD As String*128参考答案： D有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的， 字符串长度可以改变，比如： Dim str As String 。如果声明一个定长字符串变 量，形如Dim str As String* 字符个数。故D选项正确。第 36 题：窗体上有一个名称为 Timer1 的计时器控件，一个名称为 shape1 的形状控件，其Shape属性值为3(Cir cle)。编写程序如F：Privale Sub Form _LJmd()shape1Top=0Tirnerl Interval=100End SubPrivate SubTimer1 Timer()Static X As Integershape1Top=shape1Top+100X=X+lIf X M0d 10 ： 0 Thenshape1Top=0End IfEnd Sub。以下关于上述程序的叙述中，错误的是 () 。A. 每执行一次Timer1 Timer事件过程，X的值都在原有基础上增加1B. shape1 每移动 10 次叫到起点，重新开始C. 窗体上的 shape1 由下而上移动D. shape1 每次移动 100参考答案： C题目中变量X定义为Stalic ,即每次进入Timer事件过程时，x都会保留上次的 值，从而实现每执行一次Timer1 _Titmer事件过程X的值都在原有的基础上增 加。程序中判断调用 Timer 事件过程 10 次后，重置 shape1 的 top 值为 0，即回 到起点。控件shape1的Top属性是距离窗体项的位置，数值越大距离越远，因 此 shape1 会由上向下多动。第 37 题：下面程序计算并输出的是 ()。Private Sub Command1 _Click()a=10S=0DoS=S+a*a*aa=a-1Loop Until a =0Print SEnd SubA. 13v/sup+2vsup3v/sup+33v/sup+103 的值B. 10 !+ +3! +2! +l!的值C. (1+2+3+ +10)3 的值D. 10 个 103的和参考答案： A第 38 题：下列关于通用对话框CD1的叙述中，错误的是()。A. 使用CD1 ShowColor方法，可显示“颜色”对话框B. 显示“字体”对话框前，必须先设置CD1的flags属性，否则会出错C. 只要在“打开”对话框中选择了文件，并单击“打开”按钮，即可将选中 的文件打开D. CancelError 属性用于控制用户单击“取消”按钮关闭对话框时，是否显 示出错警告参考答案： C通用对话框(CommonDialog)提供诸如打开文件(ShowOpen)保存文件(ShowSave)、 设置打印选项(ShowPrinter)、选择颜色和字体(ShowFont)、显示帮助(ShowHelp) 等操作的一组标准对话框，该控件运行时不可见。当通用对话框显示为“打开” 类型时，单击“打开”按钮后其 FileName 属性可返回或设置所选文件的路径和 文件名，但并不能直接打开该文件。 使用显示字体 (Font) 对话框之前， 必须先设 置控件的 flags 属性为 CD1CFBoth CD1CFPrinterFonts、CD1CFScreenFonts这 3 个值中的一个。 CancelError 属性用于设置当用户选择“取消”按钮时，是否 显示错误信息 (默认为否)。第 39 题： 当文本框中的内容发生改变时所触发的事件是 。A. KeyUpB. ChangeC. LostFocusD. GotFocus参考答案： B文本框中内容有变化时，触发Change事件。故B选项正确。当在文本框中输入数据，松开键盘时触发它的 KeyUp事件；文本框失去焦点触发LostFocus 事件；获得焦点，触发GotFocus事件。第 40 题： 在窗体上画一个名称为 Text1 的文本框，并编写如下程序：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer ， Finish As IntegerDim Sum As Integerarr = Array(12 ， 4， 8， 16)Start = LBou nd(arr)Fin ish = UBo un d(arr)Sumr 0For i = Start To Fi nishSumr Surn arr(i)Next ic = Sum / Fi nishTextl.Text = cEnd Sub运行程序，单击窗体，则在文本框中显示的是A.40B. 10C. 12D. 16参考答案： B程序中将变量arr初始化为有4个元素的数组，使用Lbound和Ubound函数分别 获取数组下标的上下限， 然后将数组中的元素值相加， 用整除运算求它们的平均 值。算式可写为(12 + 4+ 8+ 16)/4 = (40)/4 = 10。所以答案为B。基本操作题第 41 题：(1) 请根据以下各小题的要求设计 Visual Basic 应用程序 (包括界面和代码 )。 在名称为Form1的窗体上建立一个名称为Comma nd的命令按钮数组，含三个命 令按钮，它们的 Index 属性分别为 0、1、2，标题依次为”是”、”否”、”取 消”，每个按钮的高、宽均为 300、800。窗体的标题为”按钮窗口”。运行后的 窗体如图 4(如错误!未找到引用源 )所示。 注意：存盘时必须存放在考生文件夹 下 ， 工 程 文 件 名 为 sjt1 vbp， 窗 体 文 件 名 为 sjt1 frm 。(2) 在名称为 Form1 的窗体上画 一个名称为 Sha1 的形状控件， 然后建立一个菜单， 标题为” 形状”， 名称为shoe0,该菜单有两个子菜单，其标题分别为”正方形”和” 圆形”，其名称分别为shape1和shoe2，如图5所示，然后编写适当的程序。程序运行后，如果选择”正方形”菜单项，则形状控件显 示为正方形；如果选择”圆形”菜单项，则窗体上的形状控件显示为 圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语 句。保存时必须存放在考生文件夹下，工程文件名为sjt2 . vbp,窗体文件名为 sjt2 frm。参考答案：简单应用题第 42 题：(1) 考生文件夹下的工程文件 sjt3 vbp 中有 2 个初始标题分别为 “移动”和“退 出”的命令按钮；1个初始状态为不可用的时钟 Trimer1 。请添加 1 个标签 Label1 ， 其标题为“计算机考试”，字体为黑体小四号字，左边界为 500，且能根据显示 的内容自动调整大小，如图所示。程序功能如下：单击标题为“移动”的按钮时， 该按钮标题自动变换为“暂停”，且标签在窗体中开始向右移动。当 标签右侧到达窗体右界时， 标签移动的方向改变为从右向左移动； 当 标签左侧触及窗体左界时， 标签移动的方向改变为从左向右移动， 如 此反复。单击标题为“暂停”的按钮时，该按钮的标题自动变换为“移动” ，并暂停标签内容的移动。单击“退出”按钮，则结束程序的运行。 命令按钮的 Click 事件过程已经给出，但 事件过程不完整，请将其中注释符去掉，把 ?改为正确的内容，以实 现上述程序的功能。 注意：不得修改窗体文件中已经存在的控件和程 序，最后将修改后的文件按原文件名进行存盘。 (2) 考生文件夹下的 工程文件 sjt4 vbp 中有 1 个标题为“编号”的标签 Iabell ， 1 个用 于接收选手编号的初始文本为空的文本框 Text1 ；1个含有 10 个元素 的文本框控件数组 Text2 用于接收 10 个评委对某选手的打分；另有 1 个含有 10 个元素的标签控件数组 Label2 用于显示评委名称：“评 委1”、“评委2”，还有1个标题为“统计得分”的命令按钮。 请再添加 1 个图片框 Pieturel ， 2 个根据显示的内容自动调整大小、标题分别为“选手编号”和“得分”的标签 Label3 和 Iabel4 ，如图 所示。程序功能如下： 在 Text1 文本框中输入选手编号，并在 Text2 文本框控件数组中输入 10 个评委对该选手的打分情况后，单 击“统计得分”按钮，则对 10 个评委的打分去掉一个最高分和一个 最低分之后求平均分， 该平均分即为选手的最后得分。 最后将选手编 号和得分显示在图片框 Picture1 中，并将 Text1 、Text2 的内容置为 空。命令按钮的 Click 事件过程已经给出，但是事件过程并不完整， 请将其中的注释符去掉， 把?改为正确的内容， 以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序， 最后程序按 原文件名进行存盘。参考答案：综合应用题综合应用题第 43 题：在考生文件夹下有一个工程文件sjt5 . vbp,其功能是：单击“读数据”命 令按钮，则将考生文件央下 in5 dat 义件中的 100 个正整数读入数组 a 中，同 时显示在文本框Textl中。单击“素数”按钮，则将数组 a中所有素数（只能 被1和自身整除的数称为素数）存人数组b中，并将数组b中的元素显示在文本 框 Text2 中。在给出的窗体文件中已经有了全部控件 （如图所示） ，但程序不完整。要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运 行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程 序，否则将没有成绩。最后，程序按原文件名进行存盘。 参考答案：步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗几，在代码编辑窗亡 1 指定位置编写以下代码。 For k=1 To 100 flag=True i=2 Do While iv =lnt(a(k) /2)And flag 循环判断 a(k)是否为素数 If Int(a(k) /i)=a(k) / i Then flag=False 若为素教，则使 flag 为 False Else i=i+1 若不为素数， 则 i 力卩 1End If Loop If flag=True Then num=num+1 满足条件则 num累加 b(num)=a(k)。将满足条件的数存入b数组End If Next k步骤3:调试并运行程序，关闭程序后按题目要求存盘。单击“读数据”按钮，将考牛文件夹下 in5dat 文件中的 1 00个正整数读入 数组 a 中，同时显示在 Text1 文本框中；运用 Space() 函数使数值之间空两个格， 并判断是否为素数，如果是素数则flag标记为True，并将这个数存入数组b， 通过变量num累加数组b的素数个数。最后通过循环语句将数组h中的元素显示 在文本框 Text2 中。