VB期末复习题

1、VisualBasic是一种面向()的程序设计语言。A、用户B、事件C、程序D、对象2、VisualBasic主要用于开发哪一种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存中间占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、一个双精度型变量在内存中间占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节5、在Visual中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas6、在VisualA、frm中规定 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 文件的扩展名是：B、forC、vbpD、bas7、在VisualA、frm中 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件的扩展名是：B、forC、vbpD、bas8、一只黑色的台球被打进袋内，则黑色、台球、打、进袋依次是()A、对象，属性，事件，方法B、对象，属性，方法，事件C、属性，对象，方法，事件D、属性，对象，事件，方法9、在VisualBasic代码窗口中，将某一条语句加以说明和说明时，应在语句前加英文状态下的()A、逗号（，）B、冒号（：）C、单引号（’）D、问号（）10、在VisualBasic代码窗口中，多行语句书写在同一行，应在语句之间加英文状态下的A、逗号（，）B、冒号（：）C、单引号（’）D、问号（）()11、下列控件中可用于接受用户输入文本，又可用于显示文本的是（A、Label控件B、TextBox控件C、Timer控件D、CommandButton控件）12、下列控件中大小不能改变的是（）A、Label控件B、TextBox控件C、Timer控件D、CommandButton控件13、如果要改变窗体的标题,需要设置窗体对象的（A、CaptionB、Name）属性。C、BackColorD、BorderStyle14、要在C盘目前文件夹下成立一个名为的次序言件，应先使用A、Open""ForOutputAs#2B、Open"C:"ForlnputAs#2C、Open"C:"ForOutputAs#2D、Open""ForlnputAs#2()语句：15、要从C盘目前文件夹下一个名为的次序言件读取 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ，应先使用()语句：A、Open""ForOutputAs#2B、Open"C:"ForlnputAs#2C.、Open"C:"ForOutputAs#2D、Open""ForlnputAs#216、双击窗体中的对象后，VisualBasic将显示的窗口是()。A、项目（工程）窗口B、工具箱C、代码窗口D、属性窗口17、如果一个变量未经定义直接使用，其种类为()。A、integerB、byteC、booleanD、variant18、在VisualBasic中，以下选项中表示装入事件的是A、KeyUpB、ClickC、ActivateD、Load19、在VisualBasic中，以下选项中表示单击事件的是A、KeyUpB、ClickC、ActivateD、Load20、下列表记符书写正确的选项是（）A、9xB、Y1+X2C、M*D、W621、表达式5^2*2+3mod10\4的值是（）A、50B、51C、52D、5322、表达式运算结果Int是（）A、-7B、7C、-8D、823、表达式运算结果Fix是（）A、-7B、7C、-8D、824、下列（）属性是每个控件都有的。A、NameB、CaptionC、FontD、Interval25、标签控件能显示文本，应付（）属性进行设置。A、AlignmentB、CaptionC、VisibleD、Borderstyle26、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000B、100C、10D、127、当程序运行时，需要给用户一些提示信息或警示信息时，应使用（）：A、MsgBoxB、InputBoxC、A和B都能够D、A和B都不能够28、保留一个VB程序时需要保留两个文件：A、.vbp文件和.frm文件B、窗体文件和.frm文件C、工程文件和.vbpD、模块文件和.bas文件29、以下能判断是否抵达文件尾的函数是（）30、按照变量的作用域可将变量区分为（）A、公有、私有、系统B、全局变量、模块级变量、过程级变量C、动向、常数、静态D、Public、Private、static31、向一个次序言件中追加数据，应使用（）方式32、如果要在菜单中增添一个分开线，则应将其A、.=B、.*C、.&33、表达式PrintVal("20efgh")的值为（）：A、1B、20C、20efgh34、Fori=1ToStep3i=i+2NextiPrintiA、21B、20C、18D、2235、PrivateSubCommand1_Click()DimYAsInteger:StaticXAsIntegerY=Y+5：X=X+5：PrintX,YCaption属性设置为D、.-D、efghEndSub程序运行时，第三次单击命令按钮A．55B．155Commandl后，窗体上显示的结果为()C.1515D．51536、函数fix的值为（5）37、VB提供了（SelectCase）语句用于描绘较复杂的多分支构造。38、构造化程序中的三种基本构造是：次序、选择和循环。39、函数Left(“student”,5)=stude，Right(“Student”,4)=dent。40、用户自定义过程分Sub开头的子过程和Function开头的函数过程。41、VB参数传达有2种方式，分别是：ByVal和ByRef。42、在VB中，提供了三种接见文件的方法，分为是次序接见、随机接见进制接见。和二43、因为组合框是文本框和列表框的组合，所以其大部分属性都和这两个控件相同。其中只有一个特殊的__Style_属性为其独有。44、编程实现N!。求一个阶乘值不大于X的数N45、编程实现两个数的互换。46、编程实现两个数中的较大（较小）的一个47、编程实现分段函数。48、编程实现二维数组运算。如全部数组赋值、对角线元素赋值、最大值、最小值、对角线元素求和。PrivateSubCommand1_Click()DimSasinteger,IasintegerS=0ForI=9To42Step11S=S+INextIIfI>50ThenS=S+IElseS=S-IPrintS155EndSubPrivateSubForm_Click()Dimx%,y%,z%x=2:y=3:z=5Callproc(x,y,z)Printx,y,zCallproc(x,y,z)EndSub152035PrivateSubproc(m,n,g)152035m=3*g105140245n=4*gg=m+nPrintm,n,gEndSub编程实现：10位评委打分，去掉一个最高分和一个最低分，计算输出平均分、最高分及最低分数。PrivateSubForm_Click()Dimmin%,max%,score%,i%DimstrAsStringDimaveAsSinglescore=Val(InputBox("请输入第1个评委的分数:"))max=scoremin=scoreave=scoreFori=2To10str="请输入第"&i&"个评委的分数:"score=Val(InputBox(str))ave=ave+scoreIfmaxscoreThenmin=scoreNextave=(ave-max-min)/8Print"最高分:";maxPrint"最低分:";minPrint"平均分:";aveEndSub利用列表框和命令按钮等控件编程，要求程序能够实现增添项目、删除项目、删除全部项目的功能。写出窗体的装载事件。PrivateSubCommand1_Click()‘增添项DimstrAsStringstr=InputBox(“请输入要增添的项目”)str‘增添=True‘使删除及全部删除按钮可用=TrueEndSub‘输入要增添的项PrivateSubCommand2_Click()‘删除项‘删除选中项If<=0Then‘列表框中无项,删除及全删按钮不可用=False=FalseEndIfEndSubPrivateSubCommand3_Click()‘全部删除‘删除列表框中全部项False‘删除按钮不可用False‘全部删除按钮不可用EndSubPrivateSubForm_Load()‘窗体加载事件"物理""数学""计算机"True‘使命令按钮可用TrueTrueEndSub编程实现N!。PrivateSubCommand1_Click()Dimn%,i%,k%n=Val‘获取nk=1Fori=1Ton‘积赋初值‘从1乘到1nk=k*iNexti=k‘输出阶乘值EndSub编程实现N!。求一个阶乘值不大于5000的数N。PrivateSubForm_Click()Dimi%,s%,n%n=0Don=n+1’n加1s=1Fori=1Tons=s*iNextLoopWhiles<5000‘阶乘值小于5000持续Print"N!<5000时，N的值为";n-1EndSub求分段函数：2X＋5(当X≥5时)Y=5X－2(当X<5时)PrivateSubForm_Click()DimX!,YAsSingleX=Val(InputBox("请输入自变量X的值","求分段函数"))IfX>=5ThenY=2*X+5Print"y=";YElseY=5*X-2Print"y=";YEndIfEndSub