国家二级（VB）机试模拟试卷4（共383题）

国家二级（VB）机试模拟试卷4（共9套）（共383题）国家二级（VB）机试模拟试卷第1套一、选择题(本题共40题，每题1.0分，共40分。)1、下列程序段的执行结果为()。x=Int(Rnd+4)SelectCasexCase5：Print"AClass"Case4：Print"BClass"Case3：Print"CClass"CaseElse：Print"DClass"EndSelectA、AClassB、BClassC、CClassD、DClass标准答案：B知识点解析：本题考查多分支选择语句Select。Rnd函数产生(0，1)之间的随机数，“Int(参数)”函数的作用是产生不大于参数的整数，可以计算出x的值为4。因此将执行Select语句中Case4后面的分支语句，输出BClass。2、一棵二叉树的前序遍历结果是ABCEDF，中序遍历结果是CBAEDF，则其后序遍历的结果是()。A、DBACEFB、CBEFDAC、FDAEBCD、DFABEC标准答案：B知识点解析：由于该二叉树的前序遍历结果是ABCEDF，显然A结点为根结点，所以后序遍历时A结点是最后遍历的，其后序遍历的结果为CBEFDA。3、下列哪一条不属于数据库设计的任务?()A、设计数据库应用结构B、设计数据库概论结构C、设计数据库逻辑结构D、设计数据库物理结构标准答案：A知识点解析：数据库设计工作量大而且过程复杂，既是一项数据库工程也是一项庞大的软件工程。考虑数据库及其应用系统开发全过程，将数据库设计分为以下6个阶段：需求分析、概念结构设计、逻辑结构设计、物理结构设计、数据库实施和数据库的运行和维护。4、有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为()。A、选择B、投影C、插入D、连接标准答案：B知识点解析：投影运算是指对于关系内的域指定可引入新的运算。本题中S是在原有关系R的内部进行的，是由R中原有的那些域的列所组成的关系。所以选择B。5、用来设置文字字体是否斜体的属性是()。A、FontUnderlineB、FontBoldC、FontSlopeD、Fonthalic标准答案：D知识点解析：FontUnderline属性设置文字是否有下划线；FontBold属性是设置文字是否加粗；Fontltalic属性是设置文字是否斜体；没有Fontslope属性。故选D。6、设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text＝"VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.Text<>"BASIC"ThenText1.Text＝""Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产生的结果是()。A、文本框中无内容，焦点在文本框中B、文本框中为"Basic"，焦点在文本框中C、文本框中为"Basic"，焦点在按钮上D、文本框中为"VisualBasic"，焦点在按钮上标准答案：A知识点解析：题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为"BASIC"，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示"VisualBasic"，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了"Basic"，与"BASIC"不符，因此文本框置空，焦点回到文本框中。7、求1！＋2！＋……＋10！的程序如下：PrivateFunctions(xAsInteger)f＝1Fori＝1Toxf＝f*iNexts＝fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori＝1To10NextPrintyEndSub为实现功能要求，程序的横线处应该填入的内容是()。A、Calls(i)B、CallsC、y＝y＋s(i)D、y＝y＋s标准答案：C知识点解析：题目中过程s的功能是实现一个数的阶乘，而题目是求1到10的阶乘的和，则程序空缺处应该是过程s返回值的累加，因此就应该为y＝y＋s(i)。8、把数学表达式表示为正确的VB表达式应该是()。A、(5x+3)／(2y一6)B、x*5+3／2*y一6C、(5*x+3)÷(2*y一6)D、(x*5+3)／(y*2—6)标准答案：D知识点解析：VB数学表达式中的乘用*表示，除用／表示，表示一个整体的可加括号()。故D选项正确。9、下列程序执行后，其输出结果为()。Dima(5)Fori=0To4a(i)=i+1：m=i+1Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(i-1)=a(m-3)a(4)=iPrinta(i)；NextiA、11144B、12341C、12144D、11141标准答案：C知识点解析：本题考查数组元素的赋值。数组a在循环中为数据赋值，循环变量i从0到4，步长为1。如果i等于2，则将a(0)的值赋给a(2)；如果m等于3，则将a(0)的值赋给a(1)。因此数组元素的值为：12144。10、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)DimcAsStringc=UCase(Chr(KeyCode))Text2．Text=Chr(Asc(c)+2)EndSub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是()。A、AB、aC、CD、c标准答案：C知识点解析：KeyDown和Keyup事件的Keycode参数返回的是“键”，即按字母“A”和“a”时得到的Keycode的值是相同的，都是&H4l。因此程序中对输入“a”时得到的Key．Code，经Chr函数转为字符后为“A”，经Ucase函数转换仍为“A”，所以变量c中的字符为“A”。Asc(c)将返回变量c中的第一个字符的AsCII，加2后，再由Chr函数转为字符即为“A”后面的第2个字符，即“c”。所以答案应为选项C。11、VB的数值型数据分为()两种。A、整数和长整数B、整数和浮点数C、单精度浮点数和双精度浮点数D、整数和货币数据类型标准答案：B知识点解析：考查数值型数据。VB中提供的数值类型包括整数、浮点数、货币类型和字节型。一般来讲货币类型为定点浮点数或者整数，而字节型为整数。12、()控件可以使图形根据控件大小而改变大小。A、图片框B、标签C、图像框D、框架标准答案：C知识点解析：本题考查常见控件的基本属性。图片框的AutoSize属性设定图片框是否按装入图形的大小来调整大小；图像框的Stretch属性设定是否调整图形的大小以适用图像框控件。标签一般用来处理文本，而框架主要用来作为其他控件的容器。13、以下关于局部变量的叙述中错误的是()。A、在过程中用Dim语句或Static语句声明的变量是局部变量B、局部变量的作用域是它所在的过程C、在过程中用Static语句声明的变量是静态局部变量D、过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放标准答案：D知识点解析：局部变量是在过程(事件过程或通用过程)内定义的变量，作用域为该变量所在的过程，定义时使用Dim、Static关键字。使用Dim关键字定义的是动态局部变量，过程执行结束后即被释放；使用Static关键字定义的是静态局部变量，过程执行结束后仍然保留。14、假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框”的事件过程是()。A、PrivateSubCommand1_Click()CD1．DialogTitle="通用对话框"CD1．ShowPrinterEndSubB、PrivateSubCommand1Click()CD1．DialogTitle="通用对话框"CD1．ShowFontEndSubC、PrivateSubCommand1Click()CD1．DiaiogTitle="通用对话框"CD1．ShowOpenEndSubD、PrivateSubCommand1Click()CD1．DialogTitle="通用对话框"CD1．ShowColorEndSub标准答案：C知识点解析：本题考查通用对话框的常见属性。通用对话框的标题属性为DialogTitle，如果要打开“打开”对话框可以设置CD1的Action属性为l或者使用ShowOpen方法。15、以下描述中，不是线性表顺序存储结构特征的是()。A、可随机访问B、需要连续的存储空间C、不便于插入和删除D、逻辑相邻的数据物理位置上不相邻标准答案：D知识点解析：线性表的顺序存储是用一片连续的空间来存放数据元素，其特点是逻辑上相邻的元素在物理位置上也相邻。数据元素之间逻辑上的先后关系自动隐含在物理位置的相邻元素之中，因此不需要另外开辟空间来保存元素之间的关系。16、下面程序执行时，输出的结果是()。PrivateSubForm_Click()DimiAsInteger，jAsIntegeri=10Doi=i+jFori=10ToiStep-3i=i+jNextjLoopWhilei＜50Printi；jEndSubA、5010B、509C、5710D、579标准答案：C知识点解析：本题考查二层循环的分析。程序段中的循环结构为外循环Do…LoopWhile，又包括了For型循环。外循环为直到型循环，先执行循环体，冉判断条件。i的初值为10，内循环执行完一次后，i值为20，j值为7，此时内层循环变量j小于i，内循环结束；执行下一次外循环，此时i初值为27，内存循环i初值为10，小于终止值，内层循环不执行；以此类推，当i为57时，循环结束。17、下面程序计算并输出的是()。PrivateSubCommand1_Click()Num=10Sum=0DoSum=Sum+Num*Num*NumNum=Num．1LoopUnti1Num＜=0PrintSumEndSubA、13+23+33…+103的值B、10!+…+3!+2!+1!的值C、(1+2+3+…+10)3的值D、10个103的和标准答案：A知识点解析：对于Do型循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环。本题是一个比较简单的Do循环，计算从1到10的立方和。18、以下关于文件的叙述中，错误的是()。A、顺序文件中的记录是一个接一个地顺序存放B、随机文件中记录的长度是随机的C、文件被打开后，自动生成一个文件指针D、EOF函数用来测试是否到达文件尾标准答案：B知识点解析：随机文件中记录的长度是固定的、相等的，不是随机的。故选项B错误。19、不能判断字符变量st中第一个字符是否为“S”的表达式是()。A、Mid(st，Len("S"))="S"B、Mid(st，1，1)="S"C、Left(st，Len("S"))="S"D、Left(st，1)="S"标准答案：A知识点解析：Len英文全称为Length，中文意思是长度，kn(s)求字符串s的长度，即所包含的字符的个数。Mid(s，n1，n2)是字符串截取函数，从s的第n1个字符开始，向后截取n2个字符，其中n2可省略，省略时，就是截取s的第n1个字符以后的所有字符。Mid(st，Len("S"))=Mid(st，1)=t，故A选项错误，B选项正确。Left(s，n)是截取字符串s左边的n个字符，Left(st，kn("S"))=Left(st，1)=S，故C和D选项正确。所以答案为A选项。20、在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮，且List1中有若干列表项，Text1的内容为空，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsIntegerIfText1．Text=""ThenExitSubEndIfIfList1．ListIndex<>一1ThenList1．List(List1．ListIndex)=Text1．TextElseList1．AddItemText1．TextEndIfText1．Text=""EndSub以下叙述中正确的是()。A、程序的功能是从List1中删除一个列表项B、程序的功能是把List1中选中的列表项内容显示在Text1中C、程序的功能是将Text1中的文本添加到List1中选中的列表项之后D、程序运行时，如果Text1中没有输入任何文本，则单击Command1时程序不进行其他操作标准答案：D知识点解析：程序运行前Text1文本框中的内容为空，当Command1-Click事件过程执行时，if语句判断Text1为空，条件成立，执行语句ExitSub，过程被提前结束，后续语句将不会被执行，所以本题D选项叙述正确。本题选择D选项。21、为了保存数据，需打开顺序文件“E：＼UserData．txt”，以下正确的命令是()。A、OpenE：＼UserData．txtForInputAs#1B、open"E：＼UserData．txt"ForInputAs#2C、OpenE：＼UserData．txtForOutputAs#1D、Open"E：＼UserDam．txt"ForOutputAs#2标准答案：D知识点解析：打开顺序文件的基本格式为：Open“文件名称”ForModeAs#文件号。“文件名称”表示要打开的文件的路径。Mode为打开模式：OutPut用于输出；Append用于追加写入；Input用于读取。文件号为打开文件时指定的句柄(即文件号)。22、以下叙述中错误的是A、用ReDim语句可以改变数组的维数B、用ReDim语句可以改变数组的类型C、用ReDim语句可以改变数组每一维的大小D、用ReDim语句可以对数组中的所有元素置0或空字符串标准答案：B知识点解析：ReDim语句无法更改数组变量的数据类型。23、决定标签内容显示位置的属性是A、TextB、NameC、AlignmentD、Caption标准答案：C知识点解析：Alignment属性用于设置标签中文本的对齐方式。24、在窗体上画一个文本框，其名称为Text1，然后编写以下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char))EndSub以上程序的功能是A、把输入到文本框中的字母转换为小写显示B、把从键盘上输入的字符在文本框中原样显示C、把输入到文本框中的字母转换为大写显示D、把输入到文本框中的字符转换为其ASCII码显示标准答案：C知识点解析：Chr()是把ASCII码转换为对应的字符。UCase转换成大写。Asc求字符串表达式的第一个字符的ASCII编码。答案选C。25、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。PrivatesubText1_Change()PrintText1；EndStlbA、1234B、12C、1121231234D、10标准答案：C知识点解析：本题考查文本框的Change事件，Change事件是每次文本框中的文本发生改变都要触发的事件，因此输入1234后，Change事件触发了4次，每次都是把文本框的现有的内容输出，依次输出为1121231234。26、在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscrol11的滚动条，其Min和Max属性分别为0和1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是()。A、PrivateSubHscrol11Change()Text1．Text=HScrol11．ValueEndSubB、PrivateSubHscrol11Click()Text1．Text=HScrol11．ValueEndSubC、PrivateSubHscrol11Change()Text1．Text=Hscrol11．CaptionEndSubD、PrivateSubHscrol11Click()Text1．Text=Hscrol11．CaptionEndSub标准答案：A知识点解析：本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其value属性韵值，当滑块的位置发生改变时，将触发滚动条的Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的value属性值赋值给文本框的Text属性来实现。27、下列叙述中正确的是A、线性表链式存储结构的存储空间一般要少于顺序存储结构B、线性表链式存储结构与顺序存储结构的存储空间都是连续的C、线性表链式存储结构的存储空间可以是连续的，也可以是不连续的D、以上说法均错误标准答案：C知识点解析：线性表的顺序存储结构具备如下两个基本特征：（1）线性表中的所有元素所占的存储空间是连续的；（2）线性表中各数据元素在存储空间中是按逻辑顺序依次存放的。用一组任意的存储单元来依次存放线性表的结点，这组存储单元既可以是连续的，也可以是不连续的，甚至是零散分布在内存中的任意位置上的。因此C正确。28、以下程序段的功能是()。x=8．6y=Inf(x+0．5)PrintyA、输出y的绝对值B、实现x的四舍五入C、实现x的绝对值D、实现y的四舍五入标准答案：B知识点解析：本题考查函数Int的功能，Int(x)的作用是取不大于x的最小的整数，可以实现数据的四舍五入。29、编写如下程序：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimarr()AsIntegern=InputBox("请输入数值：")ReDimarr(n)Fori=1ToUBound(arr)arr(i)=iNextFori=1ToUBound(arr)\2temp=arr(i)arr(i)=arr(n-i+1)arr(n-i+1)=tempNextFori=1ToUBound(arr)Printarr(i);NextEndSub程序运行后，单击命令按钮Command1，并在输入对话框中输入7，输出结果为A、7654321B、1234567C、3214765D、4321567标准答案：A知识点解析：第一个For循环，是对arr（7）赋值，此时arr（7）=[0，1，2，3，4，5，6，7]。第二for循环用来对下标1到7的arr数组，进行以下标为4的数组元素为中心的，对调，结果arr（7）=[0，7，6，5，4，3，2，1]。故选择A项。30、在窗体上画一个通用对话框控件CD1，则执行以下程序段后，在显示的"打开"文件对话框的"文件类型"框中显示的信息是CD1.Filter="所有文件|*.*|Word文件|*.Doc|文本文件|*.Txt"CD1.FilterIndex=2CD1.ShowOpenA、Word文件B、*.DocC、文本文件D、*.Txt标准答案：A知识点解析：Filter属性是用来指定对话框中显示的文件类型，它的属性值有一对或多对文本字符串组成，每对字符串用"|"隔开，"|"前面部分为描述符，后面部分一般为通配符和文件扩展名。FilterIndex属性是指定默认的过滤器，当Filter属性设置为多个过滤器后，每个过滤器都有一个值，本文中FilterIndex=2，则默认的文件类型为Word文件，故正确答案为A选项。31、要将单选按钮Opt1设为被选中，应设置的属性是A、ValueB、SelectedC、EnabledD、SetFocus标准答案：A知识点解析：要将单选按钮Opt1设为被选中，应设置的属性是Value。设置单选按钮在执行时的两种状态：True：表示选中，运行时该单选按钮的圆圈中出现一个黑点。False(默认值)：表示未选中。32、下面对对象概念描述正确的是A、对象间的通信靠消息传递B、对象是名字和方法的封装体C、任何对象必须有继承性D、对象的多态性是指一个对象有多个操作标准答案：A知识点解析：对象之间进行通信的构造叫做消息，A正确。多态性是指同一个操作可以是不同对象的行为，D错误。对象不一定必须有继承性，C错误。封装性是指从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作，B错误。33、下列关于标签的描述中，错误的是A、标签可以响应Click事件B、标签不能响应DblClick事件C、为了使标签的WordWrap属性起作用，必须将其AutoSize属性设置为TrueD、标签上显示的文本就是Caption属性的值标准答案：B知识点解析：标签可以响应Click事件和DblClick事件。选B）。34、下面不能在信息框中输出"VB"的是()。A、MsgBox"VB"B、x＝MsgBox("VB")C、MsgBox("VB")D、CallMsgBox"VB"标准答案：D知识点解析：Msgbox的功能：显示消息提示框，在对话框中显示提示消息，等待用户单击按钮，单击不同的按钮返回不同的整数。MsgBox函数格式：变量＝MsgBox(<提示内容>[，样式][，标题])，注意MsgBox函数带括号，有返回值；MsgBox语句格式：MsgBox(<提示内容>[，样式][，标题])，有无括号都可以，无返回值。选项D中用Call语句调用MsgBox函数，要符合Call语句的语法规则：Call函数名(实参表)，缺少括号，应该为CallMsgBox("VB")，语法才正确。故D选项不能输出"VB"，会出错。35、编写如下程序：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1y=1Doy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopUntilx<=10Printx;yEndSub程序运行后，单击命令按钮Command1，输出结果为A、11B、41C、42D、728标准答案：B知识点解析：Do…LoopUntil循环当条件为真时循环执行循环体。代入初值进行计算可得结果。选B）。36、文本框Text1的KeyDown事件过程如下：PrivateSubText1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)...EndSub其中参数KeyCode的值表示的是发生此事件时()。A、是否按下了Alt键或Ctrl键B、按下的是哪个数字键C、所按的键盘键的键码D、按下的是哪个鼠标键标准答案：C知识点解析：参数KeyCode返回的是所按键的键码，而且大小写字母键码值相同。故选C。37、窗体上有一个Text1文本框，并编写了下面事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii＝KeyAscii＋3EndSub程序运行时，在文本框中输入字符"A"，则在文本框中实际显示的是()。A、AB、BC、CD、D标准答案：D知识点解析：KeyPress事件执行时，其中的KeyAscii参数是所按键的ASCII码，按下"A"键，KeyAscii的值为65，在过程中65＋3＝68，即A字符后面的第3个字符的ASCII码值，即字符"D"，因此在文本框中回显"D"。38、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarr(10)Fori＝6To10arr(i)＝i－5NextiLabel1.Caption＝arr(0)＋arr(arr(10)/arr(6))EndSub运行程序，单击命令按钮，则在标签中显示的是()。A、0B、1C、2D、3标准答案：A知识点解析：程序为使用For语句为数组中部分元素赋值，没显示赋值的数组元素的值默认为0，因此arr(0)＝0，arr(10)＝10－5＝5，arr(6)＝6－5＝1，arr(arr(10)/arr(6))即，arr(5/1)＝arr(5)＝0，arr(0)＋arr(5)＝0＋0＝0。因此标签中显示为0。39、设有如下程序：PrivateSubForm_Click()num＝InputBox("请输入一个实数")p＝InStr(num，".")Ifp>0ThenPrintMid(num，p＋1)ElsePrint"END"EndIfEndSub运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出"END"；否则()。A、用字符方式输出该实数B、输出该实数的整数部分C、输出该实数的小数部分D、去掉实数中的小数点，保留所有数码输出标准答案：C知识点解析：InStr函数查找小数点在输入的实数中的位置，如果找不到将返回0。Mid函数一般有3个参数，从第2个参数指定的位置开始，在第1个参数字符串中截取第3个参数指定长度的字符，第3个参数可以省略，这时就一直截取到字符串尾部。因此程序的意思就是如果输入的是实数(p>0即说明找到了小数点，是实数)就输入该实数的小数部分，否则输出"END"。因此选项C正确。40、将窗体的KeyPreview属性设为True，然后编写如下程序：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub运行程序时，按下字母键a，则窗体上显示的是A、AAB、AaC、aAD、aa标准答案：B知识点解析：KeyCode是按键的实际的字符(不区分大小写)，KeyAscii是以字符为准，是所按键的ASCII码。二、基本操作题(本题共2题，每题1.0分，共2分。)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。41、在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。标准答案：[操作步骤]步骤1：新建一个“标准。EXE”工程，选择[工程]→[部件]命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommonDiMogControl6．0”项目，单击“确定”按钮。步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如表12—7所示。步骤3：编写Form1的Iroad事件，加入下面的代码：CD1．ShowSave步骤4：按要求将文件保存至考生文件夹中。知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由InitDir属性设置，默认文件名由FileName属性设置，标题由DialogTitle属性设置。42、在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1子菜单不可用，menu2子菜单已经选中(运行时的效果如图3所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．Frm。标准答案：[操作步骤]步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表12—8所示。步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSubmenu2_Click()menu1．Enabled=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的唯一关键字(不能重复)；“索引”项，用于设置菜单数组中各元素的索引号；“快捷键”项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当鼠标移动到某菜单项上按＜Fl＞键时显示的帮助信息在帮助文件中的对应位置；Visible(可见)项，用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见；Enabled(有效)项，用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效(显示为灰色)。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升(设置为上一级菜单)、缩进(设置为下一级菜单)、上移、下移等操作。②文本框的Text属性用于设置或返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击事件过程中，通过语句设置“不可用菜单项”命令的Enabled属性值为True。三、简单应用题(本题共1题，每题1.0分，共1分。)43、(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图5(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape控件。请在属性窗口中将Shape1控件设置为圆形，并将其颜色设置为红色(颜色值为&H000000FF&)，如图6所示。要求：当单击窗体时，Shape1移动到矩形(即Shape2)左上角，再次单击窗体，则Shape1移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：(1)步骤1：打开考生文件中的本题工程文件sjt3．vbp，将组合框的Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：SelectCaseCombol．ListIndexMsgBoxStr(x)&f1(x)MsgBoxStr(x)&f2(x)PrivateFunctionf2(ByValxAsInteger)AsStringIfxMod7=0Then步骤3；按要求将文件保存至考生文件夹中。(2)步骤1：打开考生文件中的本题工程文件sjt4．vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码PrivateFlagASBooleanShape1．Top=Shape2．Top+Shape2．Height-Shape1．HeightShape1．Left=Shape2．Left+Shape2．Width-Shape1．Width步骤3：按要求将文件保存至考生文件夹中。知识点解析：(1)本题源代码中给出了两个函数，f1函数的作用是判断参数的奇偶性并返回判断结果，其返回值为字符型；f2函数的作用是判断参数能否被7整除，其返回值也为字符型。在“判断”命令按钮的单击事件中，首先根据组合框的ListIndex值判断选中的是组合框中的哪一项，如果ListIndex值为0则调用f1函数，否则调用f2函数。(2)本题原程序中，在窗体的单击事件中，要求实现圆形在左上角和右下角之间来回切换，需要设置一个全局布尔型变量flag，每次单击窗体之后将其取反，通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩形的右下角，需要令其Top属性等于Shape2．Top+Shape2．Height-Shape1．Height，Left属性等于Shape2．Left+Shape2．Width-Shape1．Width。四、综合应用题(本题共1题，每题1.0分，共1分。)44、数列1，1，3，5，9，15，25，41，…，的规律是从第三个数开始，每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图2．106所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用Long型变量。)注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sit5．vbp。步骤2：编写“计算”按钮的单击事件过程。参考代码：PrivateSubCommandl—Click()DimfAsLonga(1)=1a(2)=1FOri=3ToVal(Textl．Text)f=a(i一2)+a(i一1)+1a(i)=fNextText2．Text=fEndSub步骤3：运行程序，存文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。步骤4：按要求将文件保存至考生文件夹中。知识点解析：暂无解析国家二级（VB）机试模拟试卷第2套一、选择题(本题共40题，每题1.0分，共40分。)1、窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为()。PrivateSubCommandl_Click()DimAAsInteger,BAsIntegerTextl．SelStart=2：Text1．SelLength=2A=Val(Text1．SelText)：B=Len(Text1．Text)PrintA*BEndSubA、68B、115C、1700D、170标准答案：D知识点解析：本题考查文本框的常见属性。文本框的SelStart属性和SelLength属性表示选中文本的开始位置和长度，第一个字符的位置为0，SelText表示选中的文本。Val把字符转化为数字。所以A为34，B为5，因此输出为34*5=170。2、已知A$="Welcome"，下列语句操作能够正确执行的是()。A、Labe11．Height=A$B、Labe11．Caption=A$C、Labe11．Enabled=A$D、Labe11．Visible=AS标准答案：B知识点解析：本题考查标签的各种属性。标签的Height属性值为数值型，不能赋字符串型值，而Enabled和Visible为布尔型，只有Caption属性值为字符串型。3、下面程序的输出结果是()。PrivateSubCommand1_Click()ch$="ABCDEF"procchPrintchEndSubPrivateSubproc(chAsString)s=""Fork=Len(ch)To1Step-1s=s&Mid(ch，k，1)Nextkch=sEndSubA、ABCDEFB、FEDCBAC、AD、F标准答案：B知识点解析：本题考查过程调用。过程proc的功能是：从字符串ch的最后一个字符开始，依次取出每一个字符，连接到s中，构成一个新的字符串(即是实现的字符串的逆置)。程序运行时单击命令按钮调用函数的时候，实现了字符串“ABCDEF”的逆置。4、设有如下程序：OptionBase1Dima(3，4)AsInteger，b(4，3)AsIntegerPrivateSubCommandl_Click()循环1Fori=1To3Forj=1To4b(j，i)=a(i，j)NextjNexti循环2x=b(1，1)Fori=1To4Forj=1To3Printb(i，j)；Ifx＜b(i，j)Thenx=b(i，j)NextjPrintNextiEndSub程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是()。A、窗体模块中，不能使用Dim声明a、b数组B、“循环1”可以正常运行C、“循环2”中循环变量i、j的终值不对，所以不能正常运行D、程序可以正常运行，x中保存的是数组b中所有元素中最小的数标准答案：B知识点解析：Dim用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行，x中保存的是数组b元素中的最大值。5、设有如下程序：OptionBase0PrivateSubFormClick()DimaDimiAsIntegera=Array(1，2，3，4，5，6，7，8，9)Fori=0To3Printa(5-i)；NextEndSub程序运行后，单击窗体，则在窗体上显示的是()。A、4321B、5432C、6543D、7654标准答案：C知识点解析：本题考查变体数组。题中定义了一个下标从0开始的变体数组a，然后利用Array函数初始化数组a中的数据，最后通过For循环输出数组中a(5)、a(4)、a(3)、a(2)四个元素的值，分别为：6543。6、下面哪个属性肯定不是框架控件的属性()。A、TextB、CaptionC、LeftD、Enabled标准答案：A知识点解析：框架没有Text属性。故选A。7、为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是()。A、按住Ah键，不要松开，然后单击每个要选中的控件B、按住Shift键，不要松开，然后单击每个要选中的控件C、按住Ctd键，不要松开，然后单击每个要选中的控件D、拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内标准答案：A知识点解析：按住Ah键只能选中单个控件，不能同时选中多个控件。故选A。8、待排序的关键码序列为(15，20，9，30，67，65，45，90)，要按关键码值递增的顺序排序，采取简单选择排序法，第一趟排序后关键码15被放到第()个位置。A、2B、3C、4D、5标准答案：B知识点解析：选择排序的基本思想是扫描整个线性表，从中选山最小的元素，将它交换到表的最前面，然后对剩下的子表采用同样的方法，直到子表为空。所以第一趟排序后，将选出最小的元素9放在第一个位置，元素15则放在第3个位置。9、下列是VisualBasic中所允许的形式数是()。A、±25．74B、3．457E-100C、368D、1．87E+50标准答案：C知识点解析：考查VB中的数据表示。VB中的实数可以分为单精度和双精度，单精度指数形式为±n；nE±m，表示数据的最大值为3．402823E38；实际在使用的时候，”±”不能同时出现。10、下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。在横线处应填写()。PrivateSubFormClick()DimiAsInteger,ttAsIntegerFori：1To5tt=Sum(i)：Print“tt=”；tt，NextiEndSubPrivateFunctionSum()j=j+nSum=jEndFunctionA、nAsIntegerjAsIntegerB、nAsIntegerStaticjAsIntegerC、BvValnAsIntegeriAsIntegerD、ByValnAsIntegerStaticjAsInteger标准答案：D知识点解析：本题考查参数的传递和静态局部变量。Sum函数在窗体单击事件中调用5次并用来求和，因此每一次求和结果应当保留，所以借助静态变量实现。同时要求传递的形参变化不应影响到实参，因此采用传值调用。11、对于列表框控件List1，能够表示当前被选中列表项内容的是()。A、List1.TextB、List1.IndexC、List1.ListIndexD、List1.List标准答案：A知识点解析：Text属性可返回当前被选中列表项的内容，故选A。Index属性是当有列表框控件数组时，区分各列表框用的；ListIndex属性返回的是被选中的列表项的索引值；List属性设置或返回各列表项的内容。12、下列叙述中正确的是()。A、有一个以上根结点的数据结构不一定是非线性结构B、只有一个根结点的数据结构不一定是线性结构C、循环链表是非线性结构D、双向链表是非线性结构标准答案：B知识点解析：线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以B)正确。所以有一个以上根结点的数据结构一定是非线性结构，所以A)错误。循环链表和双向链表都是线性结构的数据结构。13、在正确安装VisualBasic6．0后，可以通过多种方式启动VisualBasic6．0。以下方式中，不能启动VisualBasic6．0的是()。A、通过“我的电脑”找到vb6．exe，双击该文件名B、进入DOS方式，执行vb6．exe文件C、通过“开始”菜单中的“运行”命令D、通过“开始”菜单中的“程序”命令标准答案：B知识点解析：本题考查VB6．0环境的启动。正确安装了VB以后，最常用的启动模式是通过“开始”菜单，选择“程序”命令，启动VisualBasic的程序；如果“开始”菜单没“启动”文件，则可在硬盘中寻找VB安装文件夹，找到VB6．exe可执行文件，双击运行；如果了解运行路径，则可在“运行”中直接输入可执行文件名，即可运行。注意：VB6．exe是Windows下的应用软件，不能脱离Windows操作系统运行。14、在正确安装VisualBasic6．0后，可以通过多种方式启动VisualBasic6．0。以下方式中，不能启动VisualBasic6．0的是()。A、通过“我的电脑”找到vb6．exe，双击该文件名B、进入DOS方式，执行vb6．exe文件C、通过“开始”菜单中的“运行”命令D、通过“开始”菜单中的“程序”命令标准答案：B知识点解析：本题考查VB6．0环境的启动。正确安装了VB以后，最常用的启动模式是通过“开始”菜单，选择“程序”命令，肩动VisualBasic的程序：如果“开始”菜单没“启动”文件，则可在硬盘中寻找VB安装文件夹，找到VB6．exe可执行文件，双击运行；如果了解运行路径，则可在“运行”中直接输入可执行文件名，即可运行。注意：VB6．exe是Windows下的应用软件，不能脱离Windows操作系统运行。15、满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是()。A、yMod4AndyMod100OryMod400B、yMod4=0OryMod100＜＞0AndyMod400=0C、yMod100＜＞0And(yMod4=0OryMod400=0)D、yMod4=0AndyMod100＜＞0OryMod400=0标准答案：D知识点解析：根据闰年的条件，第一个条件是并且的关系，要用And运算符。整除用Mod运算符，取模后为0，说明能整除，不为0，说明不能整除。所以第一个条件为yMod4=0AndyMod100＜＞0。第二个条件是能被400整除，所以是yMod400=0。满足其中任何一个条件就行，两个条件之间是或者关系，所以用Or运算符。综合一下，故D选项正确。16、对窗体上名称为Command1的命令按钮，编写如下事件过程：PnvateSubCommand1_Click()Move200，200EndSub程序运行时，单击命令按钮，则产生的操作是()。A、窗体左上角移动到距屏幕左边界、上边界各200的位置B、窗体左上角移动到距屏幕右边界、上边界各200的位置C、窗体由当前位置向左、向上各移动200D、窗体由当前位置向右、向下各移动200标准答案：A知识点解析：Move方法是窗体的移动方法，其中200，200是窗体左上角的坐标(X，Y)。坐标系是以屏幕左上角为原点，向右为x轴正方向，向下为Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各200的位置。故A选项正确。17、窗体上有一个名称为CDl的通用对话框，一个名称为Commandl的命令按钮，相应的事件过程如下：PrivateSubCommandI＿Click()CDl．Fiher=”AllFileI*．*｜TextFile｜*．txt｜PPT｜*．ppt”CDl．Filterlndex=2CDl．InitDir=“C：＼”CDl．FileName=“default”CDl．ShowSaveEndSub关于上述过程，以下叙述中正确的是()。A、默认过滤器为“*．ppt”B、指定的初始日录为“C：＼”C、打开的文件对活框的标题为“default”D、上面事件过程实现保存文件的操作标准答案：B知识点解析：通用对话框的Filter’Index属性为1时表示默认过滤器为第1个文件类型，为2时表示为第2个文件类型。lnitDir属性值指定通用对话框的初始目录。FileName属性表示对话框中默认的文件名。ShowSave方法表示打开另存为对话框，执行保存文件的操作。18、编写如下程序代码：OptionBase1Dimaft()AsIntegerPrivateSubCommand1_Click()DimiAsInteger，jAsIntegerReDimarr(3，2)Fori=1To3Fori=1To2alT(i，j)=i+jNextjNextiReDimarr(3，4)Fori=3To4arr(3，j)=j+6NextjPrintarr(3，2)+arr(3，4)EndSub程序运行后，单击命令按钮Command1，输出结果为()。A、15B、12C、13D、10标准答案：D知识点解析：题目在过程commandl_Click之前声明了动态数组arr，并使用OptionBase1语句声明数组下标从l开始，在commandl_Click过程中使用ReDim语句对动态数组进行了定义，arr数组是一个3行2列的数组，接着使用二重For循环给数组中的运算进行赋值，arr(1，1)=l+l=2；arr(1，2)=1+2=3；arr(2，1)=2+1=3；arr(2，2)=2+2=4；arr(3，1)=3+1=4；arr(3，2)=3+2=5。接着继续使用ReDim语句对动态数组进行定义，arr数组被定义为3行4列的数组，并且当重新分配动态数组时，数组中的内容被清除。接着使用For循环给数组元素赋值，循环共执行2次，数组元素arr(3，3)=3+6=9；arr(3，4)=4+6=10。接着使用print方法输出arr(3，2)+arr(3，4)的结果，由于第二次重新分配动态数组，第一次计算出的arr(3，2)的结果被清除，而第二次并未对数组运算arr(3，2)赋值，所以arr(3，2)默认为0，表达式最终的结果为0+10=10，故D选项正确。本题选择D选项。19、设计窗体时，双击窗体上没有控件的地方，打开的窗口是()。A、代码窗口B、属性窗口C、工具箱窗口D、工程窗口标准答案：A知识点解析：双击窗体上没有控件的地方，默认打开"代码窗口"。故选A。20、下列操作说明中，错误的是()。A、在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件B、可以通过MousePointer属性设置鼠标光标的形状C、不可以在属性窗口设置MousePointer属性D、可以在程序代码中设置MousePointer属性标准答案：C知识点解析：可以在属性窗口中给MousePointer属性设置属性值。故C选项错误。21、下列关于线性链表的描述中，正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成：数据域和指针域。A、仅Ⅰ、ⅡB、仅Ⅰ、ⅢC、仅Ⅱ、ⅢD、全部标准答案：D知识点解析：在定义的链表中，若只含有一个指针域来存放下一个元素地址，称这样的链表为单链表或线性链表。在链式存储方式中，要求每个结点由两部分组成：一部分用于存放数据元素值，称为数据域：另一部分用于存放指针，称为指针域。其中指针用于指向该结点的前一个或后一个结点(即前件或后件)。22、对于循环队列，下列叙述中正确的是()。A、队头指针是固定不变的B、队头指针一定大于队尾指针C、队头指针一定小于队尾指针D、队头指针可以大于队尾指针，也可以小于队尾指针标准答案：D知识点解析：循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构所以对头指针有时可能大于队尾指针有时也可能小于队尾指针。23、在窗体上画一个名称为Text1的文本框，通过属性窗口把窗体的KeyPreview属性设置为True，然后编写如下程序：True，然后编写如下程序：OptionBase1PrivateSubForm_Load()ShowText1.SetFocusEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)DimArrArr=Array(567,234,79,823,535)m1=Arr(1)IfKeyAscii=13ThenFori=2To5IfArr(i)>m1Thenm1=Arr(i)m2=iEndIfNextiEndIfText1.Text=Str(m1)&""&Str(m2)EndSub运行程序，按回车键，在文本框中显示的是A、5355B、5671C、8234D、2342标准答案：C知识点解析：Arr是一个数组为[567,234,79,823,535],m1定义为567，当按下回车键时，KeyAscii=13，执行循环。从i=2到5，如果Arr(i)>m1,则将Arr（i）存储于m1中，相应的i存储于m2中，循环执行，目的在于选取Arr这个数组最大的数，并存储于m1；其最大数的相应下标存储于m2中。故可知当i=2时，Arr（2）m1,执行Then后的语句,m1=Arr(4)=823,m2=i=4;当i=3时，Arr（5）24、下列叙述中正确的是A、循环队列属于队列的链式存储结构B、双向链表是二叉树的链式存储结构C、非线性结构只能采用链式存储结构D、有的非线性结构也可以采用顺序存储结构标准答案：D知识点解析：循环队列是队列的一种顺序存储结构，A选项错误。双向链表为顺序存储结构，二叉树通常采用链式存储结构，B选项错误。完全二叉树是属于非线性结构，但其最佳存储方式是顺序存储方式，C选项错误，D选项正确。25、在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。A、需求分析B、详细设计C、软件设计D、概要设计标准答案：A知识点解析：软件生命周期的主要活动阶段为：可行性研究和计划制定、需求分析、软件设计、软件实现、软件测试、运行和维护。其中需求分析是对开发软件提出的需求进行分析并给出详细定义，即准确地确定软件系统的功能，编写软件规格说明书及初步的用户手册，提交评审。26、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。PrivatesubTextl_Change()PrintText1：EndSubA、1234B、12C、1121231234D、10标准答案：C知识点解析：本题考查文本框的Change事件，Change事件是每次文本框中的文本发生改变都要触发的事件，因此输入1234后，Change事件触发了4次，每次都是把文本框的现有的内容输出，依次输出为1121231234。27、窗体的单击事件过程如下：PrivateSubForm_Click()K=1Fori=5To1Step-1T=T*10+KS=S+TNextiPrintSEndSub运行程序时，单击窗体后，显示的是A、12345B、54321C、0D、11111标准答案：A知识点解析：Step-1表述步长为-1，For循环体从i=5执行到i=1（i=5,4,3,2,1）。T和S默认值为0，当i=5时，T=0*10+1=1，S=0+1=1；当i=4时，T=1*10+1=11，S=1+11=12；当i=3时，T=111，S=123；依次类推，当i=1时，T=11111，S=12345，故选择A项。28、下列有关控件的叙述中，正确的是A、命令按钮不响应DblClick事件B、标签的主要作用是显示文本信息，它不响应Click事件C、标签中的文本信息通过Text属性显示D、在设计阶段，图片框中建立的控件可以拖拽到图片框之外标准答案：A知识点解析：使用命令按钮时，一般都是单击按钮，命令按钮不支持双击事件，如果双击命令按钮，则将作为两次单击事件分别处理，故A项正确。B项标签的主要作用是显示一小段文本，可以响应单击或双击事件，故B错误。标签中的文本信息用Caption属性表示，故C错误。正在设计阶段通过属性窗口装入图形文件，但不可将图片框中建立的控件拖拽到图片框以外,故D错误。29、三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是A、Ifa+b>cAnda+c>bAndb+c>aThenPrint"可以构成一个三角形"ElsePrint"不能构成三角形"EndIfB、Ifa+b>cOra+c>bOrb+c>aThenPrint"可以构成一个三角形"ElsePrint"不能构成三角形"EndIfC、Ifa+b<=cOra+c<=bOrb+c<=aThenPrint"不能构成三角形"ElsePrint"可以构成一个三角形"EndIfD、Ifa+b<=cOra+c<=bThenPrint"不能构成三角形"ElseIfb+c<=aThenPrint"不能构成三角形"ElsePrint"可以构成一个三角形"EndIf标准答案：B知识点解析：三角形构成的条件必须满足任意2边之和大于第3边，即a，b，c任何两个的和必须大于第三个。A）满足。B）中的Or是或，条件不满足。C）和D）可以通过判断，均能进行正确判断。选B）。30、设在工程文件中有一个标准模块，其中定义了如下记录类型：TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是()。A、PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name＝InputBox("输入姓名")B.TelNum＝InputBox("输入电话号码")Write#1，B.Name，B.TelNumClose#1EndSubB、PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForInputAs#1B.Name＝InputBox("输入姓名")B.TelNum＝InputBox("输入电话号码")Print#1，B.Name，B.TelNumClose#1EndSubC、PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name＝InputBox("输入姓名")B.TelNum＝InputBox("输入电话号码")Write#1，BClose#1EndSubD、PrivateSubCommand1_Click()Open"Person.txt"ForInputAs#1Name＝InputBox("输入姓名")TelNum＝InputBox("输入电话号码")Print#1，Name，TelNumClose#1EndSub标准答案：A知识点解析：数据文件的写操作分为3步，即打开文件、写入文件和关闭文件。首先，在顺序文件中打开文件写入数据的打开方式为：Open文件名ForOutputAs#文件号。因此B、C选项排除，只看A、D选项。写入顺序文件Print#语句格式为：Print#文件号，变量名，变量名…，Write语句的的格式与Print语句一样：Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名.成员名，Books类型变量B成员Name和TelNum赋值和引用应该是B.Name、B.TelNum，因此A选项正确。31、定义无符号整数类为UInt，下面可以作为类UInt实例化值的是()。A、－369B、369C、0.369D、整数集合{1,2,3,4,5}标准答案：B知识点解析：只有B)选项369可以用无符号整数来表示和存储。A)选项－369有负号，选项C)0.369是小数都不能用无符号整数类存储。选项D)是一个整数集合得用数组来存储。32、下列关于线性链表的叙述中，正确的是()。A、各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B、各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C、进行插入与删除时，不需要移动表中的元素D、以上说法均不正确标准答案：C知识点解析：一般来说，在线性表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。33、在关系数据库中，用来表示实体间联系的是A、属性B、二维表C、网状结构D、树状结构标准答案：B知识点解析：关系模型实体间的联系采用二维表来表示，简称表。选项C为网状模型实体间的联系，选项D为层次模型实体间的联系，选项A属性刻画了实体34、如果把命令按钮的Cancel属性设置为True，则程序运行后()。A、按Esc键与单击该命令按钮的作用相同B、按回车键与单击该命令按钮的作用相同C、按Esc键将停止程序的运行D、按回车键将中断程序的运行标准答案：A知识点解析：当一个命令按钮的Cancel属性被设置为True时，按Esc键与单击该命令按钮的作用相同。在一个窗体中，只能有一个命令按钮的Cancel属性被设置为True。35、设在一个工程的窗体中有如下代码：PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有如下代码：PublicaAsIntegerPrivatebAsInteger关于上述代码，以下叙述中错误的是A、变量x的作用域是整个工程B、变量y的作用域是Form_Load过程C、变量a的作用域是整个工程D、变量b的作用域是整个标准模块标准答案：A知识点解析：VB中变量的作用域分为：局部变量：在过程内用Dim语句或用Static语句声明的变量，只能在本过程中使用。窗体/模块级变量：在"通用声明"段中用Dim语句或用Private语句声明的变量,可被本窗体/模块的任何过程访问。全局变量：在"通用声明"段中用Public语句声明的变量，可被本应用程序的任何过程或函数访问。36、以下关于文件的叙述中，错误的是A、顺序文件有多种打开文件的方式B、读取顺序文件的记录时，只能从头至尾逐记录进行C、顺序文件中各记录的长度是固定的D、随机文件一般占用空间比较小标准答案：C知识点解析：顺序文件中各记录的长度不固定。37、某二叉树共有845个结点，其中叶子结点有45个，则度为1的结点数为A、400B、754C、756D、不确定标准答案：C知识点解析：在树结构中，一个结点所拥有的后件个数称为该结点的度，所有结点中最大的度称为树的度。对