vb考试题库3.pdf

、单项选择题（25道小题，共 2 5 分）1,V B 中工程软件的扩展名为（c）A、dsB、frmC、vbpD、bas2、把字符串abcdef 右边的空格去掉应使用（b）函数A、trim B、rtrimC、right D、mid3、文本框textl的 text属性的数据类型是（b）A、整数型B、字符串C、单精度D、双精度4、下列（b）属性决定窗体标题栏显示内容（1 分）A NamcBCaptionC,TcxtD、BackStyl5、命令按钮 command 1 不具有下列哪个事件（d）（1 分）A ClickB、KeyPressC、GotFocusD、DblClick6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScroHBars属性设置为（d）（1 分）A、OB、IC、2D、37、Dim D（3,l To 10,1 To 15）语句中,数组的元素个数为（c）A、3*10*16B、3*1D16C、4*10*15D、4*11*158、如果整型变量c、d、x 的值分别为8、6、0,则下列语句ForI=ctod:x=x+i:NextI 执行结束时，I 的值为（a）（1 分）A、8B、7C、6D、59、假定有以下循环结构 Do U ntil条件 循环体 L oop则正确的描述是（b）（1 分）A、如果”条件”是 个为0 的常数，则一次循环体也不执行B、如果”条件“是 个 为。的常数，则至少执行 次循环体C、如果”条件，是一个不为0 的常数，则至少执行一次循环体D、不论 条件 是否为 真，至少要执行一次循环体10、x是小于100的非负数，用 V B 表达式表示正确的是（c）A、0=x Or x 100B 0=x 100C、0=x And x 100D、0=x,x 10011 下列语句错误的是（d）A、exit forB.exit doC endsubD、exit select12、Inputbox函数返回的数据类型为（d）A、整型B、逻辑型C、单精度D、字符串13、假定有以下程序段:For 1=1 To 3:Forj=1 To 5 Step-1:Print I*j:Next j:Next l 则语句 Print I*j 的执行次数是（d）（I 分）A、15B、18C、10D、014、如果要清除在窗体中打印输出的文字，可以利用（c）语）A、InputB、LoadC、ClsD、Paint15、case 表达式表列，其中的表达式表列不正确的为（d）（1 分）A、Case 100*aB、Case 1000To 2000C、Case Is3000D,Case 2000Is DIM ENfn（lO）C、DIM X（20）D,DIMENSION a10|18、以下程序段:x=1:y=4:Do Until y4:x=x*y:y=y+l:Loop 执行后 x 的结果为（b）A、IB、4C、8D、2019、以下声明和命名标识符错误的是（c）A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名2 0 下列说明错误的是（d）（1 分）A、Const MyVar#=123B、Dim myname as stringC、dim a as integer,diin b as singleD、dimMyString=Hcllo,+My friend!21、VB 中允许出现的数据形式为（b）A、1.89E1.1B、,368C、D32D、2.5E22、设 a=2,b=3,c=4,d=5,下列表达式abANDcc的值是（b）A、TrucB、False C、-ID、123、语句 6*66/6 的输出结果是（c）A、6B、12C、36D、21624、给窗体 forml 加载背景图片，应使用（c）A、picturcB 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、逻 辑 型 数 据 只 有 true false 两个值。5、顺序文件读操作用 open 语句。6、个工程可以包括多种类型的文件，其中扩展名为.frx的文件表示fnn 文件。7、Commandl.Visible=False,是将命令按钮1设为 把它设置为隐藏。8、当鼠标在控件上暂停时，显示提示信息，要用属性 ToolTipText 属性。9、Textl.SetFocus语句功能是把焦点移到上 Textlo10、Dim X As Currency是将变量X定义为 货币 型。三、判断题（10道小题，共10分）1、V B中请求对象执行某操作的要求称为“方法”。（1分）正确2、False为字符型常量。（1分）错误3、语句Print 25*40执行时输出的结果是1000。（1分）正确4、窗体的卸载使用L oad的。（1分）错误5、表达式268=268”的结果为True。（1分）错误6、语 句if 0 then print Hello是错误的。（1分）错误7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1分）正确8、将文本框Textl中的内容清除，可使用语句Textl.clso错误9、文件名的命名规则同变量的命名规则 样。（1分）正确10、InputBox函数返回值的类型是字符串类型。（1分）正确Private Sub Command l_Click（）Dim mark!,aver!,i%,maxi!,min 1!aver=0For i=1 To 6mark=InputBox（输入第“&i&”位评委的打分”）If i=1 Thenmax 1 =mark:min 1 =markElseIf mark max 1 Thenmax I=markEnd IfEnd Ifaver=aver+markNextaver=（aver-min 1 -max 1）/4Print averEnd Sub1、以下叙述中错误的是（b）（1分）A,在工程资源管理器窗口中只能包含一个工程文件及属了该工程的其他文件B、控件的名称可以由编程人员设定C、窗体文件包含该窗体及其控件的属性D、Visual B asic中控件的某些属性只能在运行时设置2、以下关于窗体的描述中，错误的是（d）（1分）A、窗体的Load事件在加载窗体时发生B、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止C、窗体的Height、width属性用于设置窗体的高和宽D、执行Unload Form l语句后，窗体Form l消失,但仍在内存中3、用 Static M（60to90）As Integer语句定义的数组的元素个数是（c）（1 分）A、60 B、30 C、31 D、904、如果整型变量a、b的值分别为3和1,则下列语句中For I=a to b:Print I:Next I循环体的执行次数是（c）（1分）A、3 B、2 C、1D,05、关于语句If x=l Then y=l下列正确的说法是（c）（1分）A x=l和y=l均为赋值语句B、x=l和y=1均为关系表达式C、x=l为关系表达式,y=l为赋值语句D、y=l为关系表达式,x=l为赋值语句用情况选择语句Select Case X,选择IXI 10情况的语句为Case(c)(1分)A、Not(-10 To 10)B 10To-10Cs Is v-10,Is 10 D、ABS(X)107、下列哪条语句是错的(c)(1分)A、RTrim()B Exit Function C.Exit While D.Exit Do8、在Visual Basic中下面的四个数组声明语句，正确的是(c)(1分)A、Dim a10 Bs Def fn(10)C Dim a(10)D Dimension a(10)9、阅读下面的程序段For i=l To 3:For j=l To i:For k=j To 3:a=a+2:Next:Ncxt:Next执行上面的三重循环后,a的值为(c)(1分)A、26 B、27 C、28 D、2910、下面说法错误的是(b)(1分)A、对象的性质和状态值称为“属性”B、请求对象执行某一操作的要求称为“消息”C、改变对象的 个或多个属性值的操作称为“事件”D、对象发生某事件所执行的程序称为事件驱动程序11、若使用文本框Textl,为对用户输入内容进行立即检查，应对Texll的哪个事件编程(a)(1分)A、Change B Interval C Left D、Top12、如果数据包含小数,则不应定义为下列哪种类型(c)(1分)A Double B Single C Byte D Currency13、下列程序段 s=0:for i=9 to 42 step 11:s=s+i:next:if i50 then s=s+i else s=s-i 运行后 s 的结果为()(1 分)A、167 B、139 C 144 D、15514、有如下程序,m$=ABCDE”:MID(m$,1 ,5)=abcde”:Prini m$，运行后的输出结果是(a)(1 分)A、abcdcABCDEB、ABCDEabcdc C abede D ABCDE15、在下列四个式子中,非法的Visual Basic表达式是(c)(1分)A、a=b+c B 53+3 C a=exp D 5516、表达式INT(6*RND+1)*(1NT(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)(1 分)A、false B、true C 0 D、-119、下列叙述中正确的是(c)(1分)A、在窗体的Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个S ub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为0或空符串20、下面的变量名合法的是(c)(1分)A、k.name B、k%name C、name D、k-name21、在Visual Basic中,下面四个数据，数据形式错误的是(b)(1分)A、3.456#B 236!C、1.23D-23D、L89EI.122、一知CD,ST,正确表示它们之间关系的式子是(c)(1分)A、Sgn(D-C)-Sgn(S-T)0 Sgn(D-C)-Sgn(S-T)=-2C、Sgn(D-C)-Sgn(S-T)=O D.Sgn(D-C)-Sgn(S-T)=l23、表达式Int(Rnd*U)+100的值的范围是(b)(1分)A、11,111 B.100,110 C.11,100 D,100,11124、下列关于属性设置的叙述正确的是(d)(1分)A、所有的对象都有同样的属性B、控件的属性只能在设计时修改，运行时无法改变C、控件的属性都有同样的默认值D、引用对象属性的格式为：对象名称.属性25、Visual Basic中没有提供下歹!(d)事 件(1分)A MouseDown B、MouseUp C MouseMovc D MouscExit二、填空题(12道小题，共35分)1、可视化Visual Basic语言是 公司推出的程序开发语言。2、双击某个对象时，最终引发该对象的事件 执行。3、程序流程中被重复执行的程序段叫 循环体。4、将对象设置为允许用户操作，并对操作作出响应，是将它的Enabled属性值设为 True。5、在 Visual Basic6.0 中，用 Font.StrikcThtouth 属性设置。6、表示单精度型数据的单一字符是!o7、Rnd函数的含义是。8、Chr$(数值)函数返回 该数值表示的字符。9、在窗体各过程中均有效的变量是 全局变量。10、在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=Mn=InputBox。请输入一个十进制整数)If Not IsNumeric(n)Or Left(n,1)=“0 Or_Int(VaI(n)Val(n)ThenMsgBox”你输入的不是十进制整数！”EndElsend=Val(n)Do While nd=10Ys=nd Mod 16Select Case YsCase 1()Ai=AnCase 11Ai=BCase 12Ai=Case 13Ai=DuCase)4Ai=E”Case 15Ai=FCase 0 To 9Ai=YsEnd SelectsHex=Trim(Ai)&sHexnd=nd 16LoopLabel 1 =nd&sHcxEnd IfEnd Sub12、在窗体上有两个命令按钮和一个文本框，名称分别为cmdstart（开始”）、cmdend（结I?）和txl。程序开始运行时，要求文本框txt中的字符个数不超过300个，“结束”按钮成灰色，单击“开始”按钮后，“开始”按钮不可用，同时使“结束”按钮能响应，单击“结束”按钮结束程序。Private sub fbrm_load（）=300Cmdend.enabled=falseEnd subPrivate sub cmdstart_click（）cmdstart.enablcd=false=trueend subprivate sub cmdend_click（）endend sub三、判断题（10道小题，共10分）1、通 过label 1.c is可以清除由labell所显示的内容。（1分）错误2、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。（1分）错误3、设a=5,则语句print a=5的运行结果为True。（I分）正确4、能够改变窗体背景颜色的属性是BackColor。（1分）正确5、在V B的表达式中，加入括号有时可以改变运算符的优先级。正确6、在if条件th e n结构中，条件可以是逻辑表达式或关系表达式。（1分）正确7、在Fore控制变量=初值To终值Step步长力结构中，步长可以取任意值。（1分）错误8、可以用Text】.text=”来清除Textl中的内容。（1分）正确9、在V B中可以同时打开多个工程。（1分）正确10、在定义了一个函数后，可以象调用任何一个V B内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（1分）错误四、编程题（4道小题，共60分）1、求公式：e=l/l!+l/2!+l/3!+l/n!直到最后一项小于10人（-6）时e的值。（保留小数点后9位）（注：程序代码写在命令按钮Command1的Click事件中。）Private Sub Command 1 _Click（）e=0s=1i=1Do Until s 10 A（-6）s=s/ie=e+si=i+1LoopPrint eEnd Sub2、有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？(本题不要求填写运行结果)请将你解答本题所写的源程序粘贴到下面或者上载源程序Private Sub Command 1 _Click()Dim a,b,c As IntegerFor a=1 To 100For b=1 To 100c=100-a-bIf3*a+2*b+c/2=lOOThcnPrint a,b,cEnd IfNextNextEnd Sub3、编写程序，用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r,迭代初值自选，精确到0.0001。(提示:计算公式为x=x-f(x)/f(x)必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！4、编写程序，输出下列三角形：(要求用循环做，非循环不给分。)1123123451 2 3 4 5 6 7Private Sub Command I _Click()For i=1 To 4Print Tab(20-3*i);For t=1 To 2*i-1Print t;NextNextEnd Sub1、如果一个工程含有多个窗体，则以卜叙述中错误的是(d)(1分)A、不可以在运行期间改变对象的Name属性的值B、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体C、任何时刻最多只有一个窗体是活动窗体D、窗体的Name属性的值是显示在窗体标题栏中的文本2、下列不能打开属性窗口的操作是(c)(1分)A、执行 视图 菜单中的 属性窗口 命令B、按F4键C,按Ctrl+TD、单击工具栏上的 属性窗口 按钮3、用DimS(20)As Integer语句定义的数组的元素个数是()(1分)A、19 B、20 Cs 21 D、224、如果整型变量a、b 的值分别为3 和 1,则下列语句中For I=a to b:Print I:Next I 循环体的执行次数是（）（1 分）A、3 B、2C、1 D、05、关于语句Ifx=lT heny=l下列正确的说法是（）（1 分）A、x=l和 y=l均 为 赋 值 语 句 x=l和 y=l均为关系表达式C、x=l为关系表达式,y=l为赋值语句D、y=l为关系表达式,x=l为赋值语句6、用情况选择语句Select Case X,选择IXI 10情况的语句为Case（）（1 分）A、Not（-10 To 10）B.10 To-10C、Is v-10,Is 10 D、ABS（X）107、在运行阶段，要在文本框Textl获得焦点时选中文本框中所有内容，对应的事件过程是（a）（1 分）A、Private Sub Textl_GotFocus（）:Text 1 .SelStart=O:Textl.SelLength=Len（Textl.text）:End Sub Private Sub Text 1 _LotFocus（）:Textl.SelStart=O:Textl.SclLcngth=Len（Text 1 .text）:End SubC、Private Sub Texll_Change（）:Text 1 .SelStart=O:Textl.SelLength=Len（Textl.text）:End Sub D Private Sub Text 1 _SetFocus（）:Textl.SelStart=O:Textl.SelLcngth=Len（Textl.text）:End Sub8、在 Visual Basic中下面的四个数组声明语句，正确的是（）（1 分）A、Dim a10 B Def fn（10）C Dim a（10）D Dimension a（10）9、假设有以下程序段For 1=1 to 3:For j=7 to 1 Step-l:Print I*j:Next j:Next I 则 语 句 Print I*j的执行次数以及9 j 的值分别是（）（1分）A、21 30 B、2140 C、20 3 0 D、20 4 010如果Form l是启动窗体，并且Form 1 的 Load事件过程中有Fom2.Show,则程序启动后（c）（I 分）A、发生一个运行时错误B、发生一个编译时错误C、在所有的初始化代码运行后Form l是活动窗体D、在所有的初始化代码运行后Form2是活动窗体11、以下控件中可以入选为容器控件的是（b）（1 分）A、Image图像框控件B、PictureBox图片框控件C、TextBox文本框控件D、ListBox列表框控件12、假设变量bool_x是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（b）（1 分）A、bool_x=False B bool_x=.False.C bool_x=#False#D bool_x=False13、下列程序段 If（2*2=5）53+3C、a=exp D 5516、表达式 INT（4*RND+2）*（INT（4*RND2）值的范围是（）（1 分）A、-10,8 Bs 1-4,8 C-10,5 D 4,817、要统计出字符串”计算机技术基础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 是整型,b2是布尔型变量C、b l 和 b2都为是可变型变量D、b l 是可变型,b2是布尔型变量2 0 下列哪 个是Visual Basic合法变量名（d）（1 分）A、IFB、7 ABCs AB7 D AB721、用变量a 存放数据888666.666888,应将变量a 的类型定义为（）（1 分）A、Long B Integer C Single D Double22、下面逻辑表达式值为真的是（）（1 分）A.Aa B、9“aC、“That Thank”D、1212.123、函数5皿昭（11,飞吟的功能是（）（1分）A、把数值型数据转换为字符串B、返回由n个字符组成的字符串C、从字符串中取出n个字符D、从字符串中第n个字符的位置开始取子字符串24、如果希望一个窗体在显示的时候没有边框，应该设置的属性是（b）（1分）A、将窗体的Caption设成空字符B、将窗体的BorderStyle置成NoneC、将窗体的Enabled属性置成False D、将窗体的ContalBox置成False25、（b）对象能使用print方 法（1分）A、文本框B、图片框C、命令按钮D、标签二、填空题（12道小题，共35分）1、从机器的执行角度来说，程序设计语言可分为高级语言和 两大类。2、双击某个对象时，最终引发该对象的事件。3、程序流程是按一定条件重复多次执行一段程序的结构是结构。4、将对象设置为禁止用户操作，是将它的Enabled属性值设为。5、在 Visual Basic6.0 中，用 Font.Italic 属性设置。6、长整型变量的关键字是o7、三角函数是以为单位。8、Chr$（13）为 huiche。9、在整个工程的所有模块中均有效变量是全局变量。10方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本11、下列程序段是用于在一个字符串变量中查找“red”，并用信息输出框给出找到的个数或没有找到的查找结果。Private Sub Form_Click（）Dim Strl As String,Length As Integer,Sum As Integer,I As IntegerStrl=InpulBox（请输入一个字符串”）Length=1=1Sum=0Do While I 31 D、904、如果整型变量c、d 的值分别为10和 5,则下列语句中F orI=ctod:P rintI:N exlI循环体的执行次数是（）（1 分）A、6 B、5C、1 D、05、a 和 b 中有且只有一个为0,可以用以下的表达式来表示（）（1 分）A、a=0 or b=0 B 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（-10 To 10）B.IOTO-IOC.Is v-10,Is 10 D、ABS（X）107、设 a=10,b=5,c=l,执行语句a b c 结果是（）（1 分）A、TrueB、FalseC.ID、出错信息8、在 Visual Basic中下面的四个数组声明语句，正确的是（）（1 分）A、Dim a10 Def fn（10）C Dima（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的执行次数以及9 j 的值分别是（）（1分）A、1230 B、133 1 C 1240 D、134 11 0.fie Visual Basic应用程序的主要步骤是：创建应用程序界面 设置控件 设置属性 编写代码，其中正确的步骤是（d）（1 分）mi mim imA、B、C,D、11、为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一 个 属性设置为True,这个属性是（）（1 分）A、Value B Default C Cancel D、Enabled12、如果数据包含小数,则不应定义为下列哪种类型（）（1 分）A、Double B Single Cy Byte D Currency13、下列程序段 s=0:for i=9 to 42 step I I:s=s+i:next:if i50 then s=s+i else s=s-i 运行后 s 的结果为（）（1 分）A、167 B、139 C、144 D、15514、有如卜程序For x=l TO 2:For y=（）TO x-l:Print x*y:Next:Next,内层循环的循环体的总执行次数是（）（1 分）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*RND-2）值的范围是（）（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（true or fake）的值为（）（1A false B true C 0D、-119、下列哪个关键字声明的局部变量在整个程序运行中 直存在（cA、Dim Public C Static D Private20、下面的变量名合法的是（）（1 分）A、k.name B k%name 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=Int（101*Rnd）C x=l+Int（100*Rnd）D x=l+Int（99*Rnd）24、下列关于属性设置的叙述正确的是(d)(1分)A、所有的对象都有同样的属性B、控件的属性只能在设计时修改，运行时无法改变C、控件的属性都有同样的默认值D、引用对象属性的格式为：对象名称.属性25、使文本框获得焦点的方法是()(1分)A、Change B、GotFocusC、SetFocusD、LostFocus二、填空题(12道小题，共35分)1、可视化Visual Basic以结构化 Object pascal 语言为基础。2、一个工程可以包括多种类型的文件，其中窗体文件的扩展名为。3、程序流程中被重复执行的程序段叫循环结构。4、将对象设置为不可见的，是将它的属性值设为False。5、在 Visual Basic6.0 中，用 Font.Size 属性设置。6、表示货币型数据的单一字符是。7、Int(x)函数的含义是。8、设A$=MVisual Basic是一种可视化编程语言”,mid$(A$,8,5)函数返回值是。9、逻辑值转变为数值时，False为0。10、在Print方法中，输出项用逗号分隔是按 标准 格式输出。11、下列程序段是用于在个字符串变量中查找“Rose”，并用信息输出框给出找到的个数或没有找到的查找结果。Private Sub Form_Click()Dim Strl As String,Length As Integer,Sum As Integer,1 As IntegerStrl=InputBox(请输入 个字符串”)1=1Sum=0Do While I 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 n:Case 1 To 20:x=10:Case 2,4,6:x=20:Case Is 30 D、407、下列哪条语句是正确的()(1分)A、Exit While B 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 to3:Forj=8to2Step-l:PrintI*j:Nextj:NextI则语句Print I*j的执行次数以及I、j的值分别是()(1分)A、2140 B、21 4 1 C、2240 D、224110、下列说法正确的是()(1分)A、即使数据类型为Variant,数组中的元素类型也必须保持 致B、数据类型为Variant时,数组中的元素可以包含不同的类型C、在数组中如果使用Option Base 1语句，则缺省的下界为0 D、在数组中如果没有使用Option Base语句，则缺省的下界为111、假定Picturel和Tcxtl分别为图片框和文本框的名称,下列不正确的语句是(c)(1分)A、Print 26 Picturel.Print 26 C%Text 1 .Print 26 D、Debug.Print 2612、在Visual Basic中单精度的类型说明符为()(1分)A、%B、#C、！D、&13、”输 入 个正数x,并判断x的开平方是否为整数”的语句为(c)(1分)A x 0 and sqr(x)=chr(x)B、x 0 or sqr(x)=abs(x)C、x 0 and sqr(x)=fix(sqr(x)D x 0 or sqr(x)=int(sqr(x)14、在如下语句中,d$中123”:f二456”,则d+f$的结果是()A、123456 B、”123456”C、123+“456”D、显示出错信息15、在Visual Basic中,下面的四个语句中正确的是()(1分)A、Log(sin(-1)Bs c=abs C Print TAB(10)“QB”D、a=b=c16、表达式 INT(4*RND+2)*(INT(4*RND-2)值的范围是()(1 分)A、-10,81 B,-4,8 C、-10,5 D、4,817、要统计出字符串”计算机技术基础visual basic”的长度，应使用下列()函 数(1分)A、TABB、STRC LEND、INSTR18、表达式(not true or true)and(true or false)的值为()(1 分)A、false B true C 0 D、-119、下列叙述中正确的是(c)(1分)A、在窗体的Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个S u b过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为0或空符串20、以下哪一个是变量名是错误的(c)(1分)A、我你他 B、ABCC、AB.CD、A12321、下列可作为Visual Basic允许的数据形式的是(d)(1分)A、10八(1.256)B、D32C、2.5ED、12E322、已知CD,ST,正确表示它们之间关系的式子是()(1分)A、Sgn(D-C)-Sgn(S-T)0 Sgn(D-C)-Sgn(S-T)=-2 C Sgn(D-C)-Sgn(S-T)=0 D Sgn(D-C)-Sgn(S-T)=l23、要使变量x赋值为1到100间(含1,不含100)的一个随机整数，正面语句正确的是()(1分)A x=Int(100*Rnd)B%x=Int(101*Rnd)C x=l+Int(100*Rnd)D、x=l+Int(99*Rnd)24、下列关于属性设置的叙述正确的是()(1分)A、所有的对象都有同样的属性B、控件的属性只能在设计时修改，运行时无法改变C、控件的属性都有同样的默认值D、引用对象属性的格式为：对象名称.属性25、Visual Basic中没有提供下列()事 件(1分)A、MouseDown B、MouseUp C、MouseMove D MouseExit二、填空题(12道小题，共35分)1、从机器的执行角度来说，程序设计语言可分为高级语言和两大类。2、个工程可以包括多种类型的文件，其中可执行文件的扩展名为。3、For.Next结构的循环次数为。4、将对象设置为可见的，是将它的属性值设为True。5、在 Visual Basic6.0 中,用 Font.Italic 属性设置。6、变体型变量的关键字是variant。7、三角函数是以为单位。8、设A$=VisualBasic是一种可视化编程语言”,Right$(A$,4)函数返回值是。9、在整个工程的所有模块中均有效变量是。10、在Print方法中，句尾有符号时，是执行下,个Print语句。11、已知求根区间 a,b有一根，每次把求根区间缩小一半，直到找到解或求根区间足够小。二分法求根算法思想：求 a,b的中点c,判断f(c)=0,c为求得的根，结束；f(a)与f同号，则 a,c无根，c代替a；否则 c,b无根，c代替b；使求根区间缩小一半，重复上述步骤，直到区间长度小于精度。根的精度为0.00001,试填空完成此程序。Public Function halfRoot(a as single,b as single)as singleDim c as singleDo Whilec=(a+b)/2If f(c)=0 ThenExit DoElself Thena=cElseb=cEnd IfLoopEnd Function12、用计时器按秒记时,在窗体上画一个计时器控件time”和 个标签label 1,程序运行后,在标签内显示经过的秒数,并响铃，补充程序：1.)需把计时器的Interval属性设置为10002.)Private Sub Timerl_Timer()Static c As Integerc=Beep三、判断题（10道小题，共10分）1、立即窗口既可显示程序调试