VB考试复习资料(模拟测试系统)

本卷共有4道大题:一、单项选择题（25道小题，共25分）1、VB中工程软件的扩展名为()（1分）A、dsB、frmC、vbpD、bas2、把字符串abcdef右边的空格去掉应使用()函数（1分）A、trimB、rtrimC、rightD、mid3、文本框text1的text属性的数据类型是()（1分）A、整数型B、字符串C、单精度D、双精度4、下列()属性决定窗体标题栏显示内容（1分）A、NameB、CaptionC、TextD、BackStyle5、命令按钮command1不具有下列哪个事件()（1分）A、ClickB、KeyPressC、GotFocusD、DblClick6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScrollBars属性设置为()（1分）A、0B、1C、2D、37、DimD(3,1To10,1To15)语句中，数组的元素个数为()（1分）A、3*10*16B、3*11*16C、4*10*15D、4*11*158、如果整型变量c、d、x的值分别为8、6、0，则下列语句ForI=ctod:x=x+i:NextI执行结束时，I的值为()（1分）A、8B、7C、6D、59、假定有以下循环结构DoUntil条件循环体Loop则正确的描述是()（1分）A、如果条件是一个为0的常数，则一次循环体也不执行B、如果条件是一个为0的常数，则至少执行一次循环体C、如果条件是一个不为0的常数，则至少执行一次循环体D、不论条件是否为真，至少要执行一次循环体10、x是小于100的非负数，用VB表达式表示正确的是()（1分）A、0=x0rx100B、0=x100C、0=xAndx100D、0=x,x10011、下列语句错误的是()（1分）A、exitforB、exitdoC、endsubD、exitselect12、Inputbox函数返回的数据类型为()（1分）A、整型B、逻辑型C、单精度D、字符串13、假定有以下程序段:ForI=1To3:Forj=1To5Step-1:PrintI*j:Nextj:NextI则语句PrintI*j的执行次数是()（1分）A、15B、18C、10D、014、如果要清除在窗体中打印输出的文字，可以利用()语句（1分）A、InputB、LoadC、ClsD、Paint15、case表达式表列,其中的表达式表列不正确的为()（1分）A、Case100*aB、Case1000To2000C、CaseIs3000D、Case2000Is300016、下列说法错误的是()（1分）A、VB声明数组时既可指定上界也可指定下界B、数组元素类型可以是任意的VB数据类型C、数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式D、VB声明数组时必须指定下界17、下面的四个数组说明语句语法正确的是()（1分）A、DIMX[10]B、DIMENfn(10)C、DIMX(20)D、DIMENSIONa[10]18、以下程序段:x=1:y=4:DoUntily4:x=x*y:y=y+1:Loop执行后x的结果为()（1分）A、1B、4C、8D、2019、以下声明和命名标识符错误的是()（1分）A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键词同名20、下列说明错误的是()（1分）A、ConstMyVar#=123B、DimmynameasstringC、dimaasinteger,dimbassingleD、dimMyString=Hello,+Myfriend!21、VB中允许出现的数据形式为()（1分）A、1.89E1.1B、.368C、D32D、2.5E22、设a=2,b=3,c=4,d=5,下列表达式abANDc=dOR2*ac的值是()（1分）A、TrueB、FalseC、-1D、123、语句6*6\6/6的输出结果是()（1分）A、6B、12C、36D、21624、给窗体form1加载背景图片，应使用()函数（1分）A、pictureB、ucaseC、loadpictureD、image25、字符串河南农业大学现教部的长度是()（1分）A、18B、10C、9D、16二、填空题（12道小题，共35分）1、设定系统当前日期是2004年5月12日，Month(date)=52、设A$=VisualBasic,len(a$)函数返回值是123、在窗体的声明部分，语句Privatex%语句，是将变量定义为窗体或模块级变量4、逻辑型数据只有True/False两个值5、顺序文件读操作用Input#语句。6、一个工程可以包括多种类型的檔,其中扩展名为.frx的文件表报表文件7、Command1.Visible=False,是将命令按钮1设为隐藏8、当鼠标在控件上暂停时，显示提示信息，要用ToolTipText属性。9、Texte1.SetFocus语句功能是把焦点移到Texte1控件上。10、DimXAsCurrency是将变量X定义为货币型。11、某次大奖赛，有6个评委打分，如下代码对一名参赛者，输入6个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分，即为该参赛者的得分。代码中aver变量存放平均分，max1变量存放最高分，min1变量存放最低分。请在空线处补充使之完整。PrivateSubCommand7_Click()Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To6mark=InputBox(输入第&i&位评委的打分)Ifi=1Thenmax1=mark:min1=markElseIfmarkmin1ThenMin1=markElseIfmarkmax1ThenMax1=marKEndIfEndIfaver=aver+markNextaver=(aver-min1-max1)/4PrintaverEndSub12、这是一个用户名校验程序。用户名为“user”，密码为“1234”,单击按钮：（1）如果用户名和密码均正确，即输出欢迎user来到欢乐世界！字样（2）若用户名错误，则要求重新输入用户名（3）如果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。OptionExplicitDimUserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivateSubform_load()UserName=user:userpassword=1234endsubprivatesubcommand1_click()gt:inputName=InputBox(请输入用户：,用户名确认,)ifLcase(inputname)usernameThenmsgbox用户名错误，请重新输入……gotogtelseinputpassword=InputBox(请输入密码：,密码验证,)ifinputpassworduserpasswordthenExitsubmsgbox密码错误！:elseMsgBox欢迎&UserName&来到欢乐世界！EndIfendifEndSub三、判断题（10道小题，共10分）1、False为字符型常量。（1分）正确错误2、VB中请求对象执行某一操作的要求称为方法。（1分）正确错误3、语句Print25*40执行时输出的结果是1000。（1分）正确错误4、窗体的卸载使用Load语句。（1分）正确错误5、表达式268=268的结果为True。（1分）正确错误6、语句if0thenprintHello是错误的。（1分）正确错误7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1分）正确错误8、将文本框Text1中的内容清除，可使用语句Text1.cls。（1分正确错误9、文件名的命名规则同变量的命名规则一样。（1分）正确错误10、InputBox函数返回值的类型是字符串类型。（1分）正确错误四、编程题（4道小题，共60分）1、编写程序，计算并输出下面级数前n项(n=10)的部分和。(要求用循环做，非循环不给分。)1!+2!+3!+4!+……+n!PrivateSubForm_Activate()？？？？？？S=0:T=1ForI=1To10T=T*IS=S+TNextIPrintSEndSub2、编写程序，输出下列三角形：总行数在窗体单击事件通过键盘输入。(要求用循环做，非循环不给分。)1333555557777777NextiPrivateSubForm_Activate()Fori=1To4PrintTab(15-2*i);？？？？？？tabForj=1To2*i-1PrintFormat(2*i-1,!@@);NextjPrintEndSub3、编写程序，输出100～1000之间的所有质数，并给出100～1000之间质数的个数及其PrivateSubForm_Activate()s=0:t=0Forx=100To1000flag=TrueFori=2ToSqr(x)IfxModi=0Thenflag=False:ExitForNextiIfflagThens=s+1t=t+xPrintx;IfsMod10=0ThenPrintEndIfNextxPrintPrints,tEndSub4、编写程序，用牛顿切线法求方程f(x)=3x^3-4x^2-5x+13=0（其中^表示幂运算）在区间[1，2]上的近似实根r，迭代初值自选，精确到0.0001。〔提示:计算公式为x=x-f(x)/f'(x)〕PrivateSubForm_Activate()x1=2Dox0=x1f=3*x0^3-4*x0^2-5*x0+13f1=9*x0^2-8*x0-5x1=x0-f/f1LoopUntilAbs(x1-x0)0.0001Printx1EndSub