VB考试基础试题

PAGEPAGE1一、选择题：1、VisualBasic是一种面向()的程序设计语言A、用户B、事件C、程序D、对象2、VisualBasic主要用于开发哪种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、在VisualBasic6.0中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas5、一辆黑色汽车驶进车站，则驾驶、黑色、汽车、进站依次对应__________A、对象，属性，事件，方法B、属性，对象，事件，方法 C、方法，属性，对象，事件D、事件，属性，对象，方法6、在VisualBasic代码窗口中，将某一条语句加以注释和说明时，应在语句前加()A、逗号（，）B、冒号（：）C、单引号（’）D、问号（?）7、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）A、Label控件B、TextBox控件C、Timer控件D、CommandButton控件8、如果要改变窗体的标题,需要设置窗体对象的_____属性。A、CaptionB、NameC、BackColorD、BorderStyle9、要在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#210、PrivateSubCommand1_Click()StaticXAsIntegerDimYAsIntegerY=Y+5:X=X+5PrintX,YEndSub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为()A．55B．155C.1515D．511、在VisualBasic中，以下选项中表示窗体的装入事件的是：A、KeyUpB、ClickC、ActivateD、Load12、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000B、100C、10D、13、下列标识符书写正确的是（）A、9x B、X1+X2 14、表达式运算结果Int(-5.2)是（）A、-5B、5C、-6D、615、下列（）属性是每个控件都有的。A、NameB、CaptionC、FontD、Interval16、保存一个VB程序时需要保存两个文件：A、.vbp文件和.frm文件B、窗体文件和.frm文件C、工程文件和.vbpD、模块文件和.bas文件17、当程序运行时，需要给用户一些提示信息或警告信息时，应使用（）：A、MsgBoxB、InputBoxC、A和B都可以D、A和B都不可以18、按照变量的作用域可将变量划分为（）A、公有、私有、系统B、全局变量、模块级变量、过程级变量C、动态、常数、静态D、Public、Private、Protected19、以下能判断是否到达文件尾的函数是（）A.BOFB.LOCC.LOFD.EOF20、表达式3^2+10mod3-2的值是（）A.9B.7C.8D.421、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）A、=B、*C、&D、-22、用于清除窗体或图片框上的图形和文本，应用下列哪个方法（）A．ClsB．MoveC．RefreshD．show23、如果x是一个已声明的整型变量，则执行赋值语句x=”6”A.35B.8C.11D.出错24、表达式PrintVal("20efgh")的值为（）：A、1B、20C、20efghD、efgh25、Fori=1To19.8Step4i=i+2NextiPrintiA、21B、20C、25D、22＊＊请将选择题答案填在下表内＊＊12345678910111213141516171819202122232425二、填空题：1、结构化程序中的三种基本结构是：、和2、VB参数传递有2种方式，分别是：和3、VB中，提供了三种访问文件的类型，分为是、和4、Left(“student”,6)=5、用户自定义过程分Sub开头的和Function开头的6、因为组合框是文本框和列表框的组合，所以其大多数属性都和这两个控件相同。其中只有一个特殊的_________属性为其独有。7、用DimA(3，1to4)AsInteger定义数组，则该数组A有______个元素8、使用______声明一个符号常量。9、如果不能事先确定变量的数据类型，则可以把它声明为____________类型。三、完成程序：1、编程获取800以内所有能被18整除的数Dimi%Fori=1to800IfthenEndifNexti2、输出两个数中较大的一个数PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,MAXAsSingleA=‘从输入对话框中接收第1个数B=‘从输入对话框中接收第2个数IFA>BTHENELSEPRINT“MAX=“;MAXEndSub3、求分段函数：例如：2X＋5(当X≥5时)Y=5X－2(当X<5时)用InputBox输入自变量X的值，输出Y的值按右图说明完成：PrivateSubForm_Click()DimX,YAsSingleX=IFThenPrint"y=";YElsePrint"y=";YEndIfEndSub4、对随机产生5个两位数进行排序（升序）PrivateSubCommand1_Click()Dima(1To5)AsIntegerDimiAsInteger,jAsIntegerDimminAsIntegerRandomizePrint"排序前："Fori=1To5a(i)=printa(i)；NextiprintFori=1To5-1Forj=1To5-iIfThenmin=a(j)a(j)=a(j+1)a(j+1)=minEndIfNextjNextiPrint"排序后的结果："Fori=1To5Printa(i);NextiPrintEndSub四、读程序写结果下列程序段的运行结果是：1.PrivateSubCommand1_Click()S=0ForI=9To42Step11S=S+INextIIfI>50ThenS=S+IElseS=S-IPrintSEndSub结果：_______2.PrivateSubCommand1_Click()DimI%,sum%sum=0I=0DoWhileI<=100sum=sum+II=I+20LoopPrintI,sumEndSub结果：_______3.当X的输入值为5,-7,0时,读程序段,计算出结果.PrivateSubCommand1_Click()DimxAsIntegerx=InputBox("请输入X的值:")SelectCaseSgn(x)+2Case1Print"x=";x,"y=";x^2Case2Print"x=";x,"y=";xCase3Print"x="