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

1、窗体顶端本卷共有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、DblClick

2、6、为了使文本框同时具有水平和垂直滚动条，应先将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的常数，则一次循环体也不

3、执行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

4、:NextI则语句PrintI*j的执行次数是()（1分）A、15B、18C、10D、014、如果要清除在窗体中打印输出的文字，可以利用()语句（1分）A、InputB、LoadC、ClsD、Paint15、case,其中的表达式表列不正确的为()（1分）A、Case100*aB、Case1000To2000C、CaseIs3000D、Case2000Is4:x=x*y:y=y+1:Loop执行后x的结果为()（1分）A、1B、4C、8D、2019、以下声明和命名标识符错误的是()（1分）A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键词同名2

5、0、下列说明错误的是()（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,下列表达式abANDcc的值是()（1分）A、TrueB、FalseC、-1D、123、语句6*66/6的输出结果是()（1分）A、6B、12C、36D、21624、给窗体form1加载背景图片，应使用()函数（1分）A、pictureB、u

6、caseC、loadpictureD、image25、字符串河南农业大学现教部的长度是()（1分）A、18B、10C、9D、16二、填空题（12道小题，共35分）1、设定系统当前日期是2004年5月12日，Month(date)= 5 2、设A$=VisualBasic,len(a$)函数返回值是 123、在窗体的声明部分，语句Privatex%语句，是将变量定义为窗体或模块级变量4、逻辑型数据只有True/False两个值5、顺序文件读操作用Input #语句。6、一个工程可以包括多种类型的檔,其中扩展名为.frx的文件表 报表 文件7、Command1.Visible=False,是将命令

7、按钮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=1T

8、o6mark=InputBox(输入第&i&位评委的打分)Ifi=1Thenmax1=mark:min1=markElseIfmarkmax1ThenMax1=marKEndIfEndIfaver=aver+markNextaver=(aver-min1-max1)/4PrintaverEndSub12、这是一个用户名校验程序。用户名为“user”，密码为“1234”,单击按钮：（1）如果用户名和密码均正确，即输出欢迎user来到欢乐世界！字样（2）若用户名错误，则要求重新输入用户名（3）如果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。OptionExplicitDim

9、UserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivateSubform_load()UserName=user:userpassword=1234endsubprivatesubcommand1_click()gt:inputName=InputBox(请输入用户：,用户名确认,)ifLcase(inputname)usernameThenmsgbox用户名错误，请重新输入gotogtelseinputpassword=InputBox(请输入密码：,密码验证,)ifinputp

10、assworduserpasswordthenExit submsgbox密码错误！: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循环结构对循环变量的赋值中

11、，终值可以大于初值，也可以小于初值。（1分）正确错误8、将文本框Text1中的内容清除，可使用语句Text1.cls。（1分正确错误9、文件名的命名规则同变量的命名规则一样。（1分）正确错误10、InputBox函数返回值的类型是字符串类型。（1分）正确错误四、编程题（4道小题，共60分）1、编写程序，计算并输出下面级数前n项(n=10)的部分和。(要求用循环做，非循环不给分。)1!+2!+3!+4!+n!Private Sub Form_Activate() ？S = 0: T = 1For I = 1 To 10 T = T * I S = S + TNext IPrint SEnd Su

12、b2、编写程序，输出下列三角形：总行数在窗体单击事件通过键盘输入。(要求用循环做，非循环不给分。)1333555557777777Next i Private Sub Form_Activate()For i = 1 To 4 Print Tab(15 - 2 * i); ？tab For j = 1 To 2 * i - 1 Print Format(2 * i - 1, !); Next j PrintEnd Sub3、编写程序，输出1001000之间的所有质数，并给出1001000之间质数的个数及其Private Sub Form_Activate()s = 0: t = 0For x = 100 To 1000 flag = True For i = 2 To Sqr(x) If x Mod i = 0 Then flag = False: Exit For Next i If flag Then s = s + 1 t = t + x Print x; If s Mod 10 = 0 Then Print End IfNext xPrintPrint s, tEnd Sub4、编写程序，用牛顿切线法求方程f(x)=3x3-4x2-5x+13=0（其中表示幂运算）在区间1，2上的近似实根r，迭代初值自选，精确