VB期末复习题

1、VisualBasic是一种面向()的程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 语言。A、用户B、事件C、程序D、对象2、VisualBasic主要用于开发哪种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、一个双精度型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节5、在VisualBasic6.0中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas6、在VisualBasic6.0中规定 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 文件的扩展名是：A、frmB、forC、vbpD、bas7、在VisualBasic6.0中 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件的扩展名是：A、frmB、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、NameC、BackColorD、BorderStyle14、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用()语句：A、Open"Stu1.txt"ForOutputAs#2B、Open"C:Stu1.txt"ForlnputAs#2C、Open"C:Stu1.txt"ForOutputAs#2D、Open"Stu1.txt"ForlnputAs#215、要从C盘当前文件夹下一个名为Stu1.txt的顺序文件读取 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ，应先使用()语句：A、Open"Stu1.txt"ForOutputAs#2B、Open"C:Stu1.txt"ForlnputAs#2C.、Open"C:Stu1.txt"ForOutputAs#2D、Open"Stu1.txt"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(-7.2)是（）A、-7B、7C、-8D、823、表达式运算结果Fix(-7.2)是（）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、以下能判断是否到达文件尾的函数是（）A.BOFB.LOCC.LOFD.EOF30、按照变量的作用域可将变量划分为（）A、公有、私有、系统B、全局变量、模块级变量、过程级变量C、动态、常数、静态D、Public、Private、static31、向一个顺序文件中追加数据，应使用（）方式A.OutputB.InputC.AppendD.Random32、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A、.=B、.*C、.&D、.-33、表达式PrintVal("20efgh")的值为（）：A、1B、20C、20efghD、efgh34、Fori=1To19.8Step3i=i+2NextiPrintiA、21B、20C、18D、2235、PrivateSubCommand1_Click()DimYAsInteger:StaticXAsIntegerY=Y+5：X=X+5：PrintX,YEndSub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为()A．55B．155C.1515D．51536、函数fix(5.67)的值为（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+scoreIfmax<scoreThenmax=scoreIfmin>scoreThenmin=scoreNextave=(ave-max-min)/8Print"最高分:";maxPrint"最低分:";minPrint"平均分:";aveEndSub利用列表框和命令按钮等控件编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。写出窗体的装载事件。PrivateSubCommand1_Click()‘添加项DimstrAsStringstr=InputBox(“请输入要添加的项目”)‘输入要添加的项List1.AddItemstr‘添加Command2.Enabled=True‘使删除及全部删除按钮可用Command3.Enabled=TrueEndSubPrivateSubCommand2_Click()‘删除项List1.RemoveItemList1.ListIndex‘删除选中项IfList1.ListCount<=0Then‘列表框中无项,删除及全删按钮不可用Command2.Enabled=FalseCommand3.Enabled=FalseEndIfEndSubPrivateSubCommand3_Click()‘全部删除List1.Clear‘删除列表框中全部项Command2.Enabled=False‘删除按钮不可用Command3.Enabled=False‘全部删除按钮不可用EndSubPrivateSubForm_Load()‘窗体加载事件List1.AddItem"物理"List1.AddItem"数学"List1.AddItem"计算机"Command1.Enabled=True‘使命令按钮可用Command2.Enabled=TrueCommand2.Enabled=TrueEndSub编程实现N!。PrivateSubCommand1_Click()Dimn%,i%,k%n=Val(Text1.Text)‘获取nk=1‘积赋初值1Fori=1Ton‘从1乘到nk=k*iNextiText2.Text=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