VB试卷二

湖北大学生计算机等级考试试卷二一、单选1.以下叙述中错误的是（）。A．VisualBasic应用程序既能以编译方式执行，也能以解释方式执行B．VisualBasic的版本分为个人版、专业版和服务器版C．VisualBasic中控件的某些属性只能在运行时设置D．VisualBasic是事件驱动型可视化编程工具2.在设计阶段，双击窗体上的某个控件时，则打开（）。A．代码窗口B．属性窗口C．工具箱窗口D．工程资源管理器窗口3.第一次进入VisualBasic集成化开发环境时，会出现一个“新建工程”对话框，以下哪一个不是其菜单选项？（）A．现存B．打开C．新建D．最新4.下列可以作为VisualBasic变量名的是（）。A．B！FB．DimXYZC．ENDD．1_MN5.假设X=2，Y=3，则表达式X+Y=4的值是（）。A．TrueB．FalseC．4D．56.骰子是正六面体，如果用1～6六个整数代表其6个面，那么每投一次骰子可能出现的数值在VisualBasic可以表示为（）。A．Int(Rnd(1)*6+1)B．Int(Rnd(6)+1)C．Int(Rnd(1)*7)D．Int(Rnd*6)7.可以实现从字符串中任意位置截取字符的函数是（）。A．Left()B．Mid()C．Right()D．Trim()8.假设有下列语句Dima,bAsIntegerc=”VB”d=#3/1/2009#则下列说法中错误的是（）。A．a是Integer类型变量B．b是Integer类型变量C．d是日期类型变量D．c是字符串类型变量9.表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）。A．0.048B．0.05C．0.5D．0.4810.设X=3，Y=4，下列哪个语句不能在窗体上显示“A=7”？（）A．Print”A=”;X+YB．Print”A=”+Ltrim(Str(X+Y))C．PrintA=X+YD．Print”A=”&X+Y11.可以实现从键盘输入一个作为双精度变量a的值的语句是（）。A．a=Val(InputBox())B．a=Val(InputBox(”请输入一个值”))C．a=InputBox$()D．a=InputBox()12.表达式Int(-17.8)+Abs(-17.8)的值为（）。A．-34.8B．-0.2C．5D．013.假设a=”a”，b=”b”，c=”c”，d=”d”，执行语句x=IIf((ab)，”A”，”B”)后x的值为（）。A．”B”B．”b”C．”A”D．”b”14.Printformat$(12345,”000.00”)的输出结果是（）。A．345.0B．12345C．12,345.00D．12345.0015.假设有如下程序段DimsAsDouble,xAsDoubles=0n=0Fori=1To5x=n/in=n+1s=s+xNext该程序段通过For循环计算一个表达式的值，该表达式为（）。A．1+1/2+2/3+3/4B．1+1/2+2/3+3/4+4/5C．1+1/2+1/3+1/4+1/5D．1/2+2/3+3/4+4/516.在窗体上画一个命令按钮并编写如下事件过程PrivateSubCommand1_Click()x=0DoUntilx=-1a=Val(InputBox(请输入A的值))b=Val(InputBox(请输入B的值))x=Val(InputBox(请输入X的值))a=a+b+xLoopPrintaEndSub程序运行时单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1，输出结果为（）。A．14B．15C．3D．217.下列各控件不包含滚动条的是（）。A．TextBoxB．LabelC．ListBoxD．ComboBox18.为了使列表框中的项目呈多列显示，需要设置的属性为（）。A．MulitiSelectB．ListC．StyleD．Columns19.对于声明“DimX(-1To12,3To7,11)AsInteger”，数组X中元素的个数为（）。A．572B．840C．770D．70020.执行下面程序段的结果是（）。OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSubA．34B．4321C．12D．123421.以下关于函数过程的叙述中，正确的是（）。A．函数过程形参的类型与函数返回值的类型没有关系B．如果不指明函数过程参数类型，则该参数没有数据类型C．函数过程返回值可以有多个D．数组作为函数过程的参数时，可以以传值或者传址两种方式传递22.不能脱离控件而独立存在的过程是（）。A．函数过程B．通用过程C．Sub过程D．事件过程23.下列关于菜单的说法错误的是（）。A．利用控件数组可以实现菜单的项的增加或减少B．弹出式菜单可以在菜单编辑器中设计C．把一个菜单项Enabled属性设置为False，则可删除该菜单项D．在程序运行过程中可以增加或者减少菜单项24.下列哪个函数可以判断是否到达文件末尾？（）A．LOFB．LOCC．BOFD．EOF25.下列叙述中正确的是（）。A．Open命令的作用是打开一个已经存在的文件B．使用Input#语句可以从随机文件中读取数据C．一条记录中包含的各元素数据类型必须相同D．随机文件中各个记录的长度是固定的二、多选26.下列叙述中正确的有（）。A．VisualBasic中标准模块文件的扩展名为.FrmB．一个工程可以有多个标准模块文件C．VisualBasic企业版可以运行在WindowsXP或者Linux操作系统上D．窗体文件包含窗体及其控件的属性27.不是所有控件都具有的属性有（）。A．CaptionB．NameC．BackColorD．BorderStyle28.以下叙述中正确的有（）。A．不同的对象的方法是不能相同的B．对象的方法是执行指定操作的过程C．对象事件的名称可以由编程者指定D．事件过程是响应特定事件的一段程序29.对于名称为Text1的文本框，要求其只能显示信息而不能接受输入信息，以下设置不能实现该功能的有（）。A．Text1.MaxLength=0B．Text1.Caption=“”C．Text1.Width=0D．Text1.Visible=False30.可以删除字符串空白的函数有（）。A．SplitB．RtrimC．LtrimD．Mid三、填空31.利用SelText属性可以获取文本框的被（选取）文本内容。32.VisualBasic联机（帮助）文件称作MSDN。33.在编程过程中没有声明而直接使用某个变量，系统将该变量默认为（Variant）数据类型。34.组合框是文本框和（列表框）的组合。35.VisualBasic采用可视化的程序设计方法及（面向对象）的程序设计思想。36.当一个复选框被选中时，它的Value值为（1）。37.利用Ubound（）函数可以获取数组的（上界）。38.如果要隐藏一个窗体，则需要将其（Visible）属性设置为False。39.窗体的标题栏为深色显示，说明该窗体已经被（激活）。40.如果想测试某一条简单的VB语句，可以在（立即）窗口中输入相应语句后按回车观察运行结果。四、判断41.Sub过程与Function过程最本质的区别在于Function可以返回值，而Sub不能。正确错误42.字节数据类型可以表示正整数、0和负整数。正确错误43.KeyPress事件不能识别键盘上某个键的按下与释放。正确错误44.可以利用文件打开命令（Open）新建一个文件。正确错误45.数组中所有元素的数据类型必须相同。正确错误46.对于过程的参数传递，实参与形参的个数必须相同，但其类型可以不同。正确错误47.窗体文件通常包括声明部分、通用过程部分和事件过程部分。正确错误48.在VisualBasic中编写代码可以不用区分大小写。正确错误49.Trim函数可以去除字符串中所有的空白。正确错误50.货币类型数据占用内存的大小与双精度数据类型一致。正确错误五、程序运行结果51.阅读下面程序，写出单击窗体后的运行结果。（10False）PrivateSubForm_Click()Dimcheck,countercheck=Truecounter=0DoDoWhilecounter20counter=counter+1Ifcounter=10Thencheck=FalseExitDoEndIfLoopLoopUntilcheck=FalsePrintcounter,checkEndSub运行结果：10False52.在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl､Text2的文本框，然后编写如下事件过程，运行时在文本框Text1中输入10，请写出单击命令按钮后Text2中显示的内容。（10）PrivateSubCommand1_Click()n=Text1.TextSelectCasenCase1To20x=10Case2,4,6x=20CaseIs10x=30Case10x=40EndSelectText2.Text=xEndSub运行结果：1053.阅读下面程序，写出单击按钮Command1后的执行结果。（9）PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub运行结果：9五、程序填空54.以下程序的功能是：生成20个(200,300)之间的随机整数，输出其中能被５整除的数并求出它们的和。请填空。PrivateSubCommand1_Click()Fori=1To20x=Int①IfxMod②=0ThenPrintxs=s+xEndIfNextiPrintSum=;③EndSub①(Rnd*(100)+200)？②5③s55.以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请填空。PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(“Enterascore”)Amax=xAmin=xDoWhilex=①IfxAmaxThenAmax=xEndIfIfx②ThenAmin=③EndIfx=InputBox(“Enterascore”)LoopPrint”Max=”;Amax,”Min=”;AminEndSub①0②Amin③x六、编程56.编程序：编程求自然对数e的近似值，要求其误差小于0.0001。自然对数公式：miiiiie10!11!1!1!31!21!111将本题产生的所有文件保存在C:\GATAnswer文件夹下。答案1：子过程PrivateSubForm_Click()DimSAsDouble,nAsIntegerS=1n=1DoWhile1/Jieche(n)0.0001S=S+1/Jieche(n)n=n+1LoopS=Format$(S,#.####)Printe=1+1/1!+1/2!+……+1/n!=;SEndSubPrivateFunctionJieche(ByValmAsInteger)P=1ForI=1TomP=P*INextIJieche=PEndFunction答案2：循环嵌套PrivateSubForm_Click()DimSAsDoubleDimnAsIntegerDimPAsDoubleDimIAsIntegerS=1n=1P=1DoWhile1/P0.0001P=1ForI=1TonP=P*INextIS=S