vb考试题库1.pdf

《vb考试题库1.pdf》由会员分享，可在线阅读，更多相关《vb考试题库1.pdf（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一、单项选择题(25道小题，共 25分)1、V B中工程软件的扩展名为(c)A、dsB、frmC、vbp D、bas2、把字符串abcdef 右边的空格去掉应使用(b)函数A、trim B、rtrimC、right D、mid3、文本框textl的 text属性的数据类型是(b)A、整数型B、字符串C、单精度D、双精度4、下列(b)属性决定窗体标题栏显示内容(1 分)A、NameB、CaptionC、IextD BackStyl5、命令按钮 commandl 不具有下列哪个事件(d)(1 分)A、ClickB、KeyPressC GotFocusD DblClick6、为了使文本框同时具有水平

2、和垂直滚动条，应先将MulliLine属性设置为True,然后再把ScroHBars属性设置为(d)(1 分)A、OB、1C、2D、37、Dim D(3,l lb 10,1 1b 15)语句中,数组的元素个数为(c)A、3*10*16B 3*I1*16C 4*10*15D、4*11*158、如果整型变量c、d、x 的值分别为8、6 0,则下歹ij语句For I=c to d:x=x+i:NextI 执行结束时，I 的值为(a)(1 分)A、8B、7C、6D、59、假定有以下循环结构Do U ntil条件 循环体 L oop则正确的描述是(b)(1分)A、如果“条件”是一个为。的常数，则一次循环

3、体也不执行B、如果“条件”是一个为。的常数，则至少执行一次循环体C、如果”条件”是一个不为0 的常数，则至少执行一次循环体D、不论“条件“是否为“真”，至少要执行一次循环体10、是小于100的非负数”，用 VB表达式表示正确的是(c)A、0=x0r x 100B,()=x 100C、0=x And x 0=x,x exit doC end subD exit select12、Inputbox函数返回的数据类型为(d)A、整型B、逻辑型C、单精度D、字符串13、假定有以下程序段:For I=1 Tb3:Forj=1 To 5 Step-1:Print I*j:Next j:Next I 则语句

4、 Print I*j 的执行次数是(d)(1 分)A、15B、18C、10D、014、如果要清除在窗体中打印输出的文字，可以利用(c)语)A InputBs LoadC ClsD Paint15、case v 表达式表列,，其中的表达式表列不正确的为(d)(1 分)A、Case 100*aB、Case 1000 lb 2000C Case Is Case 2000Is DIM ENfn(10)C、DIMX(20)D、DIM ENSIGN a1018 以下程序段:x=1:y=4:Do Until y4:x=x*y:y=y+l:Loop 执行后 x 的结果为(b)A、IB、4C、8D、2019、以

5、下声明和命名标识符错误的是(c)A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名20 下列说明错误的是(d)(1 分)A、Const MyVar#=123B Dim niyname as stringC%dim a as integer.dim b as singlcD dimMyString=Hello,+My friend!21、VB 中允许出现的数据形式为(b)A、1.89E1.1B、.368C、D32D、2.5E22、设 a=2,b=3,c=4,d=5,下歹lJ表达式abANDcc的值是(b)A、TrueB、False C、-ID

6、、123、语句 6*66/6 的输出结果是(c)A、6B、12C、36D、21624、给窗体 forml 加载背景图片,应使用(c)A、pictureB.ucaseC loadpictureD.image25、字符串”河南农业大学现教部”的长度是(c)A、18B、10C、9D 16二、填 空 题(12道小题，共 35分)1、设定系统当前日期是2004年 5 月 12日，Month(date)=5o2、设 A$=:Visual Basic”,len(a$)函数返回值是 12。3、在窗体的声明部分，语句Private x%语句，是将变量定义为 窗体模块 级变量。4、逻辑 型 数 据 只 有 tme

7、 false 两个值。5、顺序文件读操作用 open 语句。6、一个工程可以包括多种类型的文件，其中扩展名为.frx的文件表示fnn 文件。7、Commandl.Visible=False,是将命令按钮1设为 把它设置为隐藏。8、当鼠标在控件上暂停时，显示提示信息，要用属性 TbolTipText 属性。9、Tbxtl.SetFocus语句功能是把焦点移到上 lexth10、Dim X As Currency是将变量X定义为 货币 型。三、判断题（10道小题，共10分）1、VBU 请求对象执行某一操作的要求称为“方法”。（1分）正确2、False为字符型常量。（1分）错误3、语句Pr血25*4

8、0执行时输出的结果是100（）。（1分）正确4、窗体的卸载使用L oad语句。（1分）错误5、表达式268=268”的结果为True。（1分）错误6、语 句if 0 then print Hello是错误的。（1分）错误7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1分）正确8、将文本框Tbxtl中的内容清除，可使用语句Textl.clso错误9、文件名的命名规则同变量的命名规则一样。（1分）正确10、InputBox函数返回值的类型是字符串类型。（1分）正确Private Sub Command l_Click（）Dim mark!,aver!,i%,maxi!

9、,mini!aver=0For i=1 lb 6mark=InputBox（输入第&i&位评委的打分）If i=I Thenmax 1 =mark:min 1 =markElseIf mark max 1 Thenmax l=markEnd IfEnd Ifaver=aver+markNextaver=（a ver-min 1 -max 1）/4Print averEnd Sub1、以下叙述中错误的是（b）（1分）A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、控件的名称可以由编程人员设定C、窗体文件包含该窗体及其控件的属性D、Visual B asic中控件的某些属性

10、只能在运行时设置2、以下关于窗体的描述中，错误的是（d）（1分）A、窗体的Load事件在加载窗体时发生B、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止C、窗体的Height、width属性用于设置窗体的高和宽D、执行Unload Form l语句后，窗体Form l消失,但仍在内存中3、用 StaticM（60to90）AsInteger 语句定义的数组的元素个数是（c）（1 分）A、60 B、30C、31 D、904、如果整型变量a、b的值分别为3和1,则下列语句中F orI=atob:P rintI:N extI循环体的执行次数是（c）（1分）A、3 B、2

11、 C、1D、05、关于语句If x=1 Tlicn y=l下列正确的说法是（c）（1分）A、x=l和y=l均为赋值语句B、x=l和y=l均为关系表达式C、x=l为关系表达式,y=l为赋值语句D、y=l为关系表达式,x=l为赋值语句6、用情况选择语句Select Case X,选择IXI 10情况的语句为Case(c)(1分)A、Not(-101b 10)B 101b-10C Is v-10,Is10D、ABS(X)107、下列哪条语句是错的(c)(1分)A RTrim()B、Exit Function C Exit While D Exit Do8、在Visual Basic中下面的四个数组声

12、明语句，正确的是(c)(1分)A、Dim a 10 B Def fn(10)Dim a(10)D Dimension a(10)9、阅读卜面的程序段For i=l To 3:For j=l lb i:For k=j lb 3:a=a+2:Next:Next:Next执行上面的三重循环后,a的值为(c)(1分)A、26 B、27 C、28 D、2910、下面说法错误的是(b)(1分)A、对象的性质和状态值称为“属性”B、请求对象执行某一操作的要求称为“消息”C、改变对象的一个或多个属性值的操作称为“事件”D、对象发生某事件所执行的程序称为事件驱动程序11、若使用文本框Texll,为对用户输入内容

13、进行立即检查，应对Tbxtl的哪个事件编程(a)(1分)A、Change B、Interval Left D、Top12、如果数据包含小数，则不应定义为下列哪种类型(c)(1分)A、Double B Single C Byte D Currency13、下列程序段 s=0:for i=9 to42 step ll:s=s+i:next:if i50 then s=s+i else s=s-i 运行后 s 的结果为()(1 分)A、167 139C、144D、15514、有如下程序,m$=ABCDE:MID(m$,1 ,5)=abcdeM:Printm$,运行后的输出结果是(a)(1 分)A、a

14、bcdeABCDEB ABCDEabcdeC、abcde D ABCDE15、在下列四个式子中,非法的Visual Basic表达式是(c)(1分)A、a=b+e B 53+3 C a=cxp D 5516、表达式 INT(6*RND+1)*(INT(6*RND-1)值的范围是(b)(1 分)A、-6,18 B-6,24 C-3,24 D、-3,1817、字符串”计算机技术基础”的长度是，应使用下列(c)函 数(1分)A、TABB、STRC、LEND、INSTR18、表达式(not true or true)and(true or false)的值为(b)(I 分)A、false B、true

15、 C、0 D-119、下列叙述中正确的是(c)(1分)A、在窗体的Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个S u b过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为0或空符串20、下面的变量名合法的是(c)(1分)A、k.name B k%nameC、name Ds k-name21、在Visual Basic中,下面四个数据，数据形式错误的是(b)(1分)A、3.456#B、236!C、1.23D-23D、1.89E1.122、一知CD,ST,正确表示它们之

16、间关系的式子是(c)(1分)A、Sgn(D-C)-Sgn(S-T)0 B、S即(D-C)-Sgn(ST)=-2C、Sgn(D-C)-Sgn(S-T)=0 D Sgn(D-C)-Sgn(S-T)=l23、表达式Int(Rnd*ll)+100的值的范围是(b)(1分)A、11,111 B 1OO,1IOC 11,100 D 100,11124、下列关于属性设置的叙述正确的是(d)(1分)A、所有的对象都有同样的属性B、控件的属性只能在设计时修改，运行时无法改变C、控件的属性都有同样的默认值D、引用对象属性的格式为：对象名称.属性25 Visual Basic中没有提供下列(d)事 件(1分)A、M

17、ouseDown B、MouseUp C、MouseMove Ds MouseExit二、填空题(12道小题，共35分)1、可视化Visual Basic语言是 公司推出的程序开发语言。2、双击某个对象时，最终引发该对象的事件 执行。3、程序流程中被重复执行的程序段叫 循环体。4、将对象设置为允许用户操作，并对操作作出响应，是将它的Enabled属性值设为 True。5、在 Visual Basic6.0 中，用 Font.StrikeThtouth 属性设置。6、表示单精度型数据的单一字符是！。7、Rnd函数的含义是。8、Chr$(数值)函数返回 该数值表示的字符。9、在窗体各过程中均有效的

18、变量是 全局变量。1 0,在Print方法中，句尾有符号时，是 换行 执行下一个Print语句11、下列程序段将十进制数转换为十六进制数，要求十进制数为非负整数。单击窗体，弹出InputBox对话框，让用户输入一个十进制数；单击“确定”后，在Labell上显示出十六进制数的结果。如果输入的不是十进制数，在标签Labell上显示出 你输入的不是十进制数”，退回到对话框状态，让用户重新输入。Private Sub Form_Click()Dim sHex As String,Ys As IntegerDim n As String,nd As Integer,Ai As StringsHex=Hn

19、=InputBox(请输入一个十进制整数)If Not IsNumeric(n)Or Left(n,1)=0 Or_Int(Val(n)Val(n)ThenMsgBox”你输入的不是十进制整数！”EndElsend=Val(n)Do While nd=10Ys=nd Mod 16Select Case YsCase 10Ai=Case 11Ai=BCase 12Ai=Case 13Ai=DCase 14Ai=Case 15Ai=FCase 0 lb 9Ai=YsEnd SelectsHex=Trim(Ai)&sHexnd=nd 16LoopLabe 1 1 =nd&sHexEnd IfEnd

20、Sub12、在窗体上有两个命令按钮和一个文本框，名称分别为cmdstart（咻 ）、cmdend（结束”）和1x1。程序开始运行时，要求文本框ixl中的字符个数不超过300个，“结束”按钮成灰色，单击“开始”按钮后，“开始”按钮不可用，同时使“结束”按钮能响应，单击“结束”按钮结束程序。Private sub form_load（）=300Cabled=falseEnd subPrivate sub cmdstart_click（）cmdstart.enabled=false=trueend subprivate sub cmdcnd_c）ick（）endend sub三、判断题（10道小题，

21、共10分）1、通 过labelLcls可以清除由label 1所显示的内容。（1分）错误2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（1分）错误3、设a=5,则语句print a=5的运行结果为True。（1分）正确4、能够改变窗体背景颜色的属性是BackColor。（1分）正确5、在V B的表达式中，加入括号有时可以改变运算符的优先级。正确6、在if条件山e n结构中，条件可以是逻辑表达式或关系表达式。（1分）正确7、在Forv控制变量二v初值b终值Stepv步长 结构中，步长可以取任意值。（1分）错误8、可以用lextl.text=n来清除Textl中的内容。（

22、1分）正确9、在V B中可以同时打开多个工程。（1分）正确10、在定义了 个函数后，可以象调用任何个V B内部函数样使用它，即可以在任何表达式、语句或函数中引用它。（1分）错误四、编程题（4道小题，共60分）1、求公式:e=l/l!+l/2!+l/3!+.+l/n!直到最后一项小于10A（-6）时e的值。（保留小数点后9位）（注：程序代码写在命令按钮Commandl的Click事件中。）Private Sub Command 1 _Click（）e=0s=1i=1Do Untils10情况的语句为Case（）（1分）A、Not（-10 Tb 10）B 10rlb-10C、Is v-10,Is

23、10 D、ABS（X）107、在运行阶段，要在文本框Texll获得焦点时选中文本框中所有内容，对应的事件过程是（a）（1分）A Private Sub Tcxtl_GotFocus（）:Textl.SelStart=O:TextLSelLength=Len（Iextl.text）:End Sub B Private Sub Textl_LotFocus（）:Text 1 .SelStart=O:Text 1 .SelLength=Len（Text 1 .text）:End SubC、Private Sub lextl_Change（）:Textl.SelStart=O:Text 1 .SelL

24、ength=Len（Text 1 .text）:End Sub D、Private Sub Textl_SetFocus（）:Textl.SelStart=O:Text 1 .SeILength=Len（Text 1 .text）:End Sub8、在Visual Basic中下面的四个数组声明语句，正确的是（）（1分）A、Dim a10 B Deffn（10）C Dim a（10）D.Dimension a（10）9、假设有以下程序段For 1=1 to 3:Forj=7 to 1 Step-l:Print I*j:Next j:Next I则语句Print I*j的执行次数以及L j的值分

25、别是（）（1分）A、213 0 B、214 0 C、20 3 0 D 20 4 010、如果Form 1是启动窗体，并且Form 1的Load事件过程中有Form2.Show,则程序启动后（c）（1分）A、发生一个运行时错误B、发生一个编译时错误C、在所有的初始化代码运行后Form 1是活动窗体D、在所有的初始化代码运行后Form2是活动窗体11、以下控件中可以入选为容器控件的是（b）（1分）A、Image图像框控件B、PictureBox图片框控件C、IbxtBox文本框控件D、ListBox列表框控件12、假设变量bool_x是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（b）（1分

26、）A、bool_x=False B bool_x=.False.C bool_x=#False#D bool_x=False13、下列程序段 If（2*2=5）False D、True14、有如下程序,Forj=l TO 20:a=a+j7:Next运行结束时a的值是（）（1分）A、21 B、41 C、63 D、21015、在下列四个式子中,非法的Visual Basic表达式是（）（1分）A、a=b+eB、53+3C、a=exp D、5516、表达式 INT（4*RND+2）*（INT（4*RND2）值的范围是（）（1 分）A、-10,8 Bs-4,8 C-10,5 D,4,817、要统计出

27、字符串”计算机技术基础visual basic”的长度，应使用下列（）函 数（1分）A、TABB、STRC、LEND、INSTR18、表达式 253 mod 3.2*int（2.5）的值为（）（1 分）A、1 B、2C、3D、519、Dim bl,b2 as boolean 语句显式声明变量（d）（1 分）!A、b l和b2都为布尔型变量B、b l是整型,b 2是布尔型变量C、b l和b2都为是可变型变量D、b l是可变型,b 2是布尔型变量20下列哪个是Visual Basic合法变量名（d）（1分）A、IFB、7ABC、AB7D AB721、用变量a存放数据888666.666888,应将

28、变量a的类型定义为（）（1分）A Long B Integer Single D、Double22、下而逻辑表达式值为真的是（）（1分）As A,aH B、“9“”a“C、“That”“ThankD、1212,123、函数String(n,str”)的功能是()(1 分)A、把数值型数据转换为字符串B、返回由n个字符组成的字符串C、从字符串中取出n个字符D、从字符串中第n个字符的位置开始取子字符串24、如果希望个窗体在显示的时候没有边框，应该设置的属性是(b)(1分)A、将窗体的Caption设成空字符B、将窗体的BorderStyle置成NoneC、将窗体的Enabled属性置成False

29、D、将窗体的ContalBox置成False25、(b)对象能使用prim方 法(1分)A、文本框B、图片框C、命令按钮D、标签二、填空题(12道小题，共35分)1、从机器的执行角度来说，程序设计语言可分为高级语言和 两大类。2、双击某个对象时，最终引发该对象的事件。3、程序流程是按一定条件重复多次执行一段程序的结构是结构。4、将对象设置为禁止用户操作，是将它的Enabled属性值设为。5、在 Visual Basic6.0 中，用 Font.Italic 属性设置。6、长整型变量的关键字是。7、三角函数是以为单位。8、Chr$(13)为 huiche。9、在整个工程的所有模块中均有效变量是全

30、局变量。10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本11、下列程序段是用于在一个字符串变量中查找“red，并用信息输出框给出找到的个数或没有找到的查找结果。Private Sub Form_Click()Dim Str I As String,Length As Integer,Sum As Integer,I As IntegerStrl=InputBox(请输入一个字符串”)Length=1 =1Sum=0Do While I=length-3If=red ThenSum=Sum+1End If1 =1+1LoopIf ThenMsgBox”没有找到！”ElseMsgBo

31、x”找到了“&Str(Sum)&”个End IfEnd Sub12、在窗体上画个标签(名称为L abcll)和 个计时器(名称为T im e ),然后编写如下儿个事件过程:Private Sub Form_Load()Timer 1.Enabled=FalseTimer 1.Interval=End SubPrivate Sub Form_Click()Timer 1.Enabled=End SubPrivate Sub Timerl_Timer（）Label 1.Caption=time（）End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换次（如见下图）。14:54:

32、41三、判断题（10道小题，共10分）1、立即窗口既可显示程序调试时新产生的信息，也可执行行代码。错误2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（1分）错误3、语句a=7:print：a=8:print a可以输出a的两个值。4、可以在运行期间改变对象的Name属性的值。（1分）错误5、字符串A B与”ab是两个相等的字符串。（1分）6、在if条件th e n结构中，条件必须是逻辑表达式或关系表达式。（1分）7、在Fore控制变量=初值To 终值 Step V步长：）结构中,可以写成Fora=x to z （1分）8 计时器（Timer）控件的Interval属性

33、的单位是毫秒，即若将此属性值设为1 0,则每0.01秒产生-次Timer事件。（1分）9、窗体文件的扩展名是.frm。（1分）10、在丫8中，血（111 1*90）+10的取值范围是10,99。（1分）四、编程题（4道小题，共60分）1、输入一串数字，求其中各位数字之和。例如输入123456,则求1+2+3+4+5+6。必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！请将你解答本题所写的源程序粘贴到下面或者上载源程序2、勾股定理中三个数的关系是：a八2+b八2=c八2编写程序，输出100以内满足上述关系的整数组合，例如3,4,5就是一个整数组入P1。（本题不要求填写运行结果）请

34、将你解答本题所写的源程序粘贴到卜面或者上载源程序3、编写程序，用普通迭代法求方程f（x）=x+lgx-1.7=0的近似实根r,迭代初值为1.5,精确到0.0001。（提示：必须把方程f（x）=0化成其等价形式x=g（x）。（允许使用其他迭代法）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！请将你解答本题所写的源程序粘贴到下面或者上载源程序4、编写程序，输出下列三角形：（要求用循环做，非循环不给分。）GFGEFGDEFGCDEFGBCDEFGABCDEFG（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到下面或者上载源程序1、以下叙述中错误的是（b）（1分）A、一个工程

35、中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体D、事件可以由用户引发，也可以由系统引发2、在设计阶段,当双击窗体上的某个控件时，所打开的窗口是（）（1分）A、工程资源管理器窗口 B、工具箱窗口C、代码窗口 D、属性窗口3、用 Static M（60 to 90）As Integer语句定义的数组的元素个数是（）（1分）A、60 B、30C、31 D、904、如果整型变量c、d 的值分别为10和 5,则下列语句中For I=c to d:Print I:Next I 循环体的执行次数是（）（1

36、分）A、6B、5C、1 D、05、a 和 b 中有且只有一个为0,可以用以下的表达式来表示（）（1 分）A、a=0 or b=0B、a*b=0 and a+b0C、a*b=0 or a+bWO D、a=0 and not b=0 and b=0 and not a=06、用情况选择语句Select Case X,选择IXI 10情况的语句为Case（）（1分）A、Not（-10lb 10）B 101b-10Cs Is v-10,Is10D、ABS（X）107、设 a=10,b=5,c=l,执行语句a b c 结果是（）（1 分）A、TrueB、F a l s e I D、出错信息8、在 Vis

37、ual Basic中下面的四个数组声明语句，正确的是（）（1 分）A、Dim a 10 B Def fn（10）C Dim a（10）D Dimension a（10）9、假设有以下程序段For 1=1 to 3:Forj=5 to 1 Step-l:Print I*j:Next j:Next I 则 语 句 Print I*j的执行次数以及I、j 的值分别是（）（1分）A、12 3 0 B、133 1 1240 D、13 4 110、仓建Visual Basic应用程序的主要步骤是：创建应用程序界面 设置控件 设置属性 编写代码，其中正确的步骤是（d）（j 分）tttnnniftniA、B、

38、C、D、11、为了在按卜一回车键时执行某个命令按钮的事件过程，需要把该命令按钮的个属性设置为True,这个属性是（）（I 分）A、Value Bs Default C Cancel D Enabled12、如果数据包含小数，则不应定义为下列哪种类型（）（1分）A Double B Single C Byte D Currency13、下列程序段 s=0:for i=9 to42 step 11:s=s+i:next:if i50then s=s+i else s=s-i 运行后 s 的结果为（）（1 分）A、167 B、139C、144 D、15514、有如下程序Forx=l TO2:Fory

39、=（）TOx-l:Printx*y:Next:Next,内层循环的循环体的总执行次数是（）（I 分）A、1 B、2C、3D、415、在下列四个式子中,非法的Visual Basic表达式是（）（1 分）A a=b+e B 53+3 C a=exp D、5516、表达式 INT（4*RND+2）*（INT（4*RND2）值的范围是（）（1 分）A、-10,8 B-4,8 C-10,5 D、4,817、要统计出字符串”计算机技术基础visual basic”的长度，应使用卜列（）函 数（1分）A、TABB、STRC、LEND、INSTR18 表达式（not true or true）and（tru

40、e or false）的值为（）（1A false B true C 0 D-119、下列哪个关键字声明的局部变量在整个程序运行中一直存在（cA、Dim Bx Public C Static D Private20、卜.面的变量名合法的是（）（1分）A、k.name B k%namc C name D k-name21、Visual Basic中不允许出现的数据形式为（）（1 分）A、4.56E-3B、.368C、D32D、0.25822、设 a=2,b=4,c=6,下列表达式值为真的是（）（1分）A、ab And c b Or cvaC、aa bc Or c x=l+【nt（100*Rnd）

41、D、x=l+Int（99*Rnd）24、下列关于属性设置的叙述正确的是(d)(1分)A、所有的对象都有同样的属性B、控件的属性只能在设计时修改，运行时无法改变C、控件的属性都有同样的默认值D、引用对象属性的格式为：对象名称.属性25、使文本框获得焦点的方法是()(1分)A、Change B GotFocus C SctFocus D LostFocus二、填空题(12道小题，共35分)1、可视化Visual Basic以结构化 Objecl pascal 语言为基础。2、一个工程可以包括多种类型的文件，其中窗体文件的扩展名为。3、程序流程中被重复执行的程序段叫 循环结构。4、将对象设置为不可见

42、的，是将它的属性值设为False。5、在 VisualBasic6.0 中，用 Font.Size 属性设置。6、表示货币型数据的单一字符是。7、Int(x)函数的含义是。8、设A$=Visual Basic是一种可视化编程语言”,mid$(A$,8,5)函数返回值是。9、逻辑值转变为数值时,False为0。10、在Print方法中，输出项用逗号分隔是按 标准 格式输出。11、下列程序段是用于在个字符串变量中查找“Rose”，并用信息输出框给出找到的个数或没有找到的查找结果。Private Sub Form_Click()Dim Strl As String,Length As Integer

43、,Sum As Integer,I As IntegerStrl=InputBox(请输入一个字符串”)1 =1Sum=0Do While I=length-4If=Rose ThenSum=Sum+1End If1 =1+1LoopIf ThenMsgBox”没有找到！”ElseMsgBox”找到了,&Str(Sum)&个“End IfEnd Sub12、在窗体上画一个标签(名称为L abell)和一个计时器(名称为T im e ),然后编写如下几个事件过程:Private Sub Form_Load()Timer 1.Enabled=Timer 1 .Interval=1000End Su

44、bPrivate Sub Form_Click()Timer 1.Enabled=End SubPrivate Sub Timerl_Timer()Labell.Caption=tinie()End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。22:40:20三、判断题（10道小题，共10分）1、在V B中，注释语句也是可执行语句。（1分）错误2、在V B中，变量可以直接使用（即不声明就使用）正确3、要想以标准方式显示变量a.b,c的值，可以写成print a,b,c4、要想修改在窗体上输出的字体的颜色，可以修改窗体的Forecolor属性。（1分）5、

45、字符串A B 与ab是两个相等的字符串。（1分）6、在if 条件th e n结构中，条件可以是逻辑表达式或数值表达式。（1分）7、在For控制变量=初值To终值 Step步长 结构中,可以写成Fora=x to z.（1 5 8、改变窗体的标题也就是改变其属性窗口中的name属性。（1分）9、Open命令的作用只是打开一个已经存在的文件。（1分）10、在定义了一个函数后，可以象调用任何一个V B内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（1分）正确四、编程题（4道小题，共60分）1、编写程序，计算并输出下面级数前n项（n=80）的部分和。1-1/2+1/3-1/4+1/5+.

46、+l/n（n由键盘输入，要求用循环做，非循环不给分。）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！请将你解答本题所写的源程序粘贴到下面或者上载源程序2、勾股定理中三个数的关系是：a八2+b八2=c八2编写程序，输出100以内满足上述关系的整数组合，例如3,4,5就是一个整数组入P1。（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到卜面或者上载源程序3、编写程序，用普通迭代法求方程f（x）=x+lnx-1.7=0的近似实根r,迭代初值为1.5,精确到0.0001。（提示：必须把方程f（x）=0化成其等价形式x=g（x）。（允许使用其他迭代法）必须将本题程序最后的运行

47、结果填入下面的框中。否则，该题以零分计！请将你解答本题所写的源程序粘贴到下面或者上载源程序4、编写程序，输出下列三角形：（要求用循环做，非循环不给分。）11 231 23451 2 3 4 5 6 7（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到下面或者上载源程序1、以下叙述中正确的是（）（1分）A、可以在运行期间改变对象的Name属性的值B、窗体的Name属性的值是显示在窗体标题栏中的文本C、窗体的Name属性指定窗体的名称，用来标识,个窗体D、对象的Name属性可以为空2、下列不能打开属性窗口的操作是（）（1分）A、执 行“视图”菜单中的“属性窗口”命 令B、按F4键C、按Ct

48、rl+TD、单击工具栏上的“属性窗口”按钮3、用Dim A（1 to 15）As Integei语句定义的数组的元素个数是（）（1分）A、14B、15C、16D、174、执行下面的程序 x=30:For i=l lb 20 Step（）:x=x+i5:Next i 后,X 的值为 64,则 Step 为（）（1 分）A、1 B、2C、3D、45、关于语句Ifc=2Thend=2下列正确的说法是()(1分)A、c=2和 d=2均为赋值语句B、c=2和 d=2均为关系表达式C、c=2为关系表达式,d=2为赋值语句D、d=2为关系表达式,c=2为赋值语句6、如下程序,n=10:Select Case

49、 n:Case 1 Tb 20:x=10:Case 2,4,6:x=20:Case Is End Sub C、For loop D、Do Exit8、下列数组声明正确的是()(1 分)A n=6:Dim a(1 to n)as integer B、Dim a(10)as integer:RcDim a(l to 12)C、Dim a()as single:ReDim a(3,6)as integer D、Dim a()as integer:n=6:ReDim a(l to n)as integer9、假设有以下程序段For 1=1 to 3:For j=8 to 2 Step-l:Print

50、I*j:Next j:Next I 则 语 句 Print I*j的执行次数以及I、j 的值分别是()(1分)A、21 40 B、21 4 IC、224 0 D、22 4 110、下列说法正确的是()(1分)A、即使数据类型为Variant,数组中的元素类型也必须保持致B、数据类型为Variant时,数组中的元素可以包含不同的类型C、在数组中如果使用Option Base 1语句，则缺省的下界为0D、在数组中如果没有使用Option Base语句，则缺省的下界为111、假定Piciurel和 Textl分别为图片框和文本框的名称，下列不正确的语句是(c)(1 分)A、Print 26 B、Pi