2023年江苏省计算机二级考试VB试题分类汇总及答案.pdf

《2023年江苏省计算机二级考试VB试题分类汇总及答案.pdf》由会员分享，可在线阅读，更多相关《2023年江苏省计算机二级考试VB试题分类汇总及答案.pdf（79页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、省二级考试VB试题汇总（2023.6 月）*：本于介用,二 今 M 的*1*今 点，所以见诙大家在 龙3 C做 好 一，崔 0 理 不 通 不At的 时;立 卬 对1本 中 拽*慰 然 关 的 加1RA升畀 憎 工 筌 如 见*,4JK生 折 上，以 为 戊 对，点 稹 的 日 屿，in纥 下 今0 h掌!*二J与 的 几 乎 用 女 今 点，从 k 盯 以 应 付 千 交 万 化 的 立 丁。本1TH内的令只 北*蒂*,痴 汶 等:簿，点3银，知 0，”及 的 府 梁。Q K,*像 大g f c*：今01上 仅 安 除1仆，修 利 对 于X为血已 上 机 绘 汨 为 生，掌JBK林技巧，力B

2、JM 抱 女 岭*4。*J3!W JUM E 臂 二 瓜+忙 中 电 不 优 畀 妁&It!第一部分知识测试题一、选择题(每套试卷有20 个选择题，每 题 1 分)1以下4 种描述中，错误的是 o DA.常量在程序执行期间其值不会发生改变B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量C.符号常量是用一个标记符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D.符号常量的使用和变量的使用没有差别2下 面 合 法 的 常 量 是。DA.1/2 B.abed C.1.2*5 D.False3 Visual Basic中可以用类型说明符来标记变量的 C类型

3、，其中表达货币型的是 oA.%B.#C.D.$4以下关键字中，不 能 定 义 变 量 的 是。AA.Declare B.Dim C.Public D.Private5用十六进制表达Visual Basic的整型常数时，前 面 要 加 上 的 符 号 是。AA)&H B)&O C)H D)O6 Visual B asic日 期 常 量 的 定 界 符 是。AA.#B C.()D.7数学关系3W x10表达成对的的V B 表达式为。BA.3=x10B.3=x AND x=3 OR x10 D.3=x AND 108,/,Mod,*四个算术运算符中，优先级别最低的是 o CA.B./C.Mod D.

4、*9下面语句中有非法调用的是 o CA.x=SGN(-l)B.x=FIX(-l)C.x=SQR(-l)D.x$=CHR$(65)1 0 表达式23/5.8、2 368、23 Mod 5.8的 运 算 结 果 分 别 是。BA.3、3.9655、3 B.3.9655、3、5C.4、4、5 D.3.9655、4、311 假如变量 a=2、b=abc c=nacd d=5,则表达式 ac AND b o c 的值 AA.True B.False C.Yes D.No1 2 为了给x,y,z三个变量赋初值1,下面对的的赋值 A语句是 OA)x=l:y=l:z=l B)x=l,y=l,z=lC)x=y=

5、z=l D)xyz=l1 3 以下4 类运算符，优先级最低的是 o DA,算术运算符 B,字符运算符 C.关系运算符 D,逻辑运算符14 己知 12345678”，则表达式 Left(a,4)+Mid(a,4,2)的值是。BA)123456 B)”123445”C)123445 D)12791 5 设有如下的记录类型Type Studentnumber As Stringname As Stringage As IntegerEnd Type则对的引用该记录类型变量的代码是.BA.Student.name=张红B.Dim s As Students.name=张红”D.Dim s As Typ

6、es.name=张红从键盘输入字符“，则输出结果是 o AC.Dim s As Type Stuents.name=张红”1 6 下列程序运营时，Private Sub Form_ Click()op$=InputBox(,op=n)Ifop$=u+u Then a=a+2If op$=-Then a=a-2Print aEnd SubA.-2 B.01 7 下列程序段的运营结果为For i=3 To 1 Step-1Print Space(5-i);For j=l To 2*i-lPrintn*;Next jPrintNext iC.+2 D.+0BA.*B*18 执行 PRINT 18/2

7、*3,-3A2 命令后,A.3 9C.27-919 执行 PRINT 9.4 3.7,9.4 MOD 3.7 命令后，输出Ac*D*券*输出结果为一0 CB.3-9D.-927结果为 OA.2 1 B.3 0 C.2 2 0 D.1 22 0运营以下程序后，输出结果为。Cx%=1/4y%=ll/4P R I N T x%;y%EN DA.0.2 5 0.7 5 B.0 2 C.0 3 D.1 32 1窗体里有两个对象，分别是图片框Pi ct u r e1和标签Label 1 o那么下面关于Pr i n t方法的使用中,错误的一条是 o DA.Pi ct u r e 1.Pr i n t 1 4

8、 7 B.Pr i n t 1 4 7C.Pr i n t er.Pr i n t 1 4 7D.Label 1.Pr i n t 1 4 72 2下面的 语句可以实现：先在窗体上输出大写字母A,然后在同一行的第1 0列输出小写字母bo BA.Pr i n t A”;Tab(9);b”B.Pr i n t A”;Sp c(8);“b”C.Pr i n t Au;Sp ace(1 0);Mbn D.Pr i n t nAn;Tab(8);nb2 3阅读下面的程序段：n l=In p u t Bo x(请输入第一个数：”)n 2=In p u t Bo x(请输入第二个数：”)Pr i n t n

9、 l+n 2当输入分别为1 1 1和2 2 2时，程序输出为 o AA.1 1 1 2 2 2 B.2 2 2 C.3 3 32 4 语句 Pr i n t Fo r mat (HE LLO,5Print x A 2+m/3End SubA.25 B.45 C.554 4 以 下 程 序 段 的 运 营 结 果 是。Private Sub Form_ Click()Dim s As Long,f As LongDim n As Integer,i As Integerf=1i 的输出值是 o CD）由于y 初值不知道，所以不拟定DD.65An=4For i=1 To nf=f*is=s+fNe

10、xt iPrint Ms=H;sEnd SubA.33 B.34 C.35 D.364 5 以下程序段的运营结果是 o APrivate Sub Form_ Click()a=1b=aDo Until a=5X=a*bPrint Str(a)&Str(b)&”=；Str(X);a=a+bb=b+aLoopEnd SubA.1*1=1 2*3=6 B.1*1=2 2*2=4C.1*1=1 3*3=9 D.1*1=2 3*2=64 6 下面分别是求两个数中的大数的四个程序段，不对的。DLoop Until iy,x,y)C)Max=xIf y=x Then Max=y4 7 下列循环能正常结束的是

11、一A.i=5 B.iDO Ci=i+lB)If xy Then Max=x Else Max=yD)If y=x Then Max=yMax=x_ o C=1)0i=i+2Loop Until i=10C.i=10D.i=6DOi=i+lLoop Until i0DOi=i-2Loop Until i=l4 8 有如下程序，运营时从键盘输入4,则输出的结果是 o BPrivate Sub Form_ Click()a=InputBox(Enteer a value of a:)Select Case aCase Is2b=a+lCase Is3b=a+2Case Is5b=a+3Case El

12、seb=a+4End SelectPrint a;bEnd SubA.4 4 B.4 5 C.4 6 D.4 74 9 执行如下程序段时，从键盘输入5,输出的结果是 o Ax=-5s=Va1(InputBox(请输入 s 的值:)Select Case sCase Is0y=x+lCase Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA.-5-2 B.-5-4 C.-5-3 D.-5-55 0 某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能对的计算到1998年时四x=x+2年的植树总面积的程序是_ _ _ _ _ o BA.s=10

13、0:r=0.05B.s=100:sum=100:r=0.05For i=1996 To 1998For i=1996 To 1998s=s*(l+r)s=s*(l+r)Next isum=sum+sPrint iNext iEndPrint sumC.s=100:r=0.05D.s0=100:sum=100:r=0.05For i=1996 To 1998For i=1996 To 1998s=s*(l+r)+ss=sO*(l+r)Next isum=sum+sPrint iNext iEndPrint sum5 1 以下程序段执行后，变量;s、x 的值分别为_ _ _ _ _ _ _。CDi

14、m s As Integer,x As Integers=10:x=1Do While x=i)Then Print Tab(j*3);Formal(b(i,j)J#”)；Next jPrintNext iEnd SubA.1 23B.1C.1 47D.l 23456452464678978936995 7 在窗体上画一个命令按钮Com m and1,然后编写如下代码:Private Sub Command 1 _Click()Dim arrl(l0),arr2(l0)As Integern=3For i=1 To 5arrl(i)=iarr2(n)=2*n+iNext iPrint arrl

15、(n),arr2(n);End Sub程序运营后，单击命令按钮，输出结果是。BA)11 3B)3 11 C)13 3 D)3 135 8 在窗体上画一个命令按钮Commandl,然后编写如卜代码：Private Sub Command 1 _Click()Dim a(4,4)For i=1 To 4For j=1 To 4a(i,j)=(i-l)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运营后，单击命令按钮，输出结果是 o DA.6 9 B.7 10 C.8 11 D.9 127

16、 108 119 1210 135 9 有如下程序：Private Sub Form_ Load()Dim arrl(10,10)As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4arrl(i,j)=i+jNext jNext iText 1.Text=arrl(2,3)+arrl(3,4)End Sub程序运营后，单击窗体，在文本框显示的值是 o CA.5 B.7 C.12 D.206 0 在窗体上添加一个命令按钮Command 1,然后编写如下代码：Option Base 1Private Sub Command 1 _ Click()

17、d=0:c=10 x=Array(10,12,21,32,24)For i=1 To 5If x(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运营后，单击命令按钮，输出结果是 o CA.89 B.99 C.23 D.776 1 下列语句声明的数组a 包 含 的 元 素 个 数 有。ADim a(3,-2 to 2,5)A.120 B.75 C.60 D.136 2 定义数组Array。to 5,5)后，下列哪一个数组元素不存在_ _ _ _ _ _。CA.Array(1,1)B.Array(l,0)C.Array(0,l

18、)D.Array(5,5)6 3 在 Visual Basic应用程序中，以 下 描 述 对 的 的 是。BA.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和过程的调用均可以嵌套D.过程的定义和过程的调用均不可以嵌套6 4 假定有如下的Sub过程：Sub swapp(x As Single,y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command 1 _ Click()Dim a As SingleDim b As Singlea=5:b

19、=4swapp a,bPrint a,bEnd Sub程序运营时，单击命令按钮得到的结果是 o DA.5 4 B.1 1C.1.25 4 D.1.25 16 5 以下程序的运营结果是 o CFunction fun(a As Integer)b=0Static cb=b+1c=c+1fun=a+b+cEnd FunctionPrivate Sub Command 1 _ Click()Dim a As Integera=2For i=1 To 3Sum=Sum+fun(a)Next iPrint SumEnd SubA.24 B.12 C.15 D.326 6 阅读程序：Sub subp(b(

20、)As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command 1 _C1 ick()Dim a(l To 4)As Integera(l)=5:a(2)=6:a(3)=7:a(4)=8subp aFor i=1 To 4Print a(i);Next iEnd Sub程序运营时，单击命令按钮得到的结果是 o AA.2 4 6 8 B.5 6 7 8C.10 12 14 16 D.犯错6 7 假定有以下两个过程：Sub si(By Vai x As Integer,ByVai y As Integer)Dim t As Inte

21、gert=xx=yy=tEnd SubSub s2(x As Integer,y As Integer)Dim t As Integert=xx=yy=tEnd Sub则以下说法中对的的是 o BA.用过程S I 可以实现互换两个变量的值的操作，S 2不能实现B.用过程S 2可以实现互换两个变量的值的操作，S 1不能实现C.用过程S I 和 S 2都可以实现互换两个变量的值的操作D.用过程S 1和 S 2都不能实现互换两个变量的值的操作6 8 在窗体上添加一个命令按钮Command 1 和两个名称分别为Label 1和 Label2的标签，在通用声明段声明变量x,并编写如下事件过程和SUB过程

22、：Private x As IntegerPrivate Sub Command 1 _ Click()x=5:y=3Call proc(x,y)Label 1 .Caption=xLabel2.Caption=yEnd SubSub proc(ByVa)a As Integer,ByVal b AsInteger)x=a*ay=b+bEnd Sub程序运营后，单击命令按钮，则两个标签中显示的内容分别是 o BA)5 和 3 B)25 和 3 C)25 和 6 D)5 和 66 9 下列程序输出结果为 o APrivate Sub Command 1 _ Click()For i=1 To 3

23、Get Value(i)Next iPrint GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer)dim S As IntegerS=S+aGet Value=SEnd FunctionA.4 B.5 C.10 D.117 0 以 下 程 序 的 运 营 结 果 是。CDim x As Integer,y As Integer,z As IntegerSub s2(a As Integer,ByVai b As Integer)a=2*ab=b+2End SubPrivate Sub Command 1 _ Click

24、()x=4y=4Call s2(x,y)Print x+yEnd SubA)0 B)8 C)12 D)147 1 以下程序的运营结果是 o CPrivate Sub Form_ Click()a=l:b=lPrint MA=M;a;”B=；bCall mult(a,b)Print nA=H;a;nB=H;bEnd SubSub mult(x,y)x=2*xy=3*yEnd SubA.A=1 B=1B.A=1 B=1C.A=1 B=1D.A=1 B=1A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=17 2 在窗体上添加一个命令按钮Command1和 3 个名称分别为Label 1,

25、Label2和 Label3的标签，然后编写如下事件过程：Private x As IntegerPrivate Sub Command 1 _Click()Static y As IntegerDim z As Integern=10z=n+zy=y+zX=X+zLabel 1 .Caption=xLabel2.Caption=yLabel 3.Caption=zEnd Sub程序运营后，连续3 次单击命令按钮，则 3 个标签中显示的内容分别是 o CA.10 10 10 B.30 30 30 C.30 30 10 D.10 30 3073 一个工程中包含两个名称分别为Form l和 For

26、m 2的窗体，一个名称为mdlfunc的标准模块。假定Forml,Form2和 m dlfunc中分别建立了自定义过程，其定义格式为：Form l中定义的过程：Private sub frmFunction 1()End SubForm 2中定义的过程:Pubilc sub frmFunction2()End SubM dlfunc中定义的过程：Public sub mdl Function()End Sub在调用上述过程的程序中，假如不指明窗体或模块的名称，则以下叙述中对的的是 o DA.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2和 mdlFunction

27、过程可以在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有mdlFunction过程可以被工程中各个窗体或模块调用7 4 以下程序段的运营结果是 o BFunction abc(n As Integer)As Integerabc=n*5+10End FunctionPrivate Sub Form_ Click()Dim x As Integerx=abc(234)+109*abc(10)Print xEnd SubA.7700 B.7720 C.2340 D.77707 5 下 列 程 序 运 营 后 显 示 的 结 果 是。APublic Sub Fl(

28、n%,By Vai m%)PrivateSub Command 1 _ Click()n=n Mod lODim x%,y%m=m 10 x=12:y=34End Sub CallFl(x,y)Print x,yEnd SubA.2 34 B.12 34 C.2 3 D.12 37 6 以下关于窗体的描述中，错误的是 o AA.执行Unload Form 1语句后，窗体Form l消失，但仍在内存中B.窗体的load事件在加载窗体时发生C.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被严禁D.窗体的Height、W idth属性用于设立窗体的高和宽7 7 若要使某命令

29、按钮获得控制焦点，则可使用 方法来设立。BA.Refresh B.SetFocusC.GotFocus D.Value7 8 设组合框Com bol中有3 个项目，则 能 删 除 最 后 一 个 项 的 语 句 是 BA.Combol.Removeitem TextB.Combol.Removeitem 2C.Combo 1 .Removeitem 3D.Combol.Removeitem Combol.Listcount7 9 将数据项“China”添加到列表框L istl中，成 为 第 一 项 应 使 用 语 句。AA.Listl.Additem“China”，0 B.List 1.Add

30、item“China”，1C.Listl.Additem 0,“China D.Listl.Additem 1,“China”8 0 假定期钟控件的Interval属性为1000,Enabled属性为T ru e,并且有下面的事件过程，计算机将发出_ _ _ _ _ _ _ 次 Beep声。DPrivate Sub Timerl_ Timer()For i=1 To 5BeepNext iEnd SubA.10()0次 B.10000次 C.5 次 D.以上都不对8 1 将命令按钮Com m andl的标题作为文本框Textl的文本内容，应执 行 语 句。BA.Textl=Command 1B

31、.Textl.Text=Command 1 .CaptionC.Text 1 .Caption=Command I.CaptionD.Textl.Text=CStr(Command 1)8 2 下 列 控 件 可 以 用 作 其 他 控 件 容 器 的 有。DA.窗体，标签，图片框B.窗体，框架，文本框C.窗体，图像，列表框D.窗体，框架，图片框8 3 改变驱动器列表框的Drive属性将激活 事件。AA)Change B)Scroll C)KeyDown D)KeyUp8 4 在窗体上添加一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_ Load()List

32、 1.Additem”357”Listl.Additem“246”List 1.Additem“123”Listl.Additem“456”End SubPrivate Sub Listl_ DblClick()a=List!.TextPrint a+Textl.TextEnd Sub程序运营后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为 o BA.1245 B.456789 C.789 456 D.08 5 在窗体上添加一个文本框，然后编写如下事件过程:Private Sub Form_ Load()Textl.Text=H,For i=1 To 10Sum=Sum

33、+iNext iTextl.Text=SumEnd Sub上述 程 序 的 运 营 结 果 是。A.在文本框Textl中输出55C.犯错AB.在文本框Textl中输出0D.在文本框Textl中输出不定值8 6 在窗体上添加一命令按钮Command 1,并 将 其 Caption属性设立为cmdAA、名称属性设立为cm dB B,则关于该控件的下列 语句是对的的。CA.Commandl.Left=100 B.cmdAA.Left=100C.cmdBB.Left=100 D.以上语句都不对8 7 在窗体上画一个名称为L istl的列表框，一个名称为Labe”的标签。列表框中显示若干城市的名称。当单

34、击列表框中的某个城市名时，在标签中显示选中城市的名称。在 L istl的单击事件过程中能正的确现上述功能的语句是 o DA)Label 1 .Caption=Listl.ListindexB)Label 1 .Name=Listl.ListindexC)Label 1.Name=Listl.TextD)Label 1 .Caption=List 1 .Text8 8 下面对语句Open“Rizhi.dat”For Output As#1的 功 能 描 述 错 误 的 是。CA.以顺序输出模式打开文献 Rizhi.dat”B.假如文献 Rizhi.dat不存在，则建立一个新文献C.假如文献 Ri

35、zhi.dat”已存在，则打开该文献，新写入的的数据将添加到文献末尾D.假如文献 Rizhi.dat“己存在，则打开该文献，新写入的的数据将覆盖本来的数据(我的答案)89 执行语句 OpeiTSample.dat For Random As#1 Len=50 后，对文献Sample.dat”中的数据可以进行的操作是。CA.只能写不能读B.只能读不能写C.即可以读，也可以写D.不能读，也不能写9 0 下列说法错误的是 o CA）当用W rite#语句写顺序文献时，文献必须以Output或 Append方式打开B）用 Input方式打开一个文献时，对同一个文献可以用几个不同的文献号打开C）用 Ou

36、tput和 Append方式打开文献时，不用将文献关闭，就能重新打开文献D）用 Append方式打开文献时，进行写操作，写入文献的数据附加到本来文献的后面9 1 下面几个关键字均表达文献的打开方式，只 能 进 行 读 不 能 写 的 是。AA.Input B.Output C.Random D.Append9 2 下 列 哪 个 不 是 写 文 献 语 句。DA.Put B.Print C.Write D.Output9 3 以 下 叙 述 中 对 的 的 是。BA.一个记录中所包含的各个元素的数据类型必须相同B.随机文献中每个记录的长度是固定的C.Open命令的作用是打开一个已经存在的文献D

37、.使用Input#语句可以从随机文献中读取数据9 4 在窗体上添加一个命令按钮Command1和一个文本框T ex tl,然后编写如下事件过程：Private Sub Command 1 _ Click（）Dim s As String*20s=Text 1.TextEnd Sub该程序的功能是当单击按钮Com m andl时，把变量S 的内容写入一个顺序文献datl.dat中，对的的程序段是。BA.Open datl.dat*For Input As#1Write#1,sClose#1B.Open ndat 1 .dat For Output As#1Write#1,sClose#IC.Op

38、en Mdat l.dat For Random As#1D.Open Hdatl.dat For Binary As#1Write#l,sWrite#l,sClose#1 Close#195 FileFiles.Paltem=叫.dat”程序代码执行后，会显示。AA.只包含文献扩展名为.dat的文献B.第一个dat文献C.包含所有的文献D.显示磁盘的途径9 6 目录列表框的Path属性的作用是 o AA.显示当前驱动器或指定驱动器上的途径B.显示当前驱动器或指定驱动器上的某个目录下的文献名C.显示根目录下的文献D.只显示当前程径下的文献9 7 为 了 使 D riv el驱动器列表框、D i

39、 rl 目录途径列表框和F ilel文献列表框同步协调工作，需要AA.Drivel 的 Change 事件过程中加入 Dirl.Path=D rivel.D rive,在 Dirl 的 Change 事件中加入Filel.Path=Dirl.Path 代码B.Drivel 的Change事件过程中加入Dirl.Path=Dirl.Path,在Dirl 的Change事件中加入Filel.Path=Drivel.Drive 代码C.Dirl 的 Change 事件过程中加入 Dirl.Path=D rivel.D rive,在 Drivel 的 Change 事件中加入Filel.Path=Fi

40、le 1 .FileName 代码D.Dirl 的 Change 事件过程中加入 Dirl.Path=D rivel.D rive,在 Drivel 的 Change 事件中加入Filel.Path=Dirl.Path 代码9 8 以下程序运营后，al.dat文 献 的 内 容 是。BPrivate Sub Form_ Click()Dim fl As Integer,f2 As Integer,f3 AsIntegerOpen Md:al.dat For Output As#1fl=2f2=3f3=f2+f 1Write#1,fl*f2,f2,f3Close#1End SubA.2,3,3

41、B.6,3,5C.2,5,6 D.无内容9 9 以 下 能 判 断 是 否 到 达 文 献 尾 的 函 数 是。DA)BOF B)LOC C)LOF D)EOF100 一条语句要分行书写，用 符号作续行符。CA.+B.-C._ D.101 VB 6.0的标准化控件位于IDE(集成开发环境)中的 窗口内。BA.工具栏 B.工具箱C.对象浏览器 D.窗体设计器1 0 2 关于Visual Basic应 用 程 序 对 的 的 叙 述 是。AA.Visual Basic程序运营时，总是等待事件被触发B.Visual Basic程序设计就是编写代码C.Visual Basic程序是以线性方式顺序执行的

42、D.Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设立好的1 0 3 保存文献时，窗体的所有数据以 存储。BA.*.PRGB.*.FRMC.*.VBPD.*.EXE1 0 4 下列哪组语句可以将变量a,b 的值互换 o BA.a=b:b=aB.a=a+b:b=a-b:a=a-bC.a=c:c=b:b=aD.a=(a+b)/2:b=(a-b)/21 0 5 以下程序段执行后，整型变量n 的值为 o Ayear)=2023n=yearl 4+yearl 400-yearl 100A.486 B.496 C.506 D.4661 0 6 将一文本框与数据控件相关联，需要设定文

43、本框的 属性。CA.DataMember B.DatafieldC.DataSource D.DataFormat1 0 7 窗体Form l上有两个文本框Textl Text2和一个命令按钮Command 1,编写如下两个事件过程:Private Sub Command 1 _Click()a=Textl.Text+Text2.TextPrint aEnd SubPrivate Sub Form_ Load()Textl.Text=n123HText2.Text=n32rEnd Sub程序运营时点击Com m andl按钮，窗 体 上 显 示 的 运 营 结 果 是。BA.444 B.123

44、321 C.321123 D.1322311 0 8 在窗体上添加三个文本框，名称分别为Textl、Text2 Text3,一个命令按钮Commandl。假如在 Textl中输入150,Text2中输入数200,则执行下列程序后，Text3中 显 示 的 数 为。DPrivate Sub Command 1 _C1 ick()Dim m As Integer,n As Integerm=Val(Textl.Text)n=Val(Text2.Text)If m n Thent=m:m=n:n=tEnd IfDor=m Mod nm=nn=rLoop While r 0Text3.Text=Str

45、(m)End SubA.200 B.150 C.100 D.501 0 9 以下程序段的执行结果是 o Ba=10:y=0Doa=a+2y=y+aIfy20 ThenExit DoEnd IfLoop While a=l 4Print ua=,;a;,y=;yA.a=18 y=24 B.a=14 y=26C.a=14 y=24 D.a=12 y=121 1 0 以下叙述中错误的是 o AA)在工程资源管理器窗口中只能包含一个工程文献及属于该工程的其他文献B)以.BAS为扩展名的文献是标准模块文献C)窗体文献包含该窗体及其控件的属性D)一个工程中可以具有多个标准模块文献1 1 1 关于V B 中

46、的监视表达式，错误的叙述是 o AA)监视表达式不能引起中断B)可使监视表达式为真时引起中断C)可使监视表达式的值变化时引起中断D)监视表达式可以监视对象1 1 2 以下程序段的运营结果是 o CPrivate Sub Form_ Click()Dim x()As Stringa=n How are you!*n=Len(a)ReDim x(l To n)For i=n To 1 Step-1x(i)=Mid(a,i,1)Next IFor i=1 To nPrint x(i);Next iEnd SubA.!uoy era woH B.!uoy era wohC.How are you!D.

47、how are you!1 1 3 以下程序段的运营结果是 o DPrivate Sub Form_ Click()Dim nsum As Integernsum=1For i=2 To 4nsum=nsum+factor(i)Next iPrint nsumEnd SubFunction factor(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i=1 To ntemp=temp*iNext ifactor=tempEnd FunctionA.10 B.13 C.23 D.331 1 4 以下程序段的运营结果是 o CP

48、rivate Sub Form_ Click()Dim s As String,once As String,sum As IntegerFor i=1 To 5once=InputBox(请输入一个字符)分别输入A,C,A,D,Esum=sum+checks(once,s)Next iPrint s;sumEnd SubPrivate Function checks(ByVal x As String,y As String)As IntegerIfx nA Theny=y+xchecks=1End IfEnd FunctionA.ACA 3 B.ACA 5 C.CDE 3 D.CDE 51

49、 1 5 以下程序段的运营结果是 o BPrivate Sub Form_ Click()Dim i As Integer,y As Integeri=0Do While i=4y=fa(i+1)i=i+1LoopPrint yEnd SubFunction fa(x As Integer)As IntegerDim term As Integer,i As Integerterm=1For i=1 To xterm=term*iNext ifa=termEnd FunctionA.110 B.120 C.130 D.1401 1 6 运营下列程序时，假如连击3 次 cm d l,且输入9,3

50、,1 6,获 得 的 运 营 结 果 分 别 是。CPrivate Sub Cmdl_ Click()Dim x As IntegerDim y As Integerx=Val(InputBox(输入数据”)If Int(Sqr(x)Sqr(x)Theny=x*xElsey=Sqr(x)End IfForm 1.Text 1.Text=Str(y)End SubA.3、3、4 B.81、9、256 C.3、9、4 D.9、3、161 1 7 设输入的数据分别为14、3 时，标签Labell中 显 示 的 值 分 别 是。APrivate Sub Form_ Click()Dim a As In